Discussion :

[roudy78]

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

[tirex28]

Bonjour,

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

Code :

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

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/