remplir des textbox avec données venant de 2 feuilles

[donpopo]

Bonjour le forum,

J'ai un userform avec une listbox dans laquelle je sélectionne un item. Dans des textbox, j'affiche les renseignement dépendants de l'élément que j'ai choisi (données de facturation). Jusque là pas de problème.

Mais je souhaiterais récupérer d'autres renseignements sur une autre feuille (comme les coordonnées du client).

Là je bloque.

Quelqu'un aurait il une idée?

J'ai joint un petit exemple pour éclaircir mon désir.

Bien à vous

donpopo

 

[Guest]

Re : remplir des textbox avec données venant de 2 feuilles

Bonjour,

Private Sub ListBox1_Click()
    Sheets("Feuil2").Select
    Dim c  As Range
    With Sheets("Feuil2")
        ligneselfact = ListBox1.ListIndex + 1
        TextBox1 = Range("A" & ligneselfact).Value          'Afficher données correspondantes à la facture
        TextBox6 = Range("C" & ligneselfact).Value
        TextBox7 = Range("E" & ligneselfact).Value
        TextBox8 = Range("F" & ligneselfact).Value
 
    End With
    Set c = Sheets("Feuil1").Range("A:A").Find(what:=TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, MatchCase:=True)
    If Not c Is Nothing Then
        TextBox2 = c(1, 2)
        TextBox3 = c(1, 3)
        TextBox5 = c(1, 4)
    End If
End Sub

Voir L'aide excel sur .find de l'objet Range.

A+

 

[pierrejean]

Re : remplir des textbox avec données venant de 2 feuilles

bonjour donpopo

Vois si cela te convient
Edit: Salut Hasco 🙂 🙂

 

[donpopo]

Re : remplir des textbox avec données venant de 2 feuilles

Bonjour à tous deux

Et merci! Vos idées se rejoignent et me conviennent.

Cependant comme le dit Hasco, je vais essayer de comprendre l'instruction Find, car plusieurs arguments y sont liés, et j'aime connaître les fonctions que j'utilise.

Merci encore

A+