Menu contextuel pour une cellule donnée et non l'ensemble

Bonjour tout le monde

Je cherche à créer un menu contextuel spécifique à quelques cellules d'une feuille.

Je sais comment créer un menu contextuel pour l'ensemble des cellules mais je n'arrive pas à trouver pour une cellule donnée sur une feuille donnée

J'aimerais bien connaître le comment mais surtout savoir si c'est possible, que je cherche pas pour rien

Bonne journée à tous

Bonjour,

Dans le module de la feuille, quelque chose dans ce style, a adapter bien evidemment.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Plage As Range Set Plage = Intersect(Target, Range("A1:C10")) If Not Plage Is Nothing Then Plage.Select 'Apparition de ton menu contextuel 'Cancel=True 'Empeche le menu standard de s'afficher End If End Sub

---

Cordialement,

Tirex28/