ListBox ne lit pas toutes cellules

cbea

XLDnaute Impliqué

• 9 Avril 2008

• #2

Re : ListBox ne lit pas toutes cellules

Bonsoir Dennnisss,

Il y a une limite à 10 colonnes, c'est pour cela que tu as un bug.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 9 Avril 2008

• #3

Re : ListBox ne lit pas toutes cellules

Bonsoir,
d'après l'aide (F1) :

Code:

La définition de la propriété ColumnCount sur 0 affiche zéro colonne et la définition sur -1 affiche toutes les colonnes disponibles. Pour une source de données indépendante, il y a une limite de 10 colonnes (0 à 9).

 

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 9 Avril 2008

• #4

Re : ListBox ne lit pas toutes cellules

Salut BhBh et Cbea

Ho la , je suis dans le trouble , est-ce qu'il y a une autre facon de contourner cette regle , pour pouvoir afficher mes 13 colonne par une facon ou une autre , me donnees une piste et je vais faire de la recherche sur le forum

merci a vous deux attend votre reponse

bye bye dennnisss 😉😉

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 9 Avril 2008

• #5

Re : ListBox ne lit pas toutes cellules

Bonsoir Dennnisss, bhbh, cbea

Essaye comme ceci : (vu que tes colonnes se suivent)

Code:

Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 16
ListBox1.ColumnHeads = True
ListBox1.RowSource = "Donnees!B9:Q" & Sheets("Donnees").Range("B65536").End(xlUp).Row

End Sub

(Il faut remettre la valeur 1 à ColumnCount dans les propriétés de la listbox.)
Là tu auras toutes tes colonnes de la colonne B à Q.
Ensuite pour afficher celles que tu veux tu joues sur la propriété ColumnWidths en mettant 0 comme largeur à celle que tu veux masquer.

Il faudra aussi penser à ajuster les boucles pour la récupérations des données en fonction des colonnes masquées.

Bonne nuit, A+

 

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 9 Avril 2008

• #6

Re : ListBox ne lit pas toutes cellules

Salut BhBh , Cbea , Bqtr

Bqtr je vient de prendre note de ta recommandation
J'essaie ca le plus vite possible et je te revient la-dessus
Excuse si je n,ai pas repondu rapidement je revient de travailler , je travaille de nuit il est presentement 7:20 le matin et je me prepare a aller me coucher
cette apres-midi je vais essayer tes recommandations
alors bonne journee a vous trois

Salutation dennnisss😉😉

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 9 Avril 2008

• #7

Re : ListBox ne lit pas toutes cellules

bonjour Denis,Bqtr,Bhbh
une autre façon
With Sheets("Donnees")
Set plage = .Range("B10:Q20") ' & .Range("A65536").End(xlUp).Row) 'définit la variable plage
End With

With ListBox1
.ColumnCount = 16'plage.Columns.Count
.ColumnWidths = "40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40"
.List = plage.Value
End With

à bientôt

 

Vote positif 0 Vote négatif