Discussion :

[jpo]

Salut

je dois utiliser une zone de liste déroulante (directement dans la feuille) pour lister toutes les feuilles du classeur, tant bien que mal j'y suis arrivé

mais je n'arrive pas à tester en VBA le contenu de cette liste déroulante ...
comment en VBA, ouvrir par exemple une feuille sélectionnée dans cette liste déroulante ????

si quelqu'un à une idée ....

merci d'avance

jp

[SilkyRoad]

bonjour


Un exemple pour remplir la ComboBox et lister les feuilles du classeur.

Code :

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

1
2
3
4
5
6
7
8
9
Sub RemplitComboBox()
    Dim Ws As Worksheet
 
    Feuil1.ComboBox1.Clear
 
    For Each Ws In ThisWorkbook.Worksheets
        Feuil1.ComboBox1.AddItem Ws.Name
    Next Ws
End Sub

Et ensuite, dans la feuille objet qui contient la ComboBox:

Code :

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

1
2
3
4
Private Sub ComboBox1_Change()
    If Feuil1.ComboBox1.ListIndex <> -1 Then _
        Worksheets(Feuil1.ComboBox1.Value).Activate
End Sub

Sinon, une autre solution pour activer une feuille

Code :

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

1
2
3
Sub BarreAccesFeuilles()
    Application.CommandBars("Workbook tabs").ShowPopup 400, 300
End Sub

michel

[Dolphy35]

Salut,

Lister les onglets :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ComboBox1.Clear
        For Each vfeuille In ActiveWorkbook.Sheets
            ComboBox1.AddItem vfeuille.Name
    Next
End Sub

sur sélection active l'onglet sélectionné :

Code :

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

1
2
3
Private Sub ComboBox1_Click()
    Sheets(ComboBox1.Value).Activate
End Sub

Dolphy

[jpo]

Merci bcp !

en fait mon souci était dans le fait de ne pas utiliser la bonne barre d'outils !!
j'utilisait la barre "FORMULAIRE" et non "boite à outils contrôles" !!

forcément ca devient + simple !!
merci pour votre réponse !!

JP