Empêcher les doublons

[doudoufly]

Salut à tous,

Voilà j'ai récupéré ce code mais il me met incompatibilité.

Où est l'erreur???

If Target.Value = "" Then Exit Sub

For Each cell In Intersect(UsedRange, Cells)
If cell.Address <> Target.Address And cell.Value = Target.Value Then
MsgBox "saisissez un autre numéro, celui-ci existe déjà"
Target.Value = ""
Target.Select
Exit For
End If
Next cell
End Sub

Si quelqu'un a une idée? ou un autre code merci par avance.

 

[ccpapy]

Re : Empêcher les doublons

bonjour,
ma version excel 2002
ton code mis en worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)

je n'obtiens aucun bug, tout fonctionne bien
à+

 

[Banzai64]

Re : Empêcher les doublons

Bonjour

2003 no problems