efface menu clic droit sourie

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

alfazoulou

XLDnaute Occasionnel
Bonjour,
je voudrais effacer le menu contextuel du clic droit de la sourie, j'ai récupéré ce bout de code qui par ailleurs fonctionne dans un module mais pas quand je le place dans Worksheet_Activate:

Private Sub Worksheet_Activate()

'réinitialize la sourie (parceque j'avais affecté d'autres menus)
Application.CommandBars("Cell").Reset
'Efface tout les boutons de la sourie
For Z = 1 To CommandBars("Cell").Controls.Count
With CommandBars("Cell")
.Controls(Z).Visible = False
End With


End Sub

merci
 
Re : efface menu clic droit sourie

Bonsoir,

Tu es sûr de l'evenement ?
Ca ne serait pas plutôt Workbook_SheetActivate ?

Lorsque tu es dans ThisWorkbook en haut de la fenetre de code tu as 2 listes déroulantes.
A gauche tu choisis Workbook
A droite tu choisis l'evenement qui t'interesse

eric
 
Re : efface menu clic droit sourie

Bonsoir,

Tu es sûr de l'evenement ?
Ca ne serait pas plutôt Workbook_SheetActivate ?

Lorsque tu es dans ThisWorkbook en haut de la fenetre de code tu as 2 listes déroulantes.
A gauche tu choisis Workbook
A droite tu choisis l'evenement qui t'interesse

eric
Non justement ca je voudrais affecter un nouveau menu sur clic droit à chaque feuille de mon classeur, donc quand je passe d'une feuille à l'autre, il faut effacer le menu et créer celui correspondant à la nouvelle feuille.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
1 K
Retour