Nb d'arguments variables avec union (range)

[sebc82]

Bonjour à tous,

je souhaite utiliser la fonction union range pour faire un aperçu avant impression.
Mon problème est que mon nombre de range à sélectionner variera en fonction de certaines conditions (sélection de checkbox). Je ne sais pas comment gérer ce nombre de range variable :

exemple :
if checkboxA1 = true then
range("a1:g62").select
end if

if checkboxA2 = true then
range("o1:ab62").select
end if

...

Union(range("a1:g62"), Range("o1:ab62"),...).select
Selection.PrintPreview


Merci d'avance

 

[Guest]

Re : Nb d'arguments variables avec union (range)

Bonjour SebC,

Exemple avec Union

Dim Plage as Range
 
 
if checkboxA1 = true then
 If Plage Is Nothing then 
      Set Plage = range("a1:g62")
 Else
      Set Plage = Union(Plage,Range("A1:G62")
 End If
end if
 
if checkboxA2 = true then
 If Plage Is Nothing then 
      Set Plage = range("O1:AB62")
 Else
      Set Plage = Union(Plage,Range("O1:AB62")
 End If
end if

If not Plage Is Nothing then Plage.PrintPreview

A+