Zone d'impression sous condition

Marsh Posté le 17-01-2012 à 17:05:09

Bonjour,

Je cherche à créer un code sous vba qui me permettrait de définir plusieurs zones d'impression en fonction de différentes checkbox.

Voici une partie de mon code :

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
With Worksheets("Feuil1" ).PageSetup

If CheckBox1 = True Then
.PrintArea = "plage1"
End If

If CheckBox2 = True Then

.PrintArea = "plage2"
End If

If CheckBox3 = True Then

.PrintArea = "place3"
End If

End With
Application.ScreenUpdating = True

Le problème est que je n'arrive pas en sélectionnant les 2 premières checkbox à cumuler les plages 1 et 2.

Merci de vos réponses.

Marsh Posté le 17-01-2012 à 17:05:09

Marsh Posté le 18-01-2012 à 04:35:30

Salut, qqch comme ceci

Option Explicit

Sub Tst()
Dim r As Range
With ActiveSheet
If CheckBox1 = True And CheckBox2 = True Then
Set r = Application.Union(.Range("Plage1" ), .Range("Plage2" ))
.PageSetup.PrintArea = r.Address
End If
End With
End Sub

Message édité par kiki29 le 18-01-2012 à 05:26:25

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

Marsh Posté le 18-01-2012 à 15:37:00

Merci mais ça ne passe pas...
En fait il faudrait que :
la checkbox 1 : vrai ou faux
la checkbox 2 : vrai ou faux
les deux ensembles : vrai ou faux
A savoir que j'ai 11 checkbox...

Merci

Marsh Posté le 19-01-2012 à 09:25:39

Salut, cette réponse correspond à ta demande et naturellement c'est à toi de l'adapter à ton contexte

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *