Liste déroulante dans la barre d'outils

Bonjour à tous les membres du forum!

J'ai vu, dans les astuces, une possibilité d'avoir une liste déroulante dans la barre d'outils.

J'aimerais l'appliquer.

Lorsque j'ouvre le lien de Myta, le fichier est vide. De plus, les explications m'ont parues très floues vu mon inexpérience en VBA.

Quelqu'un aurait-il la patience de me guider pas à pas sur le mode d'emploi?

Merci d'avance

Fabienne

Bonsoir, Fabienne

regarde le fichier joint

Et n'oublie pas de passer la souris sur l'userform.....

Bonne soirée

PS, si souci, ne pas hésiter

Bonjour cousinHub et bonjour à tous!

Merci pour ta réponse mais lorsque je clique sur OK, rien ne se passe. J'ai essayé 2 fois....ou alors, je ne fais pas ce qu'il faut??

Est-il possible que ce soit du à la version 2007 ?

Bonne journée,

Fabienne

Bonsoir,

Effectivement, je n'avais pas fait attention, tu es sous 2007...

Wait a minut, comme j'ai reformaté mon PC il y a quelques jours, je réinstalle 2007 afin de faire des tests, ou de trouver une autre solution..

Bonne soirée à tous

Merci pour ta réponse!

Bonne soirée à toi ( pour nous, la journée vient de commencer!)

J'attends donc de tes nouvelles!!

Fabienne

Bonjour Fabienne, cousinhub,

le code de cousinhub fonctionne très bien sur 2007, chez moi en tout cas

regarde en haut du ruban à droite "Compléments"

clique dessus et la barre s'affiche

Bonne journée

Claude

Bonjour Claude! et merci pour ta réponse.

Effectivement, en cliquant sur complément je vois la liste déroulante. On ne se refait pas....

Néanmoins, lorsque je clique sur action1, l'appli me dit que je ne peux l'ouvrir qu'en lecture seule car actuellement utilisée par moi-même!

Si je clique sur notifier ou que j'essaie de l'enregistrer sous un autre nom, puis que je reclique sur action1, alors le message est "impossible, il se peut que les macros soient désactivées"

Après contrôle, dans les options, toutes les macros sont autorisées (je sais que ce n'est pas bien!)

Quelle peut être, à ton avis, l'origine du pb et comment le contourner?

Merci d'avance pour votre aide à tous les deux

Fabienne

Re-,

@ Claude : merci pour ta précision, je viens d'essayer, et effectivement, le menu déroulant s'affiche dans l'onglet "Compléments" du ruban. En train de télécharger les mises à jour (290 Mo), et avec le débit local, ça prend du temps...

@ Fabienne, si c'est bien cela que tu désirais

Bonne soirée

-- Mar Juin 01, 2010 7:43 pm --

Re-,

As-tu essayé d'enregistrer le fichier, au lieu de l'ouvrir directement du forum?

Re!

ça y est, j'ai réussi à le renommer et cela fonctionne! Génial!

Comment faire maintenant pour enregistrer les différentes actions?

Merci

Fabienne

Re-,

dans l'éditeur VBA, tu as le module "BarreMenu"

tout en bas, tu as les différentes procédures : "Private Sub PersoProc1()", "Private Sub PersoProc2()".....

J'ai mis en exemple des MsgBox

Tu peux y mettre tes codes

Tu peux également mettre dans un autre module, que tu rajoutes, tu déplaces ces procédures, et tu y colles tes codes

Pour les captions des menus "Action 1", "Action 2"... tu peux les modifier dans ces lignes :

Const CaptionBarre = "Menu deroulant dans barre d'outils"
Const Caption1 = "Action 1"
Const Caption2 = "Action 2"
....
....

et enfin, pour mettre des lignes pleines entre les lignes du menu déroulant, il te suffit de rajouter BeginGroup:

With LBouton
      .BeginGroup = True
       ....

Bon courage

Re et merci!!!

Je vais essayer de me débrouiller avec tes explications.

Je vous tiens informés du résultat.

Bonne nuit!

Fabienne

-- Mer Juin 02, 2010 11:03 am --

Bonjour à tous!

Je me "dépatouille" plus ou moins mais je n'arrive pas à modifier les captions.

Lorsque, dans le code, je change, par exemple, Action 1 par "Insérer", rien ne se passe au niveau de la liste déroulante.

Qu'est ce qui m'échappe?

Merci d'avance!

Fabienne

Bonjour,

Sans trop m'avancer, tu remplace simplement les MsgBox par ton code

exemple:

Private Sub PersoProc2()
  MsgBox "2 ème Action"
  Range("e10") = "Toto"
  'ou Call Insérer
End Sub

Cousinhub nous confirmera

Bonne journée

Claude

Bonjour Claude !

Merci pour ta réponse, je vais essayer et te tiens informé.

C'est pas évident les débuts en VBA mais j'aime ça!

Fabienne

-- Mer Juin 02, 2010 4:11 pm --

Re!

Je dois être nulle,

Je n'y arrive pas!

Quelles sont, pas à pas, les actions à effectuer?

Merci d'avance pour votre patience à tous les deux

Fabienne

Bonjour le forum!

ça y est! au bout de 10 jours, j'ai réussi !!!!

Il ne faut jamais désespérer et toujours persévérer.

Bonne journée à tous et encore merci!

Fabienne

Bonsoir Fabienne,

Ton dernier édit était passé inaperçu,

pour ta gouverne, il faut 24h entre 2 messages consécutifs pour que le sujet remonte.

Tu t'en es sortie seule, c'est encore mieux

à+....Claude

Merci Claude et bonne journée!

Fabienne