Problème code vba listbox

**OurliacThomas** · 15/03/2018, 10h29

Bonjour, j'ai un petit problème au niveau de mon code pour remplir une listbox avec des cellules, message d'erreur "Impossible de définir la propriété column. index de table de propriétés non valide."

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
                            Sheets("Emplacement").Cells(14, 6) = TextBox1
                            Sheets("Emplacement").Cells(14, 7) = ComboBox1
                            Sheets("Emplacement").Cells(14, 8) = ComboBox2
                            Sheets("Emplacement").Cells(14, 9) = ComboBox3
 
                            With Sheets("Emplacement")
 
                UserForm_Ajouter.ListBox1.ColumnCount = 4
                UserForm_Ajouter.ListBox1.ColumnWidths = "80;80;80;80"
                UserForm_Ajouter.ListBox1.AddItem
                UserForm_Ajouter.ListBox1.Column(0, 1) = .Cells(11, 6)        '(bug a cet endroit la)
                UserForm_Ajouter.ListBox1.Column(1, 1) = .Cells(11, 7)
                UserForm_Ajouter.ListBox1.Column(2, 1) = .Cells(11, 8)
                UserForm_Ajouter.ListBox1.Column(3, 1) = .Cells(11, 9)
                UserForm_Ajouter.ListBox1.Column(0, 2) = .Cells(14, 6)
                UserForm_Ajouter.ListBox1.Column(1, 2) = .Cells(14, 7)
                UserForm_Ajouter.ListBox1.Column(2, 2) = .Cells(14, 8)
                UserForm_Ajouter.ListBox1.Column(3, 2) = .Cells(14, 9)
 
                        End With

Voila, je ne comprend pas pourquoi, si quelqu'un a l'amabilité de de m'aider, merci !

**joe.levrai** · 15/03/2018, 11h01

Bonjour,

.List(), pas .Column()

http://silkyroad.developpez.com/VBA/...serForm/#LII-G

**unparia** · 15/03/2018, 11h02

Bonjour
Que viennent faire ces "column" là-dedans ?

remplacer (exemple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListBox1.List(0, 1) = ......

ou 0 est un rang de ligne et 1 un rang de colonne, par définition.

**OurliacThomas** · 15/03/2018, 11h06

j'ai donc remplacé tout les column par par des list mais maintenant j'ai un bug sur la ligne juste en dessous

enfaite j ai l'impression que sa bug au moment de changer de ligne

**joe.levrai** · 15/03/2018, 11h08

Quoi de plus normal ?

Est-ce que tu comprends la mécanique de ton code ?

1) je crée une ligne dans Listbox
2) j'en remplis deux colonnes
3) je remplis la ligne suivante

observe bien ce qu'il manque entre l'étape 2 et l'étape 3