Déclencher un événement en fontion du contenu d'une cellule

Bonjour à tous.

Dans mon fichier, je souhaite que lorsqu'une cellule est sélectionnée en colonne "D", et que la cellule "A" correspondant à la même ligne que la cellule sélectionnée en D n'est pas vide, se déclenche un événement (dans mon ex. faire appel à la calculatrice windows).

Ma macro ne fonctionne pas correctement. L'événement se déclenche dès qu'une cellule de la colonne D est sélectionnée et déclenche autant de fois l'événement que de cellules non vides en colonne A.

Merci pour votre aide.

Bonjour

Remplace ton code par celui ci-après

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D1:D" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then
    If Not IsEmpty(Range("A" & Target.Row)) Then Call Shell("C:\Windows\System32\calc.exe")
End If
End Sub

Si ok, clique sur le v vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil

Amicalement

Merci beaucoup pour cette réponse adéquate.

Amicalement.