Bonjour,
Private Sub CommandButton1_Click() 'HS de janvier
Sheets('Janvier').Select
Unload USERFORM2
ActiveSheet.Unprotect
Application.GoTo Reference:=ActiveSheet.Range('A249'), Scroll:=True
ActiveSheet.PageSetup.PrintArea= '$a$249:$aq$303'
Range('A249').Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub
Dans cette instruction la partie 'printArea' semble occuper le programme plusieurs secondes avant de me redonner la main. Pouvez vous me dire si j'ai bien utiliser les bonnes instructions.
merci
Private Sub CommandButton1_Click() 'HS de janvier
Sheets('Janvier').Select
Unload USERFORM2
ActiveSheet.Unprotect
Application.GoTo Reference:=ActiveSheet.Range('A249'), Scroll:=True
ActiveSheet.PageSetup.PrintArea= '$a$249:$aq$303'
Range('A249').Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub
Dans cette instruction la partie 'printArea' semble occuper le programme plusieurs secondes avant de me redonner la main. Pouvez vous me dire si j'ai bien utiliser les bonnes instructions.
merci