Remplir 3 colonnes d'une listbox rapidement

coco_lapin

XLDnaute Impliqué
Bonjour le forum.

Je n'ai pas trop l'habitude d'utiliser les boites de dialogue.
J'ai essayé de remplir une listbox sans succès.

Je voudrais donc remplir 3 colonnes d'une listbox et indiquer les titres correspondants (voir classeur joint).

Pour mon application des données risquent d'être importante, la rapidité de l'exécution est un critère qui pourrait être interessant.

Merci pour votre aide
 

Fichiers joints

porcinet82

XLDnaute Barbatruc
Re : Remplir 3 colonnes d'une listbox rapidement

Salut Coco_lapin,

Voici un code qui fonctionne sur ton fichier :
Code:
Private Sub UserForm_Initialize()
Dim Plg As String
With Sheets("Feuil1")
    Plg = .Range("A3:H" & .Range("A65536").End(xlUp).Row).Address
End With
With UserForm1.ListBox1
    .Clear
    .ColumnCount = 3
    .ColumnWidths = "60;60;60"
    .ColumnHeads = True
    .RowSource = "Feuil1!" & Plg
End With
End Sub
@+
 

coco_lapin

XLDnaute Impliqué
Re : Remplir 3 colonnes d'une listbox rapidement

Bonjour porcinet82,

Déjà une réponse, boudu, tu carbures au super aujourd'hui!

Je te remercie pour ta proposition, j'ai testé, cela fonctionne comme sur des roulettes et avec l'astuce du rowsource cela va très vite (en annexe le classeur modifié).

Merci encore et bonne journée.
 

Fichiers joints

coco_lapin

XLDnaute Impliqué
Re : Remplir 3 colonnes d'une listbox rapidement

Dans l'exemple en annexe je veux afficher les données à partir d'une certaine ligne.

Par contre les titres ne sont plus bons.

Comment faire pour mettre des titres indépendement des données (cad ne pas passer par la rowsource pour mettre les 3 titres)?

Merci pour votre aide (voir classeur en annexe et cliquer sur le bouton)
 

Fichiers joints

Dernière édition:

Robert

XLDnaute Barbatruc
Re : Remplir 3 colonnes d'une listbox rapidement

Bonjour Coco lapin, Romain, bonjour le forum,

Je pense que trois labels au dessus de la ListBox devraient faire l'affaire...
 

Fichiers joints

coco_lapin

XLDnaute Impliqué
Re : Remplir 3 colonnes d'une listbox rapidement

Bonjour Robert,

Effectivement je n'avais pas pensé à cette solution.
Je te remercie beaucoup.

Par contre dans mon application définitive je vais gérer la largeur des colonnes en fonction de la longueur des textes par macro.

Il faudra aussi que je gère la position des titres, c'est faisable mais cela fera 2 gestions.

Merci pour ton aide.
 

coco_lapin

XLDnaute Impliqué
Re : Remplir 3 colonnes d'une listbox rapidement

Bonsoir le forum.

Personne n'a une petite idée pour les titres de cette listbox sans passer par une double gestion?
 

porcinet82

XLDnaute Barbatruc
Re : Remplir 3 colonnes d'une listbox rapidement

Salut,

Nous t'avons donné les solutions possibles. Soit tu utilises la propriété RowSource, et donc, les titres ne seront pas indépendant des données, soit tu utilises la méthode de l'ami Robert, qui est synonyme de double gestion...
Bon courage,

@+
 

bqtr

XLDnaute Accro
Re : Remplir 3 colonnes d'une listbox rapidement

Bonjour coco_lapin, Robert, Romain

Pour la largeur des colonnes de la listbox et des labels regarde ce FIL.

Bonne journée tous le monde
 

coco_lapin

XLDnaute Impliqué
Re : Remplir 3 colonnes d'une listbox rapidement

Bonsoir porcinet82, Robert, bqtr et le forum.

Tout d'abord je n'ai pu vous répondre rapidement étant donné que j'étais en congé et à la montagne.

Je remercie porcinet82 pour sa relance du fil.

bqtr, merci pour ton fil, c'est ce que je cherchais, mais cela tu le savais déjà.
Je ne devrais pas avoir trop de mal à l'adapter à mon projet étant donné qu'il n'y aura que le nombre de colonne et les contenus qui vont changer.
Ce soir je suis un peu fatigué et je me suis aperçu que plutôt que de lire le texte de ton fil je regardais ton vélo tourné, donc je vais aller me coucher.

Bonne nuit à vous tous et merci encore à bqtr (qui d'ailleurs "bqtr" veut dire quoi?)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas