control textbox

[CB60]

Bonsoir
Pas trés doué en macro!!!
Ou est l'erreur dans la macro

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

 If Controls("TextBox1").Value = Cells(I, 1)

merci

 

[soenda]

Re : control textbox

Bonjour le fil, CB60

Peut-être

For I = 8 To [COLOR=red][B]65536[/B][/COLOR]

A plus

REM: l'usage d'une boucle dans le cas présent, n'est peut-être pas le plus efficace...

 

[CB60]

Re : control textbox

Re
merci, je ne sais pas ou j'ai étais cherché ce nombre de ligne,
étourderie peut être??

 

[job75]

Re : control textbox

Bonjour CB60, soenda,

Plutôt qu'une boucle For, on doit pouvoir écrire directement :

If Application.CountIf(Columns(1), Controls("TextBox1").Value) Then

A+

 

[soenda]

Re : control textbox

Re,
Bonjour Job75

Si on commence à la ligne 8, on devrait peut-être écrire

Application.CountIf([A8:A65536], TextBox1)

De plus, on peut écrire TextBox1 car la propriété .Value est la propriété par défaut de ce contrôle

A plus

 

[CB60]

Re : control textbox

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?

 

[soenda]

Re : control textbox

Re,

Je ferai probablement comme ça

Dim ch As String
 
ch = Trim(Replace(TextBox1, "[B][COLOR=red]'[/COLOR][/B]", ""))
If Application.CountIf([A8:A65536], ch) ...

A plus

 

[CB60]

Re : control textbox

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.

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

 

[soenda]

Re : control textbox

Re,

ch = "'" & TextBox1

Les apostrophes, c'était donc dans la feuille ...

Rem : tu peux remplacer

Controls("Textbox1").SetFocus

Par

Textbox1.SetFocus

Bonne continuation

A plus

 

[CB60]

Re : control textbox

Merci merci
Oui il était bien dans la feuille, je corrige le reste
Bonne soirée