Bonjour,

Je dispose d'une variable tableau contenant une longue liste de "codes projet" (du numéro "A-000" au numéro "A-126"). La macro suivante me permet de charger cette liste dans un contrôle listview :
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
21
Sub Load_Listview()
    Dim CptrLig As Long
    'Vide le contrôle listview et rempli les en - têtes de colonnes
    With Me.ListView1
        .ListItems.Clear
        With .ColumnHeaders
            .Clear
            .Add
        End With
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        .MultiSelect = True
        For CptrLig = LBound(Tbl_PROJET) To UBound(Tbl_PROJET)
            If Tbl_PROJET(CptrLig, DATA_PROJET.NUMAS400) <> vbNullString Then
                Compteur = Compteur + 1
                .ListItems.Add , "¤" & Tbl_PROJET(CptrLig, DATA_PROJET.NUMAS400), Tbl_PROJET(CptrLig, DATA_PROJET.NUM)
            End If
        Next
    End With
End Sub
Mon soucis est que je n'arrive pas à adapter ce code pour charger les projets A-000 à A-009 dans la 1ère colonne, les projets A-010 à A-019 dans la 2ème colonne etc.... (en sachant que certains projets n'existent pas, il y a donc des trous volontaires dans la liste.

Auriez vous une petite idée pour faire cette répartition ?

Je vous remercie par avance de votre aide.