Si forme appartient à plage de donnée, alors

Bonjour à tout le forum,

Je voudrais faire la requête suivante : " Si le bouton qui a été cliqué appartient à la plage nommée "Commune1", alors faire l'action "Y" " (peu importe Y)

Le problème, c'est que In ne marche pas avec If :

If ActiveSheet.Shapes(application.Caller) in Range(Commune1) Then
  Sheets("Donnée_vierge1").Range("D2") = Sheets("Donnée_vierge1").Range("D2") + 1
    End If

et lorsque je remplace "in" par "=" j'ai une erreur 13 : incompabilité de type

Merci pour vos lumières,

ToM

Bonjour

Au risque de ne pas avoir compris, si c'est le cas n'hésites pas joins un fichier

Essayes

Sub test()
If Not Intersect(Range(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address), Range("Commune1")) Is Nothing Then
    MsgBox "Coucou"
'    Sheets("Donnée_vierge1").Range("D2") = Sheets("Donnée_vierge1").Range("D2") + 1
  End If
End Sub

"Coucou", lol

Eh ben c'est tout à fait ce que je voulais, ça marche très bien

Merci, bonne aprem et à bientôt

ToM