Bonjour les grands experts
Y a t'il un moyen de compacter le code joint en mettant quelque chose du type eval("zone"&i)
comme en javascript ou à l'image d'INDIRECT ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([zone1], Target) Is Nothing And Target.Count = 1 Then
MsgBox "ici zone1"
End If
If Not Intersect([zone2], Target) Is Nothing And Target.Count = 1 Then
MsgBox "ici zone2"
End If
If Not Intersect([zone3], Target) Is Nothing And Target.Count = 1 Then
MsgBox "ici zone3"
End If
If Not Intersect([zone4], Target) Is Nothing And Target.Count = 1 Then
MsgBox "ici zone4"
End If
End Sub