Discussion :

[stargates]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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

Moi je rajouterais .value après les cell

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.Cells(i, 2).value

[stargates]

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


l

[jfontaine]

essai de convertir en texte la valeur de la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[stargates]

ok ,c'est bon un grand merci à toi


voici le code rectifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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