listbox

[david]

Bonsoir le forum

je voudrais faire un trie dans une basse de donnée a l'aide de trois listbox.

je les trouver pour 2 listbox mais je m'arrive pas avec 3

si quelqu'un a ou un lien pour moi aller voir je suis très interesser ou bien la solution.
je joint un fichier zip

merci d'avance
@+ david [file name=Classeur1_20060313202817.zip size=18249]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060313202817.zip[/file]

 

[Hervé]

Bonsoir david, le forum

je me suis limité à répondre à ta question, mais je pense que l'on doit pouvoir 'optimiser' les autres codes (pour eviter les doublons surtout)

pour ton souci, essayes ceci :

Private Sub ListBox2_Click()
Dim c As Range

ListBox3.Clear

For Each c In Range('a10:a' & Range('a65536').End(xlUp).Row)
        If c = ListBox1 And c.Offset(0, 1) = ListBox2 Then
                ListBox3.AddItem c.Offset(0, 2)
        End If
Next c
   
End Sub

salut

 

[Robert]

Bonsoir David, Hervé, bonsoir le forum,

Je te propose une version Full Comment de ton fichier. [file name=David_v2.zip size=15653]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/David_v2.zip[/file]

 

[David]

Bonjour Hervé,Robertet le forum

Tous d'abord merci beaucoup pour vaut solution qui fonctionne très bien toute les deux.

Mais a moi s’amène un autre problème je voudrais après avoir fait un trie avec les 3 listbox
Mettre dans 2 textbox la suis de la ligne

J’ai un model mais il ne fonctionne pas j’ai du faire une erreur je ne vois pas où pouvez vous y jeter un œil

Merci d’avance pour tout les l’aide

David @+ [file name=David_v3.zip size=16196]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/David_v3.zip[/file]