Sélection multiple checkbox
Bonjour, voilà mon problème:
J'ai 3 zones d'impression déjà définies. Avec des checkbox je souhaite pouvoir sélectionner les 3 indépendamment. Jusqu'ici pas de problème voici le code:
If CheckBox1.Value = True Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$39"
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Unload UserForm1
End If
If CheckBox2.Value = True Then
ActiveSheet.PageSetup.PrintArea = "$A$41:$O$65"
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Unload UserForm1
End If
If CheckBox3.Value = True Then
ActiveSheet.PageSetup.PrintArea = "$A$72:$O$100"
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Unload UserForm1
End If
End sub
Maintenant ce que je ne sais pas faire:
Si je sélectionne la checkbox 1 et la checkbox 2 je veux que sa m'ouvre les deux zones d'impression. Idem pour la check2 et la 3, la 1 et la 3, et aussi la 1, 2, 3.
merci d'avance
Bonjour
Avec ta commande je ne sais pas faire
Mais en passant par PrintPreview (ou PrintOut)
A tester
Private Sub CommandButton1_Click()
Me.Hide
If CheckBox1 = True Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$h$15"
ActiveSheet.PrintPreview
'Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
'Unload UserForm1
End If
If CheckBox2 = True Then
ActiveSheet.PageSetup.PrintArea = "$a$16:$h$25"
ActiveSheet.PrintPreview
'Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
'Unload UserForm1
End If
If CheckBox3 = True Then
ActiveSheet.PageSetup.PrintArea = "$a$26:$h$31"
ActiveSheet.PrintPreview
'Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
'Unload UserForm1
End If
Unload Me
End Submerci pour ta réponse, c'est ce qu'il me fallait. Merci