Liste déroulante dans la barre d'outils

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å

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é" ?

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å

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.

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)

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

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å