popup ou menu deroulants en VBA ??

Question

Bonjour !

j'ai cr&#233;e des macros en vba pour pouvoir selectionner dans une liste certains textes par un clic droit. Ayant beaucoup de choses dans ma liste, je voudrais savoir si qq1 sait comment faire pour creer des groupes dans ces menus.
Un peu comme Programmes\Accessoires\outils systemes...

Un grand merci d'avance a qui pourra m'aider !

Michol

valtrase · Answer

Lut,
Ce bout de code r&#233;cup&#233;r&#233; sur la toile devrai bien te servir. Apr&#233;s quelles modif bien sur.
Ici on modifie le popup sur clic droit dans une cellule
  
Sub InsereMenuContextuePopUp() 


   With Application.CommandBars( "Cell" ) 


      With .Controls.Add(msoControlPopup) 


         .Caption = "Exemple" 


         .BeginGroup = False 


         ' Sous-menu 1 (Exemple 1.1) 


         .Controls.Add (msoControlButton) 


         .Controls( 1 ).Caption = "Exemple 1.1" 


         With .Controls( 1 ) 


            .OnAction = "Affiche" 


            .FaceId = 351 


         End With 


         ' Sous-menu 2 (Exemple 1.2) 


         .Controls.Add (msoControlButton) 


         .Controls( 2 ).Caption = "Exemple 1.2" 


         With .Controls( 2 ) 


            .OnAction = "Affiche" 


            .FaceId = 352 


         End With 


      End With 


   End With 


End Sub 


'Le code pour supprimer le menu contextuel. 


Sub SupprimeMenuContextuel() 


   Application.CommandBars( "Cell" ).Reset 


End Sub 


'Le code de l'action associ&#233;e &#224; l'item Exemple 


Sub Affiche() 


   Dim Msg, Style, Title 


   Msg = "Vous avez ajout&#233; un item intitul&#233; dans le menu Outils" 


   Style = vbYes 


   Title = "Ajout d'item dans menu contextuel - &#169; Eric RENAUD - 11/1999" 


   Response = MsgBox(Msg, Style, Title) 


End Sub 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Michol · Answer

MERCI !



Je pense que cela va bien m'aider meme si ce code necessite beaucoup de
modifs dans mon cas car mes listes a faire apparaitre sont tri&#233;s dans
des colones d'une feuille X.



Mais bon je vais me pencher sur le probleme sinon je risque d'avoir a faire une ligne de code pour chaque element de ma liste.



Salutations

Micha&#235;l

Popup ou menu deroulants en VBA ??

2 réponses

Discussions similaires