Discussion :

[blackhelmet]

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 VB :

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

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.

[bidou]

Code :

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

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

[blackhelmet]

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

Code :

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

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

et la c'est absolument parfait.
a bientot!