eviter saisie identique

[lodam]

bonsoir à tous
j'ai lu quelques messages sur les doublons mais je ne comprends pas toujours les solutions proposées car je ne maîtrise pas tout.

Je voudrais simplement bloquer l'entrée via un userform d'une valeur déjà existante dans une colonne de données.
Je vous joins le fichier et je continue à chercher.
merci pour votre aide
bonne nuit
damien [file name=eviterdoublons.zip size=10437]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/eviterdoublons.zip[/file]

 

[Marc_du_78]

Bonsoirlodam,
essaie ceci :
Interdire saisie doublons - Données, validation, personalisé
ou A est le champ concerné (A3:A200) 'A adapter
=NB.SI($A$3:$A$150;A3)<2
Bonne soirée

 

[Gael]

Bonsoir Damien, bonsoir Marc,

Je ne suis pas un pro du VBA, mais je t'envoie un essai ci-joint qui a l'air de marcher en souhaitant qu'un XLDien plus confirmé validera la modif dans les règles de l'art.

J'ai rajouté une plage nommée variable pour qu'elle contienne tous les codes au fur et à mesure de leur création:

=DECALER(Feuil1!$A$7;;;NBVAL(Feuil1!$A:$A)-1;1)

Puis le code suivant en débit de procédure:

With Range('Codes')
Set trf = .Find(code.Value, LookIn:=xlValues, lookat:=xlWhole)
End With
If Not trf Is Nothing Then
MsgBox 'code en double !', , 'c'est nul !'
Else...

S'il y a un code en double, le userform reste affiché pour permettre une resaisie.

@+

Gael

Comme je vois venir au moins une remarque, n'oublie pas de définir la variable:

Dim Trf As Range

@+

Gael

[file name=eviterdoublons_V1.zip size=11693]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/eviterdoublons_V1.zip[/file]

Message édité par: Gael, à: 21/04/2006 00:19

 

[lodam]

ok, merci à tous les deux !!

ça marche bien !
merci encore
bonne journée
damien