combobox dans barre d'outil perso

  • Initiateur de la discussion Initiateur de la discussion drone
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

drone

XLDnaute Nouveau
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 :

Code:
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.
 
Re : combobox dans barre d'outil perso

Bonjour,
Essaies ceci
Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour