Chouchensb
Messages postés64Date d'inscriptionjeudi 3 mars 2005StatutMembreDernière intervention 2 septembre 2010
-
8 avril 2005 à 23:24
Chouchensb
Messages postés64Date d'inscriptionjeudi 3 mars 2005StatutMembreDernière intervention 2 septembre 2010
-
9 avril 2005 à 00:29
Bonjour à tous,
Je voudrais insérer une liste déroulante dans une barre d'outils personnelle: est-ce possible ?
Je souhaite en fait afficher dans cette liste toutes les feuilles excel du classeur actif (afin d'avoir un accès plus rapide à chacune de ces feuilles).
Chouchensb
Messages postés64Date d'inscriptionjeudi 3 mars 2005StatutMembreDernière intervention 2 septembre 2010 9 avril 2005 à 00:29
Oups, effectivement, j'avais pas précisé que c'était pour du VBA. Mais c'est pas grave, il suffisait en fait juste de chercher dans l'aide de Microsoft pour trouver la réponse (honte à moi d'avoir posé cette question !). Pour info, il suffit juste de coder:
Application.CommandBars.Add(Name:="Ma Barre Outils").Visible = True
With Application.CommandBars("Ma Barre Outils")
.Controls.Add(Type:=msoControlComboBox).Caption = "Ma liste
End With
Voilà, c'était pas si dur que ça en fait. Le prochain coup, je chercherai un peu plus dans l'aide avant de poster directement des messages sur le forum. Néanmoins, merci beaucoup pour ton aide.
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 8 avril 2005 à 23:59
Salut
Oui, il te suffit de commencer par insérer une Picture pour servir de support à ta barre d'outils. Sur cette Picture, tu pourras mettre pratiquement ce que tu veux : Bouton graphiques, ComboBox ...
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Chouchensb
Messages postés64Date d'inscriptionjeudi 3 mars 2005StatutMembreDernière intervention 2 septembre 2010 9 avril 2005 à 00:09
Ouh là là, ça a pas l'air d'être simple çà (je débute en VBA, va falloir être indulgent avec moi ;o) ). Imaginons que j'utilise le code suivant pour créer ma barre d'outils, qu'est ce que je dois rajouter comme code pour ajouter une Picture et une liste déroulante ?
Application.CommandBars.Add(Name:="Ma Barre Outils").Visible = True
With Application.CommandBars("Ma Barre Outils")
.Controls.Add(Type:=msoControlButton).Caption = "Bouton 1"
.Controls.Add(Type:=msoControlButton).Caption = "Bouton2"
End With