Macro applicable à plusieurs cellules

Question

Bonjour,

J'ai créé une macro qui m'affiche un calendrier lorsque je fait un clic droit.
Ce calendrier s'affiche sur toutes les cellules de ma feuille alors je souhaiterais qu'il ne s'affiche que lorsque je fais un clic droit sur les cellues C14, C15, P14 et P15.

Auriez-vous une solutions ?

Merci d'avance.

michel_m · Answer

bonjour

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim plage As Range
Set plage = Union(Range("C14:C15"), Range("P14:P15"))
If Intersect(Target, plage) Is Nothing Then Exit Sub
MsgBox "gagné"
End Sub

Macro applicable à plusieurs cellules

1 réponse

Discussions similaires

Newsletters