Afficher toute une base de données dans une ListBox

Papynou

XLDnaute Occasionnel

• 24 Novembre 2006

• #16

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

Bonjour bebere, le forum

Ci-joint le fichier.

 

Dernière édition: 7 Décembre 2006

Vote positif 0 Vote négatif

Papynou

XLDnaute Occasionnel

• 24 Novembre 2006

• #17

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

 

Vote positif 0 Vote négatif

Papynou

XLDnaute Occasionnel

• 24 Novembre 2006

• #18

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 24 Novembre 2006

• #19

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

 

Vote positif 0 Vote négatif

Papynou

XLDnaute Occasionnel

• 24 Novembre 2006

• #20

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.

 

Vote positif 0 Vote négatif

Papynou

XLDnaute Occasionnel

• 24 Novembre 2006

• #21

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 !

 

Vote positif 0 Vote négatif

Papynou

XLDnaute Occasionnel

• 24 Novembre 2006

• #22

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 ?

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 24 Novembre 2006

• #23

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

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

 

Pièces jointes

• Consulterpapy.xls

  40 KB · Affichages: 98

Vote positif 0 Vote négatif

Papynou

XLDnaute Occasionnel

• 24 Novembre 2006

• #24

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.

 

Vote positif 0 Vote négatif