Discussion :

[Logisticien]

bonjour;


pouvez vous m'aider à colorer les lignes sur ma listview

je voulais mettre les ligne dont la valeurs <1 dans la colonne Type en bleu:

voici le code que j'ai mis sachant que le fonctionnement de Listview fonctionne correctement mais le jeu de couleur ne fonctionne pas:

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
58
59
60
61
62
63
64
Private Sub UserForm_Initialize()
On Error GoTo ErrorHandler
'Set Reference to Microsoft DAO 3.xx Library.
 
    'set variables
    Dim rs As DAO.Recordset
    Dim db As Database
    Dim lstItem As ListItem
    Dim strSQL As String
 
    Set db = CurrentDb()
    strSQL = "SELECT  * FROM T_ArticlesFF"
    Set rs = db.OpenRecordset(strSQL)
 
    With Me.ListView1
        'Set ListView style
        .View = lvwReport
        'This is not supported by ListView 5
        .GridLines = True
        .FullRowSelect = True
        'Clear Header and ListItems
        .ListItems.Clear
        .ColumnHeaders.Clear
    End With
    'Set up column headers
    With Me.ListView1.ColumnHeaders
        .Add , , "Article 1", 50, lvwColumnLeft
        .Add , , "Article 2", 50, lvwColumnLeft
        .Add , , "Nom de Recherche", 100, lvwColumnLeft
        .Add , , "Désignation", 200, lvwColumnLeft
        .Add , , "Type", 100, lvwColumnRight
    End With
    ' Add items and subitems to list control.
 
    rs.MoveFirst
    Do Until rs.EOF
        Set lstItem = Me.ListView1.ListItems.Add()
        lstItem.Text = rs!Article1
        lstItem.SubItems(1) = rs!Article2
        lstItem.SubItems(2) = rs!Nomderecherche
        lstItem.SubItems(3) = rs!Désignation
        lstItem.SubItems(4) = Nz(rs!Type, "")
       'Next row
        rs.MoveNext
    Loop
    'close recordset
    rs.Close
    DoCmd.Echo True
ErrorHandlerExit:
    Exit Sub
ErrorHandler:
    If Err = 3021 Then    ' no current record
        Resume Next
    Else
        MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
        Resume ErrorHandlerExit
    End If
 
'Code de mis en forme conditionnel
 
If rs!Type.Value < 1 Then
rs!Type.ForeColor = RGB(0, 0, 255)
End If
End Sub

d'avance merci

[Jean-Philippe André]

Salut,

est-ce que cette approche te convient :
http://silkyroad.developpez.com/VBA/ListView/#LII-E

De la meme facon que sous VB6 solution proposee ici :
http://www.developpez.net/forums/d24...ne-d-listview/