Boucle TabStrip

Bonjour Forum,

y'a-t-il un moyen de faire une boucle pour les case de TabStrip?

normalement on fait:

Private Sub TabStrip1_Change()

Select Case TabStrip1.Value

Case Is = 0

InitDonnees
Case Is = 1

InitDonnees
Case Is = 2

InitDonnees
Case Is = 3
End Select

Mais supposons que je pourrais dynamiser le nombre de cas ... comment faire?

En ce moment les cas sont en fonctions du nombre de feuille dans le classeur.

Quelque chose du genre:

Dim i
Dim q as Integer
q = ThisWorkbook.Sheets.Count 

For i = 0 to q 'Nombre de "case" du Tabstrip1

Bonsoir,

Essayer ce code

    With TabStrip1.Tabs
        For i = 0 To .Count - 1
            tab_nom = .Item(i).Name
        Next i
    End With

Merci pour la réponse,

mais je ne suis pas certain de comprendre oû je dois mettre le code pour dynamiser ma sélection de choix .. mes noms d'onglets sont déjà dynamisés par les nom de feuilles ..

J'ai trouvé la solution.

En fait, comme j'appelle toujours la même sub .. je n'ai pas besoin de choisir de cas. donc:

Private Sub TabStrip1_Change()

    InitDonnees

End Sub

Suffit amplement .. merci!

Quelque chose de ce genre par exemple

Private Sub UserForm_Initialize()

    With TabStrip1.Tabs
        For i = 0 To .Count - 1
            .Item(i).Tag = Sheets(i + 1).Name
        Next i
    End With

End Sub

Private Sub TabStrip1_Change()

    With TabStrip1
        i = .Value
        With Sheets(.Item(i).Tag)
            'InitDonnees feuille correspondant à l'onglet
        End With
    End With

End Sub

Merci!