MsgBox pour lecture d'une case

Bonjour.

J'ai fait un code pour cliquer dans la case A7 par exemple et qu'une msg box s'ouvre en affichant le contenu de cette case.

Ça marche bien. mais j'aimerais étendre ma formule à toute les case de la colonne A à partir de A5.

pouvez-vous m'aider. ?

Merci

Private Sub Worksheet_SelectionChange(ByVal r As Range)

If Not Intersect(r, Range("A7")) Is Nothing Then
MsgBox Range("A7")
End If
End Sub

Bonjour,

Essayez ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A5:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then
    MsgBox Range("A" & Target.Row)
End If
End Sub

Puis évitez de changez la définition Target en r. C'est défini de base par Excel et cela n'apporte rien de plus de le changer

Si ok -->

Cordialement