Détecter des doublons à la saisie sous Excel 2000 (résolu)

fdatch le 10 octobre 2009 à 11h15

Bonjour,
Dans une liste en cours de saisie, colonne A, je renseigne des valeurs quelconques, chiffres, lettres, codes avec tirets, etc...
Lors de la saisie d'une valeur déjà existante dans la liste, et au moment ou je fais "enter" pour valider cette cellule, que faut-il faire pour qu'un contrôle soit effectué sur toute la liste de cette colonne, et prévenir par une fenêtre "déjà existant" (par exemple).

J'ai trouvé ça sur la toile.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 1 Then 'Concerne la colonne A

If Application.WorksheetFunction. _
CountIf(Range('A:A'), Target.Value) > 1 Then

MsgBox 'Valeur déjà saisie !!! -- Veuillez recommencer'
Target.Value = ''
Target.Select
End If

End If

End Sub

Comment l'enregistrer ?

Merci.

-->Message édité par fdatch le 10/10/2009 11:51:23<--

répondre

fdatch le 10 octobre 2009 à 11h38

Re bonjour à tous,
C'est simple mais il faut y penser :

Dans la colonne A, menu données, validation, onglet option personnaliser, formule =NB.SI($A:$A;$A1)=1
Et dans l'onglet alerte d'erreur, message = "code déjà existant".

Problème résolu.

Cordialement.

répondre