J
julio
Guest
voila je reviens à la charge avec mon userform
voici le programme que je voudrais executer lorsque j'appuie sur mon bouton "executer"
Private Sub BTresultat_Click()
Dim i As Integer
i = 1
While Cells(i, 1).Value <> ""
If Cells(i, 1).Value = TextBox1.Value Then
TextBox2.Value = Cells(i, 4).Value
TextBox3.Value = Cells(i, 8).Value
End If
i = i + 1
Wend
End Sub
L'idée c'est que EXCEL recherche dans la colonne 1 le code jusqu'a ce qu'il tombe sur la bonne ligne. Une fois la bonne ligne trouvée (i=qq chose), il copie dans les textbox les valeur des cellules de la même ligne...
Je n'arrive pas a utiliser la fonction "rechercher" en faisant une macro enregistrée.
ça ressemble a ça :
Selection.find(What:="????".Value, After:=ActiveCell, LookIn:=xlFormulas, _
' LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
' MatchCase:=False).Activate
le "???" c'est parce que je sais pas quoi mettre.
En tout cas ça marche pas...
Qu'est ce qui ne va pas dans mon programme?
Je débute, j'apprend sur le tas, petit a petit...
Merci d'avance
voici le programme que je voudrais executer lorsque j'appuie sur mon bouton "executer"
Private Sub BTresultat_Click()
Dim i As Integer
i = 1
While Cells(i, 1).Value <> ""
If Cells(i, 1).Value = TextBox1.Value Then
TextBox2.Value = Cells(i, 4).Value
TextBox3.Value = Cells(i, 8).Value
End If
i = i + 1
Wend
End Sub
L'idée c'est que EXCEL recherche dans la colonne 1 le code jusqu'a ce qu'il tombe sur la bonne ligne. Une fois la bonne ligne trouvée (i=qq chose), il copie dans les textbox les valeur des cellules de la même ligne...
Je n'arrive pas a utiliser la fonction "rechercher" en faisant une macro enregistrée.
ça ressemble a ça :
Selection.find(What:="????".Value, After:=ActiveCell, LookIn:=xlFormulas, _
' LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
' MatchCase:=False).Activate
le "???" c'est parce que je sais pas quoi mettre.
En tout cas ça marche pas...
Qu'est ce qui ne va pas dans mon programme?
Je débute, j'apprend sur le tas, petit a petit...
Merci d'avance