1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Dim FL1 As Worksheet
Private Sub Recherche_Click()
Dim MotCherche, Plage As Range, Cell As Range
MotCherche = Me.TextBox1.Text
ColonneRecherche = 1 'ou 2 ou 3 ou 4... à adapter
'On lance la recherche sur la colonne ColonneRecherche
Set Plage = FL1.Range(Cells(1, ColonneRecherche), _
Cells(Range("A65536").End(xlUp).Row, ColonneRecherche))
With Plage
Set C = .Find(MotCherche, LookIn:=xlValues)
If Not C Is Nothing Then 'donnée trouvée
'On place les données de la ligne dans les textbox
Me.TextBox2.Text = FL1.Cells(C.Row, 2).Value
Me.TextBox3.Text = FL1.Cells(C.Row, 3).Value
Me.TextBox4.Text = FL1.Cells(C.Row, 4).Value
Me.TextBox5.Text = FL1.Cells(C.Row, 5).Value
Else
MsgBox "Donnée non trouvée"
End If
End With
End Sub
Private Sub UserForm_Initialize()
Set FL1 = Worksheets("Feuil1") 'instance de la feuille de calculs
'permet d'utiliser FL1 à la place de Worksheets("Feuil1") partout dans l'userform
End Sub |