Re : Rendre une saisie impossible
bonsoir à tous
j'apporterais la petite modification suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:C65535")) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
ligne = Target.Row
If Cells(ligne,1) = " - " Then Exit Sub
For i = 2 To ligne - 1
If Cells(i, 1) = Cells(ligne, 1) Then
MsgBox ("Ces données existent déjà, Veuillez corriger")
Target = ""
Cells(Target.Row, Target.Column).Select
End If
Next i
End Sub
pour le cas où il me viendrait l'idée saugrenue de ne pas faire les saisies sur la première ligne vide mais bien en-dessous.
Jacou