Découper une liste sur les colonnes d'un listview

Version imprimable

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:

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.

05/06/2018, 18h44
jerome.vaussenat

Salut,

En attendant mieux, tu peux déjà aller voir cette page.

https://silkyroad.developpez.com/VBA/ListView/
06/06/2018, 10h13
GeoTrouvePas

Bonjour Jérôme et merci pour ta réponse.

Mon soucis n'est pas dans l'utilisation du contrôle listview en lui même. Le code que j'ai fourni contient d'ailleurs ce qu'il faut pour alimenter le contrôle.
Mon soucis est de trouver la logique qui me permettrait de charger les données selon la présentation souhaitée.

Salut,

Voici une proposition de code.
J'en au profité pour apprendre ... dans les fait, hier, je ne connaissais pas les listview. Mais il ne faut pas le dire !

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
Private Sub UserForm_Initialize()
 
    '----- remplissage ListView------------------------
    With ListView1
        'activation de la sélection de ligne entière
        .FullRowSelect = True
        'activation de l'affichage en colonne
        .View = lvwReport
        With .ColumnHeaders
            'Supprime les anciens entêtes
            .Clear
            'Ajoute 1 colonne compteur pour créer la structure avec les 10 lignes
            .Add , , "compteur", 10
            'et la 2ème colonne pour recevoir les premières valeurs
            .Add , , "0", 30
        End With
 
        'Remplissage de la 1ere colonne (création des 10 lignes de 0 à 9)
        For cpt = 0 To 9
            With .ListItems
               .Add , , cpt
             End With
        Next
        'détermination du nombre de ligne à traiter. Pour faire cet exemple, j'utilise des donnée
        'du type A-001 et suivant dans la colonne A
        derligne = Range("A65536").End(xlUp).Row
        'Remplissage des colonnes
        dizaineprécédente = 0
        For ligne = 1 To derligne
            'on détermine les unité de la lign à créer
            unite = Int(Right(Cells(ligne, 1).Value, 1)) + 1
            'on détermine les dixaine à traiter
            dizaine = Int(Mid(Cells(ligne, 1).Value, 4, 1))
            'si on change de dixaine, il fau ajouter une colonne dans le listView et le nommer
            If dizaine <> dizaineprécédente Then
                .ColumnHeaders.Add , , dixaine, 30
                dizaineprécédente = dizaine
            End If
            'ajout de la ligne en cour de traitement
            .ListItems(unite).ListSubItems.Add , , Cells(ligne, 1).Value
        Next
    End With
End Sub

Il y a bien ventilation. Après, il faut voir pour les dizaines à trous. je ne sais pas si tu veux avoir ds "trous" ou pas ...

Mais c'est un début de piste. Non ?

Re,

Et voici une v2.

Elle permet une ventilation en colonne et respectant les dizaines.

Elle génère des "cellules" vide dans le 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub UserForm_Initialize()
    Dim derligne As Integer
    On Error Resume Next
    '----- remplissage ListView------------------------
    With ListView1
        'activation de la sélection de ligne entière
        .FullRowSelect = True
        'activation de l'affichage en colonne
        .View = lvwReport
        With .ColumnHeaders
            'Supprime les anciens entêtes
            .Clear
            'Ajoute 1 colonne compteur pour créer la structure avec les 10 lignes
            .Add , , "compteur", 10
        End With
 
        'Remplissage de la 1ere colonne (création des 10 lignes de 0 à 9)
        For cpt = 0 To 9
            With .ListItems
               .Add , , cpt
             End With
        Next
        'détermination du nombre de dizaines à traiter. Pour faire cet exemple, j'utilise des données
        'du type A-001 et suivant dans la colonne A
        derligne = Application.WorksheetFunction.RoundUp(Range("A65536").End(xlUp).Row / 10, 0)
        ligne = 1
        'boucle pour traiter les X dizaines
        For dixaine = 0 To derligne
            'pour chaque dizaine, on ajoute une colonnne
            .ColumnHeaders.Add , , dixaine, 30
            dizaineprécédente = dizaine
            'boucle pour les unités
            For unite = 0 To 9
                contenu = Int(Right(Cells(ligne, 1).Value, 1))
                'si le contenu correspond à l'unité traité on l'intégre
                If contenu = unite Then
                    .ListItems(unite + 1).ListSubItems.Add , , Cells(ligne, 1).Value
                    ligne = ligne + 1
                Else 'sinon, on ajoute une valeur vide
                    .ListItems(unite + 1).ListSubItems.Add , , ""
                End If
            Next
        Next
    End With
End Sub

Bonne utilisation. En espérant qu'au moins une des versions correspond à ce que tu veux ... ?!?!