Afficher toute une base de données dans une ListBox

[Papynou]

Bonjour,

Aujourd'hui j'ai eu beaucoup de chance, le forum m'a aidé à régler plusieurs points sur lesquels je butais. Y'en a un nouveau !!!

Je voudrais afficher le contenu complet d'une base dans une seul ListBox puis par un double click sélectionner une ligne de la ListBox pour récupérer les données et les transmettre dans un Usf.

Pour afficher la base :

A part la piste ListBox_Encours.Additem, je suis sec !

Pour le double clik j'ai :

Private Sub ListBox_Encours_DblClic(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox_Encours.List Index <> -1 Then MsgBox ListBox_Encours.Text

Pour le transfert aussi je suis sec...

Toujours aussi avide de conseils, je reste en éveil 😀
@+

 

[Papynou]

Re : Afficher toute une base de données dans une ListBox

Bonjour bebere, le forum

Ci-joint le fichier.

 

[Papynou]

Re : Afficher toute une base de données dans une ListBox

re pierrot,

Bonjour, mille excuses, je n'avas pas vu ton message. Merci, je teste

 

[Papynou]

Re : Afficher toute une base de données dans une ListBox

Re pierrot,

Ton code affiche UNE plage de A à I, moi je voudrais afficher DEUX plages une de A à D et une autre de I à K

 

[Bebere]

Re : Afficher toute une base de données dans une ListBox

bonjour le fil
Papynou,tu abandonnes rowsource
tu définis tes 2 plages

Dim Plg1 as variant,plg2 as variant
With Sheets("Base")
Plg1 = .Range("A2😀" & .Range("A65536").End(xlUp).Row)
Plg2= .Range("I2:K" & .Range("A65536").End(xlUp).Row)
End With
with listbox1
.clear
for i=0 to .listcount-1
.columncount=7
.additem plg1(i+1,1)
.list(.listcount-1,1)=plg1(i+1,2):.list(.listcount-1,2)=plg1(i+1,3)
.list(.listcount-1,3)=plg1(i+1,4):.list(.listcount-1,4)=plg2(i+1,1)
.list(.listcount-1,5)=plg2(i+1,2):.list(.listcount-1,6)=plg2(i+1,3)
next i
end with
tu vois l'idée,ou bien tu ne définis qu'un tableau et tu passes les colonnes inutiles
à bientôt

 

[Papynou]

Re : Afficher toute une base de données dans une ListBox

Bonjour bebere

J'ai bien compris la démarche. Je suis parti ce matin sur un chemin identique à ton idée exprimée dans le code, en essayant avec Union mais je tournais en rond (pour pas dire en bourrique !).

Pas contre je n'ai pas compris : "ou bien tu ne définis qu'un tableau et tu passes les colonnes inutiles"

Je teste et reviens.

 

[Papynou]

Re : Afficher toute une base de données dans une ListBox

re

J'ai recopié le code par un copier/coller por tester, résultat : Message d'erreur de compilation, variable non définie.
Bon, alors je déclare i par Dim i as Variant plus de message d'erreur mais la ListBox est vide ?

Pour le moment, je vais aller déjeuner et en revenant je m'y remets !

 

[Papynou]

Re : Afficher toute une base de données dans une ListBox

re,

Je suis planté avec ce problème d'affichage de plusieurs plages.

Quelqu'un aurait-il la bonté de m'aider ?

 

[Bebere]

Re : Afficher toute une base de données dans une ListBox

Papynou
faux mon code,cote 0/10,regarde le fichier
à bientôt

 

[Papynou]

Re : Afficher toute une base de données dans une ListBox

Bebere

Exact, ton code est efficace à 100%.
Merci de ton temps et surtout de ta patience.