Discussion :

[seb4182]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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

[Didier Gonard]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casavba]

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