Rapport de message :*
 

Re: Zone d'impression variable

Titre du sujet : Re: Zone d'impression variable
par Mth le 04/04/2010 14:42:08

Bonjour Damien,

Bienvenue parmi nous

Un petit essai avec ce code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, [C3]) Is Nothing Then
    If [C3] = 1 Then ActiveSheet.PageSetup.PrintArea = ("$A$1:$G$56")
    If [C3] = 2 Then ActiveSheet.PageSetup.PrintArea = ("$H$1:$N$56")
    If [C3] = 3 Then ActiveSheet.PageSetup.PrintArea = ("$O$1:$U$56")
End If

End Sub
 
Bonne journée,

mth