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