Macro applicable à plusieurs cellules

Driou13004 -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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.
Configuration: Windows XP Internet Explorer 6.0

1 réponse

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    0