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