Remplir listbox en lignes et colonnes à partir de cellules
Fermé
kiwish
Messages postés
4
Date d'inscription
vendredi 4 novembre 2022
Statut
Membre
Dernière intervention
15 février 2023
-
10 févr. 2023 à 14:04
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 15 févr. 2023 à 14:10
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 15 févr. 2023 à 14:10
A voir également:
- Remplir listbox en lignes et colonnes à partir de cellules
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Partage de photos en ligne - Guide
- Aller à la ligne dans une cellule excel - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
2 réponses
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
10 févr. 2023 à 16:18
10 févr. 2023 à 16:18
Bonjour,
Une astuce pour avoir plus de 10 colones dans une listbox:
'listbox plus de 10 colonnes Dim t(14) '0 a 13 pour 14 colonnes Me.ListBox2.Column = t ListBox2.ColumnCount = 14 ListBox2.BoundColumn = 14 ListBox2.ColumnWidths = "40;40;40;40;40;40;40;40;40;40;40;40;40;40" Me.ListBox2.Clear Me.ListBox2.AddItem "COL1" Me.ListBox2.List(0, 1) = "COL2" Me.ListBox2.List(0, 2) = "COL3" Me.ListBox2.List(0, 3) = "COL4" Me.ListBox2.List(0, 4) = "COL5" Me.ListBox2.List(0, 5) = "COL6" Me.ListBox2.List(0, 6) = "COL6" Me.ListBox2.List(0, 7) = "COL7" Me.ListBox2.List(0, 8) = "COL8" Me.ListBox2.List(0, 9) = "COL9" Me.ListBox2.List(0, 10) = "COL10" Me.ListBox2.List(0, 11) = "COL11" Me.ListBox2.List(0, 12) = "COL12" Me.ListBox2.List(0, 13) = "COL13" Me.ListBox2.List(0, 14) = "COL14"
Par contre, comprends pas vraiment votre remplissage
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
Modifié le 15 févr. 2023 à 14:12
Modifié le 15 févr. 2023 à 14:12
Bonjour,
J'imagine qu'il est alors impossible de rentrer une variable en guise de ligne.
Ah que si:
Private Sub CommandButton1_Click() 'listbox plus de 10 colonnes Dim t(14) '0 a 13 pour 14 colonnes Me.ListBox1.Column = t ListBox1.ColumnCount = 14 ListBox1.BoundColumn = 14 ListBox1.ColumnWidths = "40;40;40;40;40;40;40;40;40;40;40;40;40;40" Me.ListBox1.Clear For n = 0 To 20 Me.ListBox1.AddItem "COL1" Me.ListBox1.List(n, 1) = "COL2" Me.ListBox1.List(n, 2) = "COL3" Me.ListBox1.List(n, 3) = "COL4" Me.ListBox1.List(n, 4) = "COL5" Me.ListBox1.List(n, 5) = "COL6" Me.ListBox1.List(n, 6) = "COL6" Me.ListBox1.List(n, 7) = "COL7" Me.ListBox1.List(n, 8) = "COL8" Me.ListBox1.List(n, 9) = "COL9" Me.ListBox1.List(n, 10) = "COL10" Me.ListBox1.List(n, 11) = "COL11" Me.ListBox1.List(n, 12) = "COL12" Me.ListBox1.List(n, 13) = "COL13" Me.ListBox1.List(n, 14) = "COL14" Next n End Sub
15 févr. 2023 à 10:23
Bonjour merci pour cette réponse,
J'ai essayé la méthode mais je retrouve le même problème que précédemment. Je souhaite boucler ce bout de code afin de remplir plusieurs lignes dans la ListBox. Cependant, avec .List(0, 13) (par exemple) il n'est possible de remplir que la première ligne. J'ai alors essayé de boucler avec .List(i, 13) mais la propriété de la fonction .List n'est pas valable. J'imagine qu'il est alors impossible de rentrer une variable en guise de ligne.
S'il existe une méthode je suis preneur :)