Bonjour le forum
Bonjour ZORRO30, bonjour Gérard
En VBA (court mais efficace). A adapter ==> ici colonne 1 (A)
'Debra Dalgleish, mpep
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
If Application.WorksheetFunction. _
CountIf(Range("A:A"), Target.Value) > 1 Then
MsgBox "Cette saisie existe déjà !!!!!"
Target.Value = ""
Target.Select
End If
End If
End Sub
@++ Eric C