Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D7:D16")) Is Nothing Then
MsgBox "Ligne " & Target.Row - 6 & " de la plage 1 sélectionnée"
ElseIf Not Intersect(Target, Range("F7:F16")) Is Nothing Then
MsgBox "Ligne " & Target.Row - 6 & " de la plage 2 sélectionnée"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D7:D16")) Is Nothing Then
MsgBox "Ligne " & Target.Row - 6 & " de la plage 1 sélectionnée"
ElseIf Not Intersect(Target, Range("F7:F16")) Is Nothing Then
MsgBox "Ligne " & Target.Row - 6 & " de la plage 2 sélectionnée"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim OuSuisJe As Range
Set OuSuisJe = Selection
With OuSuisJe
MsgBox "J'ai cliqué sur la cellule " & .Address(0, 0), , "Ou suis je ?"
End With
End Sub