Passage d'un tableau à une listbox

[oriop]

Bonjour,

voici mon problème:

Je souhaiterais passer un tableau de valeurs que j'ai sur une feuille de
calcul excel dans un cadre (listbox je pense) à l'intérieur d'un userform.

Le problème étant que mon tableau contient plusieurs colonnes et je voudrais
que le programme recopie toutes les informations de chaque ligne (toutes les
colonnes en fait )

Si vous avez une réponse à ce problème ... ou que vous n'avez pas compris
n'hésitez pas à répondre

merci à tous.

 

[VBA DEAD]

Salut ORIOP,

bon ben je vais t'aider (pour 1 fis que je peux aider quelqu'un sur ce forum) , du moins essayer.

Tu créé un Userform avec une listbox. Après tu vas ds propriétés de ta listbox :

Ds 'Column count' tu reportes le nbre de colonnes


Ds Columnwidths tu reportes la largeur de tes colonnes (la largeur que tu veux ds ta listbox (ex :25 pt; 50pt;80 pt ) si tu as 3 colonnes.

Ds la rowsource, tu reporte la zone de ton tableau source : Le mioeux est de donner un nom à la zone de ton tableau et de reporter ce nom ds la rowsource.

Sinon met ton fichier en pièce jointe, d'ici ce soir tu auras un retour.

c'est clair??

VBA DEAD

 

[lostgen67]

Bonjour
essai cela

Private Sub inilb1() ' initilialise la source de ton tableau
Dim L As Integer
Dim plage As String
L = Sheets('data1').Range('a65536').End(xlUp).Row
plage = Sheets('data1').Range('a11:h' & L).Address 'debut & fin
ListBox1.RowSource = 'data1!' & plage

End Sub

et...........

Private Sub UserForm_Initialize()

With ListBox1
.ColumnCount = 6 ' defini nb colonne tableau
.ColumnWidths = '50;40;40;40;40;40' ' largeur des colonnes
.MultiSelect = fmMultiSelectMulti ' si tu veux un multiselect
End With

inilb1

End Sub



good luck

 

[Creepy]

Bonjour,

Un exemple vaux mieux que de long disciurs regarde en PJ si cela te conviens.

A ta dispo

++

Creepy [file name=Combobox_Multicolonne.zip size=11167]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Combobox_Multicolonne.zip[/file]

 

[oriop]

merci bcp

ke des reponses pertinentes

j'utilise la solution a lostgen

merci a lui et aux autres