faire une selection multiple de feuilles en fonction de variables

Version imprimable

17/10/2006, 18h25
blackhelmet

faire une selection multiple de feuilles en fonction de variables
bonjour a toutes et tous,
je m'interesse depuis longtemps a excel et au vba, mais la, je seche!
j'ai cree un formulaire qui, quand on coche des checkbox, la feuille correspondante doit etre selectionnee.
le probleme, c'est que a l'avance on ne sait pas combien seront selectionnees, ni lesquelles.
je pensais a une architecture du style sheets(array(ma_variable))
mais ca plante.

voici un bout de mon code :
Code:

1 2 3 For x = 1 To 7 If Me.Controls("CheckBox" & x).Value = True Then a = Sheets(Me.Controls("CheckBox" & x).Caption).Index Next x
ensuite on se fait un a= a & ", " & a (par exemple)

puis pour finir sheets(array(a)).select

mais ca marche pas!!
merci de vos precieux conseils et experiences.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim cmpt, tabFeuille As Variant
 
For cmpt = 1 To 6
    If Me.Controls("checkbox" & cmpt).Value = True Then
        If IsArray(tabFeuille) Then
            ReDim Preserve tabFeuille(UBound(tabFeuille) + 1)
        Else
            ReDim tabFeuille(0)
        End If
        tabFeuille(UBound(tabFeuille)) = "Feuil" & cmpt
    End If
Next
If IsArray(tabFeuille) Then ThisWorkbook.Sheets(tabFeuille).Select
End Sub

18/10/2006, 10h32
blackhelmet

super!!

Merci beaucoup!:P
ca fonctionne a merveille.
mais comme le caption de mes checkbox correspond au name des feuilles,
j'ai modifie comme suit :

Code:

tabFeuille(UBound(tabFeuille)) = Me.Controls("checkbox" & x).Caption

et la c'est absolument parfait.
a bientot!:lol: