Liste déroulante dans la barre d'outils.

[Mytå]

Salut la communauté

Un petit exemple pour inserer une liste déroulante dans la barre d'outils.

Télécharger le fichier

Merci pour vos commentaires
Mytå

[dubois]

Bonjour Mytä,
Là tu m'a scotché !! ................... et avant d'aller plus loin ;
Si j'ai bien compris : Le fichier à téléchargé est une structure de base .

- Une fois ouvert , si je renomme la barre d'outil "ma barre" en "Toto" et l'attache à un
fichier xxxx. , puis que je ferme sans enregistrer le fichier téléchargé ;
La barre d'outil "Toto" est-elle toujours disponible ?
C'est à dire , qu'une fois la barre "Toto" créee , on a plus besoin du fichier de base ?

Est-ce que mon analyse tient la route , ou je suis à coté de la plaque ?
En tout cas , merci pour ton dévouement sur ce sujet.
à bientôt de te lire .
Claude.
PS: est-ce qu'il faut mettre "RESOLU" dans QUESTIONS "menu personnalisé" ?

[Mytå]

Salut Claude

Il faut que tu copies les codes du module1 dans ton fichier et les deux codes
de ThisWorbook.

Ensuite la liste déroulante fera parti de ton fichier.

Mytå

[dubois]

Bonjour Mytä,
OK compris. j'ai fouiné dans les modules pour essayer de piger un peu les codes.
Bon ! à mon niveau c'est pas évident !

Question subsidiaire importante :
Je souhaiterai maitriser le contenu de la liste ; c'est-à-dire qu'elle affiche une plage de
la feuille , et qu' ensuite , suivant le choix çà déclenche une macro.
C'était ça mon idée initiale , mais cela est-il possible ?

En définitif : comme une banale liste déroulante , mais à l' extérieur de la feuille.
amicalement ........ Claude.

[Mytå]

Salut Claude

Tu aurais du faire une nouvelle demande dans la section "Questions"

Pour ta liste sur une feuille remplace par cette macro (Boucle sur A1 à A10)

Code: Tout sélectionner

Private Sub AjoutListeDeroulanteBarrePerso()
Dim NewListeDeroulante As CommandBarComboBox
Dim I As Integer

Set NewListeDeroulante = CommandBars("Ma barre d'outils").Controls _
    .Add(Type:=msoControlComboBox)

With NewListeDeroulante
    .OnAction = "Choix"
    .Width = 200
    .Tag = "Liste"
End With

    For I = 1 To 10
        NewListeDeroulante.AddItem Sheets("Feuil1").Range("A" & I)
    Next I

Set NewListeDeroulante = Nothing

End Subext I

Et pour le traitement à effectuer

Code: Tout sélectionner

Private Sub Choix()
Dim MonBtn As CommandBarComboBox, Valeur As String

Set MonBtn = CommandBars("Ma barre d'outils").FindControl(, , "Liste")

'Ici tu places le code à excécuter
          MsgBox ("Vous avez cliquer sur : " & MonBtn.Text)
'Fin du code

Set MonBtn = Nothing
     
End Sub

Mytå