Recherche V dans USF - avec fichier exemple

[alex53]

Bonjour le forum,

Tout est dans le fichier ci-joint.
J'explique rapidement mon probleme:
Je souhaite qu un textbox2 se remplisse automatiquement en fonction de ce qui est dans un textbox1 (info du textbox1 qui provient d'une base de donnees dans excel. tout fonctionne, sauf quand je souhaite rentrer en textbox1 autre chose que ce qui est dans ma base de donnee excel.

Tout est clair dans le peit exemple ci-joint je pense.

Merci pour votre aide
Alex 53

 

[job75]

Re : Recherche V dans USF - avec fichier exemple

Bonjour alex53,

Utilisez par exemple cette macro :

Private Sub TextBox1_Change()
Dim lig As Variant
TextBox2 = ""
lig = Application.Match(TextBox1, [essai].Columns(1), 0)
If IsNumeric(lig) Then TextBox2 = [essai].Cells(lig, 2)
End Sub

A+

 

[job75]

Re : Recherche V dans USF - avec fichier exemple

Re,

On peut aussi utiliser cette macro :

Private Sub TextBox1_Change()
Dim v As Variant
TextBox2 = ""
v = Application.VLookup(TextBox1, [essai], 2, 0)
If Not IsError(v) Then TextBox2 = v
End Sub

Mais la méthode du post #2 a un avantage : elle permet d'accéder à la cellule de destination.

Et donc d'afficher éventuellement les valeurs d'erreur et/ou les formules.

Voir fichier joint.

A+

 

[alex53]

Re : Recherche V dans USF - avec fichier exemple

Bonjour Job75.

Ca marche du tonnerre. Effectivement la solution 2 marche meme en cas d erreur.

Bravo!