Raynaud.JF
XLDnaute Nouveau
Bonjour,
JE ne comprend rien au tableau.
Je souhaite remonter dans une listbox une liste se trouvant sous excel.
Cela ne fonctionne pas, je pense que c'est parceque je ne redimenssionne pas bien mon tableau.
Au depart je ne sais pas combien de ligne doivent être chargées, par contre je sais que mon tableau devra avoir 6 colonnes
Pouvez vous m'aider SVP, mon code ci-dessous.
Private Sub UserForm_Initialize()
Dim c As Object
Dim Tbl
x = 1 'ligne de part qui sera lue sous excel
Set maplage = Range(Cells(x, 3), Cells(x + 21, 3)) ' je vais lire 22 lignes sous excel
i = 0
For Each c In maplage
If c.Value <> "" Then
i = i + 1
ReDim Tbl(1 To i, 0 To 5)
Tbl(i, 0) = c.Row
Tbl(i, 1) = c.Offset(0, -1).Value 'N° Operation
Tbl(i, 2) = UCase(c.Offset(0, 0).Value) 'Description Operation
Tbl(i, 3) = UCase(Left(c.Offset(0, 2).Value, 32)) 'Machine
Tbl(i, 4) = c.Offset(0, 10).Value & " P/H" 'Productuiin
Tbl(i, 5) = Format(c.Offset(0, 5).Value, "0.00") & " Pers." 'Effectif
End If
Next c
With Me.ListBox1
.ColumnCount = 6
.ColumnWidths = "0;25;145;200;60;60"
.List = Tbl()
End With
JE ne comprend rien au tableau.
Je souhaite remonter dans une listbox une liste se trouvant sous excel.
Cela ne fonctionne pas, je pense que c'est parceque je ne redimenssionne pas bien mon tableau.
Au depart je ne sais pas combien de ligne doivent être chargées, par contre je sais que mon tableau devra avoir 6 colonnes
Pouvez vous m'aider SVP, mon code ci-dessous.
Private Sub UserForm_Initialize()
Dim c As Object
Dim Tbl
x = 1 'ligne de part qui sera lue sous excel
Set maplage = Range(Cells(x, 3), Cells(x + 21, 3)) ' je vais lire 22 lignes sous excel
i = 0
For Each c In maplage
If c.Value <> "" Then
i = i + 1
ReDim Tbl(1 To i, 0 To 5)
Tbl(i, 0) = c.Row
Tbl(i, 1) = c.Offset(0, -1).Value 'N° Operation
Tbl(i, 2) = UCase(c.Offset(0, 0).Value) 'Description Operation
Tbl(i, 3) = UCase(Left(c.Offset(0, 2).Value, 32)) 'Machine
Tbl(i, 4) = c.Offset(0, 10).Value & " P/H" 'Productuiin
Tbl(i, 5) = Format(c.Offset(0, 5).Value, "0.00") & " Pers." 'Effectif
End If
Next c
With Me.ListBox1
.ColumnCount = 6
.ColumnWidths = "0;25;145;200;60;60"
.List = Tbl()
End With