gourdin
XLDnaute Impliqué
Bonjour
Pourquoi ce petit code macro affiche un message de débogage à la ligne : Range("B4").Select ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B14")) Is Nothing Then
Sheets("feuil2").Select
Range("B4").Select
End If
End Sub
Merci
Pourquoi ce petit code macro affiche un message de débogage à la ligne : Range("B4").Select ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B14")) Is Nothing Then
Sheets("feuil2").Select
Range("B4").Select
End If
End Sub
Merci