Discussion :

[parmi]

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 ?

[parmi]

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

[Ashireon]

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'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars("List Range Popup").Controls

et non pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars("cell").Controls