[XL-2010] VBA et Listview

VBA et Listview

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

Bonjour,

Tu peux colorer la fonte des lignes :

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

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