union range arguments variables

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 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

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

Bonjour,

Piste (à tester) :

- j'utiliserais le tag de chaque checkbox concernée pour y mettre la chaine de caractères correspondant au range correspondant (et non la sélection)
- j'utiliserais ensuite une boucle for .... to, en rappelant que Controls("toto" & n) pointe vers le contrôle toto3 si n = "3" et que le contrôle toto3 se trouve sur un UserForm (sur une feuille, c'est, je crois, la collection Shapes qu'il convient d'utiliser et non la collection Controls).
Et ce n'est qu'alors que je ferais la sélection à utiliser

Bonjour,

ça devrait être possible aussi en faisant joujou à la concaténation du genre :

Code:

---

1 2 3 4 5 6 7 8

Sub JincrémenteAuFurEtAMesure() Dim strVar As String   strVar = Range("A1:E1").Address strVar = strVar & "," & Range("H1:J1").Address 'etc... Range(strVar).PrintPreview End Sub

---

cordialement,

Didier

Citation:

---

Envoyé par seb4182

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 :

---

La propriété .Tag de la checkbox, est une solution pertinente pour ce genre de problème.
Je rejoins par ailleurs la solution avancée par mon cher ami UcFoutu.

Bonne journée