ListBox ne lit pas toutes cellules

[Dennnisss]

Bonsoir a tous

J'ai un listBox , qui doit lire 13 ou 14 cellule pour afficher ces donnees pour pouvoir changer ou corriger une facture
J'ai reussi a mettre 9 cellule et aussitot que j'essaie le chiffre 10 alors ca bug
dans la propriete du user j'ai mit les columcount a 16
Donc j'aurais besoin d'un peut d'aide a savoir comment peut-on lui faire lire plus de colonne

Merci de votre aide et attend vos suggestion

Salut dennnisss 😉😉

 

[cbea]

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.

 

[Cousinhub]

Re : ListBox ne lit pas toutes cellules

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

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).

 

[Dennnisss]

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 😉😉

 

[bqtr]

Re : ListBox ne lit pas toutes cellules

Bonsoir Dennnisss, bhbh, cbea

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

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+

 

[Dennnisss]

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😉😉

 

[Bebere]

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