Erreur sur boucle simple

[Temjeh]

Bonsoir et merci D'avance

j'ai ceci dans un Uform sous un bouton:

If ComboBox1.Value = "" Then
MsgBox "Choisir un territoire"
Exit Sub
Else
For i = 1 To Range("A65000").End(xlUp).Row
If Range("A" & i).Value = ComboBox1.Value Then
Range("A" & i).Offset(0, 2).Select
GoTo fin
End If
Next i

End If
fin:

Je cherche une boucle et je ne trouve pas ...elle a l'air correct!
sur ColA de haut en bas et si trouve la valeur de combo select 2 cell a coté de cette ligne
Ou est mon erreur !!!???
J'y ai même essayé de lui inclure le nom de la feuille ..sheets("Base").Range("A" & i).Value ...
J'essaie le test sur Range("A65000").End(xlUp).Row et c'est bon
J'essaie le test sur Range("A" & i).Value = ComboBox1.Value et c'est bon
Mais en loope ce n'est pas bon il ne se passe rien
Merci

Temjeh

 

[wilfried_42]

Re : Erreur sur boucle simple

Bonjour Temjeh

Sortir d'une boucle for netx par un goto n'est pas recommandé, surtout si tu as une autre boucle derière dur style for i .......Next i, la premiere n'etat pas close, ou va aller le prochain next i

je ne sais pas neanmois si l'erreur vient de la mais personnellement j'aurais ecrit :

If ComboBox1.Value = "" Then MsgBox "Choisir un territoire" : Exit Sub
For i = 1 To Range("A65000").End(xlUp).Row
If Range("A" & i).Value = ComboBox1.Value Then Range("A" & i).Offset(0, 2).Select : exit for
Next i

 

[Temjeh]

Re : Erreur sur boucle simple

Merci beaucoup

Je te joint un Userform tres réduit car même avec ton code il ne se passe rien

Merci

Temjeh

PS: pour la demo j'y ai mis un Textbox

 

[Mytå]

Re : Erreur sur boucle simple

Salut le forum

Temjeh une textbox c'est du texte

If Range("A" & i).Value = TextBox1.Text...

Mytå

 

[wilfried_42]

Re : Erreur sur boucle simple

Bonkour Myta

Merci, je n'avais meme pas vu le .value

 

[Temjeh]

Re : Erreur sur boucle simple

Merci beaucoup

Une simple erreur de .text

A+

Temjeh

PS:Ok je m'efforce aussi de faire mes boucle plus propre