Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 4 Or Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then Target.Offset(0, 5).Select
If Target.Column = 7 Then Target.Offset(1, -5).Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 4 Or Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then Target.Offset(0, 5).Select
If Target.Column = 7 Then Target.Offset(1, -5).Select
End Sub
voila mon claseur a un peu evoluer par rapport a l ancien et tous est OK grace a vous.
mais il y a un mais comment mette en surbrillance la ligne d erreur apres avoir repondu au message
pour une meilleur visibilité.