listbox multi colonne mais avec choix des colonnes

[kolivier]

Bonsoir le forum,


Je suis vraiment désolés de vous poser une question qui semble avoir été 100 posées, mais ce soir je n'arrive pas a me connecter a mon cerveau, je réalise des macro hyper complexe et la je bloque su run truc simple et je n'arrive meme pas a comprendre les exemples deja créés

Dans mon userform, je souhaiterai avoir une listbox qui récupére dans plusieurs colonnes les infos présentes dans une feuille mais en decidant par exemple que en colonne 1 de l'userform, j'ai l'info de la colonne A et que en colonne 2 j'ai l'info de la colonne D et en colonne 3 de ma listbox j'ai l'info de la colonne k de la feuille.

Merci vraiment beaucoup de votre compréhension, et encore toutes mes excuses...

Message édité par: kolivier, à: 22/06/2006 22:20

 

[kolivier]

je ne parvient pas a mettre un exemple en pice jointe, donc voici une URL de l'exemple :
http://www.listebebe.com/exemple.rar
Merci énormément

 

[porcinet82]

Bonsoir,

Tu as de la chance j'ai justement modifié un code similaire cet aprem pour une autre question. Le code d'origine n'est pas de moi mais bon :

Sub init()
Dim data As Collection
Dim i As Integer
Dim j As Byte

With UserForm1
    .ListBox1.ColumnCount = 3
    .ListBox1.ColumnWidths = '60;60;60'
End With

With Sheets('feuil1')
    'ne pas oublié de modifier aussi ici
    tablo = .Range('A4:AZ' & .Range('AZ65536').End(xlUp).Row)
End With

For i = 1 To UBound(tablo)
    On Error Resume Next
    data.Add tablo(i, 1), CStr(tablo(i, 1))
    On Error GoTo 0
Next i

With UserForm1
.ListBox1.Clear

For i = 1 To UBound(tablo)
    'Colonne A
    .ListBox1.AddItem tablo(i, 1)
    'Colonne D
    .ListBox1.List(.ListBox1.ListCount - 1, 1) = tablo(i, 4)
    'Colonne AZ
    .ListBox1.List(.ListBox1.ListCount - 1, 2) = tablo(i, 52)
Next i
End With
End Sub

Voili, voilou,

@+

 

[porcinet82]

re,

Le temps que je prépare le code tu avais donné ton exemple. Il y a 2 ou 3 petites chose à modifier dedans mais tu devrais t'en sortir. Si ce n'est pas le cas, refais signe.

N'oublie pas de virer tout les ;, & np; et autres trucs qui sont bizarre.

@+

 

[kolivier]

Je suis désolés mais il doit y avoir quelques choses qui ne fonctionne pas chez moi, c'est pas possible.

Je viends de modifier mon exemple avec ton code, il est dispo ici et ne fonctionne pas :

http://www.listebebe.com/exemple.rar

Merci trés sincérement

 

[Hervé]

Re:listbox multi colonne mais avec choix des colon

bonsoir kolivier, re porcinet


dans ton code d'initialisation, modifie ton code :

Dim data As New Collection

pour appeler ton userform dans le module 1 :

userform1.show

salut