combobox dans barre d'outil perso

[drone]

Bonjour,
j'essaye de créer une combobox dans une barre d'outils perso.
J'aimerais y mettre des valeurs qui sont dans la feuille "acceuil" dans la plage nommée "liste_tables", "D6: D28".
cette plage contient des nom d'onglets (pas tous les onglets du classeur) vers lesquels j'aimerais me redirigé à la sélection dans cette combobox.

voici ce que j'ai :

Sub CreateToolbar()
    On Error Resume Next
    Dim Tbar As CommandBar
    Set Tbar = CommandBars.Add
    With Tbar
        .Name = "mabarre"
        .Visible = True
    End With
    Set NewButn = Tbar.Controls.Add(Type:=msoControlComboBox)
    With NewButn
        .List = Range("Accueil!D6:D28")
            
        
    End With
 End Sub

J'ai la combobox dans ma barre d'outils mais elle est vide.

Merci d'avance.

 

[RENAUDER]

Re : combobox dans barre d'outil perso

Bonjour,
Essaies ceci

Sub CreateToolbar()
    On Error Resume Next
    Dim Tbar As CommandBar
    Set Tbar = CommandBars.Add
    Set Plage = Range("Accueil!D6:D28")
    With Tbar
        .Name = "mabarre"
        .Visible = True
    End With
    Set NewButn = Tbar.Controls.Add(Type:=msoControlComboBox)
    With NewButn
        For Each c In Plage
            .AddItem c.Value
        Next c
    End With
End Sub

 

[drone]

Re : combobox dans barre d'outil perso

merci beaucoup.
ça fonctionne.