[vba-E2003] problème boucle sur colonne

bonjour,

L'utilisateur entre une valeur dans une textbox(txtrecherche)

j'essaie de retrouver cette valeur dans la colonne b
et si elle existe
modifie des autres textbox

voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub cmdValider_Click() Dim i As Integer   i = 2 If txtRecherche = "" Then Exit Sub While Feuil1.Cells(i, 2) <> "" If Feuil1.Cells(i, 2)= txtRecherche Then txtNom = Feuil1.Cells(i, 1) txtNumClient = Feuil1.Cells(i, 2) Exit Sub   End If i= i + 1 Wend lblRapport.Caption = i 'test pour voir si la boucle se fait complètement End Sub

---

La boucle se fait complètement donc elle ne s'arrete pas à la condition
=> les textbox ne sont pas modifier


une idée de mon erreur

le texte recherché est numérique ou alphanumérique?

Moi je rajouterais .value après les cell

Code:

---

Feuil1.Cells(i, 2).value

---

j'ai essayé ce que tu m'as dit mais cela ne change rien


l

essai de convertir en texte la valeur de la cellule

Code:

---

if cstr(Feuil1.Cells(i, 2).value=txtrecherche then

---

ok ,c'est bon un grand merci à toi


voici le code rectifié

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub cmdValider_Click() Dim i As Integer   i = 2 If txtRecherche = "" Then Exit Sub While Feuil1.Cells(i, 2).Value <> 0 If txtRecherche = CStr(Feuil1.Cells(i, 2).Value) Then txtNom = CStr(Feuil1.Cells(i, 1).Value) txtNumClient = CStr(Feuil1.Cells(i, 2).Value) Exit Sub End If i = i + 1 Wend lblRapport.Caption = i End Sub

---