1/5 (8 avis)
Snippet vu 36 282 fois - Téléchargée 33 fois
Sub Creer_Menu_Contextuel() 'Efface tout les boutons de la sourie For z = 1 To CommandBars("Cell").Controls.Count With CommandBars("Cell") .Controls(z).Visible = False 'sinon avec l'index des boutons sur la souris remplacer par 'z' End With Next 'Crée le 1 er bouton With Application.CommandBars("Cell").Controls.Add(msoControlButton) .Caption = "Mon Menu 1" .BeginGroup = True .OnAction = "le nom de ta fonction" End With 'Crée le 2 e bouton With Application.CommandBars("Cell").Controls.Add(msoControlButton) .Caption = "Mon Menu 2" .BeginGroup = True .OnAction = "le nom de ta fonction" End With 'Crée le 3e bouton With Application.CommandBars("Cell").Controls.Add(msoControlPopup) .Caption = "Mon Menu 3" .BeginGroup = True 'Crée le 3.1 bouton With .Controls.Add(msoControlButton) .Caption = "Sous Menu 3.1" .OnAction = "Nom de ta fonction" End With 'Crée le 3.2 bouton With .Controls.Add(msoControlButton) .Caption = "Sous Menu 3.2" .OnAction = "Nom de ta fonction" End With 'Crée le 3.3 bouton With .Controls.Add(msoControlPopup) .Caption = "Sous Menu 3.3" 'Crée le 3.3.1 bouton With .Controls.Add(msoControlButton) .Caption = "Sous Menu 3.3.1" .OnAction = "Nom de ta fonction" End With End With End With End Sub Sub Supp_Menu_Contextuel() 'réinitialize la sourie Application.CommandBars("Cell").Reset End Sub
24 janv. 2013 à 15:29
C'est ce que je cherchai
22 mai 2007 à 19:32
16 mai 2007 à 22:03
Si quelqu'un à une solution.... je suis preneur
Amicalement
3 mai 2007 à 20:38
Amicalement,
Us.
14 févr. 2007 à 09:13
ce code fonctionne chez moi en Excel 2000 et 97.
Mais en 2003 excel me stop sur le - Z - des lignes suivantes.
For z = 1 To CommandBars("Cell").Controls.Count
With CommandBars("Cell")
.Controls(z).Visible = False
'sinon avec l'index des boutons sur la souris remplacer par 'z'
End With
Next
Le message d'erreur est le suivant:
ERREUR DE COMPILATION
PROJET OU BIBLIOTHEQUE INTROUVABLE.
Merci pour votre aide
famille.lelaure@club-intrenet.fr
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.