Discussion :

[romje41]

Bonjour,

J'utilise une ListView qui scanne plusieurs feuilles Excel d'un même classeur, est il possible de colorer les lignes de la ListView suivant les noms des feuilles.

Merci pour votre aide

[Theze]

Bonjour,

Tu peux colorer la fonte des lignes :

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
46
47
48
49
50
51
52
53
54
55
56
57
 
Private Sub UserForm_Initialize()
 
    Dim I As Integer
    Dim J As Integer
    Dim TblCouleur
 
    TblCouleur = Array(&HFF&, &HFFFF&, &HFF0000)
 
    With ListView1
 
        With .ColumnHeaders
 
            .Clear
 
            .Add , , "Champ 1", 100
            .Add , , "Champ 2", 100
            .Add , , "Champ 3", 100
            .Add , , "Champ 4", 100
 
        End With
 
        With .ListItems
 
           .Add , , "Valeur 1"
           .Add , , "Valeur 2"
           .Add , , "Valeur 3"
 
         End With
 
        .ListItems(1).ListSubItems.Add , , "Nom 1"
        .ListItems(1).ListSubItems.Add , , 100
        .ListItems(1).ListSubItems.Add , , "Autre valeur 1"
 
        .ListItems(2).ListSubItems.Add , , "Nom 2"
        .ListItems(2).ListSubItems.Add , , 200
        .ListItems(2).ListSubItems.Add , , "Autre valeur 2"
 
        .ListItems(3).ListSubItems.Add , , "Nom 3"
        .ListItems(3).ListSubItems.Add , , 300
        .ListItems(3).ListSubItems.Add , , "Autre valeur 3"
 
        For I = 1 To .ListItems.Count
 
            .ListItems(I).ForeColor = TblCouleur(I - 1)
 
            For J = 1 To .ListItems(I).ListSubItems.Count
 
                .ListItems(I).ListSubItems(J).ForeColor = TblCouleur(I - 1)
 
        Next J, I
 
    End With
 
    ListView1.View = lvwReport
 
End Sub

[romje41]

Bonjour,

Merci beaucoup pour votre aide. Je débute dans le code.
Si j'ai un autre soucis je vous solliciterais à nouveau.

Bonne soirée