Bonjour Medkabbaj, bonjour le forum,
En pièce jointe ton fichier modifié avec le code ci-dessous :
Private Sub TextBox1_Change() 'au changement dans la TextBox1
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Set O = Worksheets("Feuil1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
Me.Label2.Caption = "" 'vide la Label2
If Me.TextBox1.Value = "" Then Exit Sub 'si la TextBox1 est effacée, sort de la procédure
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
'si la valeur de la TetxBox1 est égale à la donnée ligne I colonne 1 de TV (convertie en lettre),
'récupère dans la Label2 le nom et le prenom de la ligne I (séparés par un espace) et sort de la boucle
If Me.TextBox1.Value = CStr(TV(I, 1)) Then Me.Label2.Caption = TV(I, 2) & " " & TV(I, 3): Exit For
Next I 'prochaine ligne de la boucle
End Sub
Le fichier :
[Édition]
Bonjour GMB, nos posts se sont croisés...