Effectivement, je viens de faire un test avec un tableau et ça ne fonctionne pas...
Est-ce nécessaire pour toi d'utiliser un tableau dans ce cas précis ?
Effectivement, je viens de faire un test avec un tableau et ça ne fonctionne pas...
Est-ce nécessaire pour toi d'utiliser un tableau dans ce cas précis ?
Je viens de trouver la solution pour un tableau...
Il suffit de changer "cell" par "List Range Popup" partout où c'est spécifié
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Sub EffacerMenus() Dim Menu As Variant For Each Menu In Application.CommandBars("List Range Popup").Controls If Menu.Tag = "Fonction1" Or _ Menu.Tag = "Fonction2" Then Menu.Delete Next Menu End Sub
JE mets le sujet en resolu en fait depuis le début il se pourrait que ce soit le fait que ma zone était un tableau.
Dans tous les cas je te remercie de ta patience et de ton intérêt à mon problème.
Donc a savoir le menu contextuel pour un tableau
c'estet non pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part Application.CommandBars("List Range Popup").Controls
Code : Sélectionner tout - Visualiser dans une fenêtre à part Application.CommandBars("cell").Controls
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager