Remplissage ListBox multicolonnes

Version imprimable

Bonjour,
Je cherche à remplir une ListBox multicolonnes à partir des colonnes B, C, E et F de mon classeur Excel, allant de la ligne 2 à la dernière ligne contenant une valeur.

J'ai réussi quand ma ListBox ne contennait qu'une seul colonne, je passais par un tableau. Mais quand il y a plusieurs colonnes je bloque.

Voici mon code pour l'instant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
Sub ChargerFenetre()
    Dim flist0()
    Dim flist1()
    Dim flist2()
    Dim flist3()
    Dim i As Integer
    Dim derniereCelluleTab As Integer
    Dim szTmp As String
 
    derniereCelluleTab = Range("B2").End(xlDown).Row
    ReDim flist0(derniereCelluleTab - 2)
    ReDim flist1(derniereCelluleTab - 2)
    ReDim flist2(derniereCelluleTab - 2)
    ReDim flist3(derniereCelluleTab - 2)
 
    Range("B2").Resize(Range("B2").End(xlDown).Row).Select
    i = 0
    For Each cc In Selection
        If Trim$(cc) <> "" Then
            flist0(i) = cc
            i = i + 1
        End If
    Next
 
    Range("C2").Resize(Range("C2").End(xlDown).Row).Select
    i = 0
    For Each cc In Selection
        If Trim$(cc) <> "" Then
            flist1(i) = cc
            i = i + 1
        End If
    Next
 
    Range("E2").Resize(Range("E2").End(xlDown).Row).Select
    i = 0
    For Each cc In Selection
        If Trim$(cc) <> "" Then
            flist2(i) = cc
            i = i + 1
        End If
    Next
 
    Range("F2").Resize(Range("F2").End(xlDown).Row).Select
    i = 0
    For Each cc In Selection
        If Trim$(cc) <> "" Then
            flist3(i) = cc
            i = i + 1
        End If
    Next
 
    Load frmMain
    frmMain.lstContrats.List(frmMain.lstContrats.ListCount - 1, 1) = flist0    'ni cette façon
    frmMain.lstContrats.List(1) = flist1      'ni celle-ci ne marche
    frmMain.lstContrats.List(2) = flist2
    frmMain.lstContrats.List(3) = flist3
    frmMain.Show
End Sub

Merci

26/04/2012, 14h19
ZebreLoup

Première chose, évite d'utiliser des Select en VBA sauf raison spécifique (si on doit visuellement se rendre compte qu'une cellule est sélectionnée par exemple).
Ensuite, il y aura un souci ici si la dernière ligne non vide n'est pas la même selon les colonnes.
J'essaie de te faire un petit exemple de code dont tu pourras t'inspirer.

Bonjour,
essayes ce code à integrer dans ton USF, je n'ai pas testé et ne sais pas si ça correspond à ta demande

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub UserForm_Activate()
Dim flist
Dim flist1()
Dim i As Integer
Dim derniereCelluleTab As Integer
Dim szTmp As String
With Sheets("Feuil1") 'à changr par le nom de ta feuille
  derniereCelluleTab = .Range("B" & .Rows.Count).End(xlUp).Row
  flist = .Range("B2:F" & derniereCelluleTab)
End With
ReDim flist1(1 To derniereCelluleTab, 1 To 4)
For i = 1 To UBound(flist, 1)
  flist1(i, 1) = Trim(flist(i, 1))
  flist1(i, 2) = Trim(flist(i, 2))
  flist1(i, 3) = Trim(flist(i, 4))
  flist1(i, 4) = Trim(flist(i, 5))
Next i
With lstContrats
  .ColumnCount = 4
  For i = 1 To UBound(flist1, 1)
    .AddItem flist1(i, 1)
    .Column(1, .ListCount - 1) = flist(i, 2)
    .Column(2, .ListCount - 1) = flist(i, 3)
    .Column(3, .ListCount - 1) = flist(i, 4)
  Next i
End With
End Sub

26/04/2012, 14h37
Invité

Merci pour vos réponses. Casefayere le problème c'est que la ta solution prend les colonnes B à F, donc même la D que je ne dois pas prendre. Dois-je utiliser 2 flist différents, un pour BC l'autre pour EF?

Citation:

c'est que la ta solution prend les colonnes B à F,

j'ai écris trop vite

Code:

1
2
3
4
5
6
For i = 1 To UBound(flist1, 1)
    .AddItem flist1(i, 1)
    .Column(1, .ListCount - 1) = flist1(i, 2)
    .Column(2, .ListCount - 1) = flist1(i, 3)
    .Column(3, .ListCount - 1) = flist1(i, 4)
  Next i

Voici un petit code à adapter. Pour ma part je l'ai mis directement dans le UserForm_Initialize de frmMain, et j'ai mis un frmMain.Show quelque part :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Explicit
 
Private Sub UserForm_Initialize()
 
    Dim ws As Worksheet
    Dim lastRow As Integer
    Dim fList() As Variant
    Dim c1, c2, c3, c4 As String
    Dim iRow, iList As Integer
 
    Set ws = Worksheets("Feuil2") 'Mettre ici la feuille dans laquelle sont les données
 
    'Recherche de la dernière ligne
    lastRow = ws.Range("B65000").End(xlUp).Row
    ReDim fList(3, lastRow - 2)
 
    'On insère les valeurs s'il n'y a pas de cellules vides sur la ligne
    iList = 0
    For iRow = 2 To lastRow
        c1 = ws.Cells(iRow, "B").Value
        c2 = ws.Cells(iRow, "C").Value
        c3 = ws.Cells(iRow, "E").Value
        c4 = ws.Cells(iRow, "F").Value
 
        If Trim(c1) <> "" And Trim(c2) <> "" And Trim(c3) <> "" And Trim(c4) <> "" Then
            fList(0, iList) = c1
            fList(1, iList) = c2
            fList(2, iList) = c3
            fList(3, iList) = c4
 
            iList = iList + 1
        End If
 
    Next iRow
 
    'A la fin, seulement iList lignes vraiment insérées, et il faut retourner le tableau
    Dim fList2() As Variant
    ReDim fList2(iList - 1, 3)
    Dim i, j As Integer
    For i = 0 To iList - 1
        For j = 0 To 3
            fList2(i, j) = fList(j, i)
        Next j
    Next i
 
    'On affecte ce tableau au listView
    lstContrats.List = fList2
 
End Sub

26/04/2012, 14h57
Invité
Nickel merci au deux. ZebreLoup peux-tu juste m'expliquer les parametres de tes Redim avant de cloturer cette discution? Et pourquoi on utilise un fList2?
Code:

1 2 ReDim fList(3, lastRow - 2) ReDim fList2(iList - 1, 3)
Merci
26/04/2012, 16h25
ZebreLoup

J'utilise un tableau à 2 dimensions (pour avoir des colonnes dans le listView). Les 2 paramètres du Redim sont les indices max sur chaque dimension.
J'utilise flist2 parce que flist n'est pas "dans le bon sens", les colonnes devant être sur la deuxième dimension. Et je ne mets pas flist dans le bon sens dès le début, car on ne peut faire un redim preserve que sur la dernière dimension.

Ca aurait été 10 fois plus simple si on ne faisait pas le test qu'il n'y a pas de cellule vide sur la ligne.
27/04/2012, 14h59
Invité

Citation:

Envoyé par ZebreLoup

Ca aurait été 10 fois plus simple si on ne faisait pas le test qu'il n'y a pas de cellule vide sur la ligne.

Aurais-tu un exemple pour ce cas, juste pour voir à quoi ça ressemblerai?

Merci pour tes explications concernant les arguments mais pourquoi le 3? J'aurai mis 4 moi vu que le tableau a 4 colonnes. Mais vu que ça marche comme ça c'est que je me trompe :?

En fait je mets 3 parce que ça commence à 0. On a bien 4 colonnes : 0, 1, 2 et 3 !
C'est pas toujours évident au début je suis d'accord.

Voici une version, sans le filtre des cases vides. Ca ressemble en fait un peu à ce qu'avait fait Casefayere, sauf que je construit un tableau que l'on attribut ensuite à la listView au lieu de construire directement et dynamiquement les lignes de la listView.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Option Explicit Private Sub UserForm_Initialize() Dim ws As Worksheet Dim lastRow As Integer Dim fList As Variant Dim iRow As Integer Set ws = Worksheets("Feuil2") 'Mettre ici la feuille dans laquelle sont les données 'Recherche de la dernière ligne lastRow = ws.Range("B65000").End(xlUp).Row ReDim fList(lastRow - 2, 3) 'On insère les valeurs iList = 0 For iRow = 2 To lastRow fList(iList, 0) = ws.Cells(iRow, "B").Value fList(iList, 1) = ws.Cells(iRow, "C").Value fList(iList, 2) = ws.Cells(iRow, "E").Value fList(iList, 3) = ws.Cells(iRow, "F").Value Next iRow 'On affecte ce tableau au listView lstContrats.List = fList End Sub

27/04/2012, 15h20
Invité

:oops: je me sens c*n lol

Merci