Listbox

[Ben]

Bonsoir le Forum,

Depuis ce matin j'essaie de résoudre un problème. J'ai un tableau de 15 colonnes et j'aimerais mettre que 6 d'entre elles dans une listbox, bien entendue les colonnes ne sont pas contigues dans le tableau d'où la difficulté pour moi.
je ne maîtrise pas la méthode des tableaux.
alors si vous pouviez me donner un coup de main cela me dépannerait pas mal.
Merci de votre aide
Ci-joint un fichier exemple [file name=draft101017h30.zip size=30376]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/draft101017h30.zip[/file]

 

[johanaquatique]

Heu c'est quoi la question ? 😉

 

[Ben]

Bonsoir le Forum,
Johan,
La question est: comment puis je faire pour avoir une listbox qui ne récupère que quelques colonnes triées dans un tableau.
Merci.

 

[laurent45]

Bonjour Ben,

Ton programme a un problème : il manque des contrôle pour le fonctionnement de ton programme.

Pourrais-tu être plus clair dans ta question. Quelle colonnes dans quel contrôle. Pour le moment ton USF parraît un peu foulli (sans les explications qui vont avec).

Merci

@+

 

[Ben]

Bonjour le Forum,
Laurent,
En effet, en voulant alléger le classeur j'ai enlever certains contrôles.
Sur la feuille qui se trouve dans le classeur, j'aimerais mettre dans une listbox les colonnes 1,5,6,7,8,11.
J'ai imaginé mettre tout le tableau de façon classique et réduireles largeurs des colonnes qui ne m'intéressent pas à 0, mais j'aimerais une solution plus élégante. Mais je ne manie pas suffisament bien pour pratiquer les codes tels que Hervé ou _thierry font apparaître dans les démos.
Merci.

 

[laurent45]

Re Ben, le Forum,

Premièrement ton programme me plante Excel97 au moment de l'enregistrement du fichier. (Tu es peut-être avec une auter version ! )

Donc je te copie le code que je t'avais préparé :

au niveau déclaration :
Dim DerLign as Range
________________________________________________________
Private Sub UserForm_Initialize()
Dim i as Long
With WorkSheets('Clients')
Set DerLing=.Range('A65536').End(xlUp).Rows
For i=0 To DerLign - 2
Me.ListBox1.AddItem
Me.ListBox1.Column(0, i) = .Range('A' & DerLign + 2)
Me.ListBox1.Column(1, i) = .Range('E' & DerLign + 2)
Me.ListBox1.Column(2, i) = .Range('F' & DerLign + 2)
Me.ListBox1.Column(3, i) = .Range('G' & DerLign + 2)
Me.ListBox1.Column(4, i) = .Range('H' & DerLign + 2)
Me.ListBox1.Column(5, i) = .Range('K' & DerLign + 2)
Next i
End With
End Sub

Message édité par: laurent45, à: 11/10/2005 19:21

 

[Ben]

Bonsoir le Forum,
Laurent,

Mais c'est très simple!!!
Et comme souvent, la simplicité apparente résulte d'une vraie expertise. Alors merci beaucoup.