Modifier le menu contextuel de la souris (code vba excel)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 34 858 fois - Téléchargée 31 fois
Contenu du snippet
Ce code vous permet (suite à la demande d'un membre ...) d'éffacer le menu contextuel de votre sourie (click droit) et de créer le votre personnaliser avec des actions rattaché à vos fonctions ...
Cela peut vous être utile ... enfin il l'a été pour moi .
Cela peut vous être utile ... enfin il l'a été pour moi .
Source / Exemple :
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
A voir également
- Vba excel menu contextuel personnalisé
- Menu contextuel excel - Meilleures réponses
- Application.commandbars - Meilleures réponses
- Visual Basic / VB.NET : Vba excel - gestion de menus contextuels (clic-droit) prête à l - Guide
- Visual Basic / VB.NET : Zone de texte : menu contextuel personnalisé sur clic droit - CodeS S - Guide
- Menu contextuel personnalisable avec choix d'images - Codes sources - Javascript (Menu & Co)
- Javascript : Menu contextuel personnalisable pour clic droit - CodeS SourceS - Guide
- Problème avec menu déroullent vba excel ✓ - Forum - Visual Basic 6
C'est ce que je cherchai
Si quelqu'un à une solution.... je suis preneur
Amicalement
- Messages postés
-
2065
- Date d'inscription
- lundi 11 avril 2005
- Statut
- Membre
- Dernière intervention
- 14 mars 2016
10Amicalement,
Us.
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.