Veririfier si ID existe déjà URGENT (RESOLU)

[oxydedefer]

Bonjour à tous ,
Voila j'ai un gros problème avec une vérification , , voilà la situation , j ai un ID qui est composé de 3 parties , c'est 3 partie je les écris dans une cellule dans le format ######-###-## , mon problème est que je ne dois pas y avoir de doublons je vous ai fais un exemple , désolé de mettre que c'est une urgence mais je dois rentre mon projet mardi ... merci pour vos réponse

 

[pierrejean]

Re : Veririfier si ID existe déjà URGENT

bonjour oxydedefer

L'urgence ne justifie pas que l'on ne prenne pas le temps d'exposer convenablement son problème
dans quelle(s) cellule(s) ecris-tu l'ID en question ??
Ou doit-on verifier qu'elle existe deja ??

 

[pierrejean]

Re : Veririfier si ID existe déjà URGENT

Re

PS: je viens par hasard de decouvrir ton Userform
Vois si cela te convient

 

[phlaurent55]

Re : Veririfier si ID existe déjà URGENT

Bonjour FeO

remplace ton code par ceci:

Worksheets("Liste de la clientel").Activate
fin = Sheets("Liste de la clientel").Cells(65535, 1).End(xlUp).Row + 1
ActiveSheet.Cells(fin, 1) = Format(reg1.Value, "######""-""###"".""##")

For i = 1 To fin
    If Range("A" & fin).Value = Format(reg1.Value, "######""-""###"".""##") Then
        MsgBox "Le numéro de registre est déjà existant", vbCritical, "Erreur de syntaxe "
        Range("A" & fin).ClearContents
    End If
    Exit For
Next i

à+
Philippe

Edit:Bonjour Pierre-Jean

Edit2: je joins le fichier suite à une modif de l'USF

 

[oxydedefer]

Re : Veririfier si ID existe déjà URGENT

C'est exactement ce que je cherchais , je vous dois une fière chandelle ,merci a vous deux merci merci .