Discussion :

[GeoTrouvePas]

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.

[jerome.vaussenat]

Salut,

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

https://silkyroad.developpez.com/VBA/ListView/

[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.

[jerome.vaussenat]

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 :

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
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 ?

[jerome.vaussenat]

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 :

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
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 ... ?!?!