Excel VBA 2003 - combobox

Version imprimable

16/05/2007, 14h24
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

bonjour

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

Code:

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:

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:

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

michel

Salut,

Lister les onglets :

Code:

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:

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

Dolphy ;)

23/05/2007, 15h26
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