plusieurs feuilles dans 1 variable

[ya_v_ka]

salut les pros

existe-t-il un moyen de grouper plusieurs feuille dans une variable, et si oui comment...

par exemple dans le style:

SelecFeuille = worksheet("feuil1") et ("commentaire") et ("tableau")

je ne suis pas certain d'être très clair, mais vraiment sur que ca ne se compose pas comme ca ;-)

merci pour toutes suggestions

ya'v

 

[michel]

bonjour ya_v_ka


comme tu ne précises pas ce que tu souhaites faire de cette variable , ce n'est pas évident de te repondre , mais tu peux essayer quelque chose du genre :

Sheets(Array("Feuil1", "commentaire", "tableau")).XXXX

XXXX correspondant à l'action que tu souhaites appliquer ( Copy , PrintOut ...etc...)


ou effectuer une boucle sur ces feuilles selectionnées :

Dim Ws As Worksheet
For Each Ws In Sheets(Array("Feuil1", "commentaire", "tableau"))
Ws.Range("A1") = "xld"
Next


bonne journée
MichelXld

 

[ya_v_ka]

salut

merci... mais j'étais pas assez clair

je cherche à remplacer la répétition de code comme celui ci:

If CheckBox3.Value = True Then
Worksheets("VenV").Visible = True
Worksheets("Crédit").Visible = True
Worksheets("Stat_v").Visible = True
Else: Worksheets("VenV").Visible = False
Worksheets("Crédit").Visible = False
Worksheets("Stat_v").Visible = False
End If

par un groupement des feuilles dans une seule ligne, soit en déclarant les groupes comme unité, soit autrement ...


merci encore...
;-)
ya'v

 

[michel]

rebonjour ya_v_ka

en reprenant le deuxieme exemple cela donnerait :


Dim Ws As Worksheet

If CheckBox3.Value = True Then
For Each Ws In Sheets(Array("VenV", "Crédit", "Stat_v"))
Ws.Visible = True
Next

Else
For Each Ws In Sheets(Array("VenV", "Crédit", "Stat_v"))
Ws.Visible = False
Next

End If



bon après midi
MichelXld

 

[ya_v_ka]

salut

MERCI, superbe, pour les if ou j'ai 8 fruilles je vais gagner de la place...

bonne continuation et encore merci

;-)

ya'v