Discussion :

[revemane]

bonjour
je souhaite afficher dans un userform les transaction d'un client

je m'explique:

j'ai un userform pour lequel j'ai une liste deroulante qui me permet de sélectionner un nom de client et que me donne toute les info nécessaires ( prenom, adresse, etc) et je souhaiterai en plus de faire apparaitre un tableau avec les 5 ou meme toute les transactions de ce client

et que quand je selectionne un autre client avec la liste deroulante que ce tableau se mette a jour avec les transaction du new client

merci

[aalex_38]

Plusieurs façons existent, il te faut trouver (dans un onglet spécifique) les données correspondant à ton client, et les copiées dans ton tableau.

Pour cela soit tu parcours toutes les lignes d'une plage définie, soit tu utilises la commande FIND, soit tu utilises AUTOFILTER.

Dans ce cas je pense que FIND est approprié.

[revemane]

voici ce dont j'ai besoin je m'explique mieux


je souhaite faire ceci et je bloque

j'ai un userform pour lequel j'ai une liste déroulante qui me permet d'afficher les noms de client dans des txtbox du formulaire

la combobox va chercher les informations dans la feuille (client)

je souhaite inclure à mon userform une listebox sur 4 colonnes qui m'afficherais les transactions du client pour lequel les données sont stockées dans la feuille (BD)
la feuille bd contient 5 colonnes

n° de transaction - nom - prenom - montant ttc - date

j'ai besoin que ma liste comprenne nom, prenom, montant ttc,date

je n'y arrive pas

j'ai bien trouvé ceci mais j'arrive pas à l'adapter à ce que j'ai besoin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub B_go_Click()
Me.ListBox1.Clear
Set c = Range("a:a").Find(Me.TextBox1.Value, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
i = 0
Do
Me.ListBox1.AddItem
Me.ListBox1.List(i, 0) = c.Value
Me.ListBox1.List(i, 1) = c.Offset(0, 1).Value
Me.ListBox1.List(i, 2) = c.Offset(0, 2).Value
Set c = Range("a:a").FindNext(c)
i = i + 1
Loop While Not c Is Nothing And c.Address <> premier
End If
End Sub

merci de m'aider j'espère avoir été assez claire