Bonsoir
Pas trés doué en macro!!!
Ou est l'erreur dans la macro
HTML:
For I = 8 To 655555
If Controls("TextBox1").Value = Cells(I, 1) Then
MsgBox "Vérifier ce nom semble déjà exister", vbInformation, "C'est un Doublon !!!"
Controls("Textbox1").SetFocus
Exit Sub
End If
Next I
normalement cette macro regarde dans la colonne A si la valeur de mon textbox existe, si oui il reviens sur le textbox, si non il continu ma macro.
Le blocage se situe sur cette ligne
Re bonsoir
Ca fonctionne, pour corser un peu car je m'apperçois de quelques soucis, autre que celui ci
Dans le textbox j'utilise des nombres et pour d'autre besoin lorsque je l'enregistre j'ajoute une apostrophe, mais il faudrais que le controle de doublon ne prenne pas en compte cette apostrophe.
Possible?
Re
Merci a vous deux pour cette correction
Grace a vous j'ai adapé et il me retrouve bien les doublons.
Voici le code que j'ai mis.
HTML:
ch = "'" & TextBox1 'Trim(Replace(TextBox1, "", "'"))
If Application.CountIf([A8:A65536], ch) Then
MsgBox "Vérifier ce nom semble déjà exister", vbInformation, "C'est un Doublon !!!"
Controls("Textbox1").SetFocus
Exit Sub
End If