Listbox

B

Ben

Guest
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]
 

Pièces jointes

  • draft101017h30.zip
    29.7 KB · Affichages: 14

laurent45

XLDnaute Occasionnel
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

@+
 
B

Ben

Guest
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

XLDnaute Occasionnel
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
 

Statistiques des forums

Discussions
300 823
Messages
1 987 483
Membres
209 864
dernier inscrit
mrossi