Re : Ligne en couleur dans listeview
bonjour Matrix,Gibe
font rouge si pas de croix,jaune si croix existe
pour la date comprend pas
Sub IniListview()
On Error Resume Next
Dim i As Long
Sheets("BD").AutoFilterMode = False
With ListView1
.ListItems.Clear
With .ColumnHeaders
.Clear
.Add , , "N°", 20
.Add , , "Fournisseur", 60
.Add , , "# d'inspection", 75
.Add , , "date", 85
.Add , , "Véhicule", 50
.Add , , "'Type de véhicule", 75
.Add , , "'Type de réparation", 90
.Add , , "Bon de réparation", 50
.Add , , "Date réparation", 85
.Add , , "FIX", 40
'.Add , , "Lieu", 100
'.Add , , "Commentaire", 200
'.Add , , , 0
End With
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
For i = 2 To Sheets("BD").Range("A65536").End(xlUp).Row
.ListItems.Add , , Sheets("BD").Cells(i, 1)
For j = 2 To 12
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BD").Cells(i, j)
Next
.ListItems(.ListItems.Count).ListSubItems.Add , , i
Next
For lgn = 1 To .ListItems.Count
If .ListItems(lgn).ListSubItems(9) = "" Then
.ListItems(lgn).ForeColor = RGB(255, 0, 0)
For j = 1 To 11
.ListItems(lgn).ListSubItems(j).ForeColor = RGB(255, 0, 0)
Next j
Else
.ListItems(lgn).ForeColor = RGB(255, 255, 0)
For j = 1 To 11
.ListItems(lgn).ListSubItems(j).ForeColor = RGB(255, 255, 0)
Next j
End If
Next lgn
End With
ListView1.ListItems(1).Selected = False
Set ListView1.SelectedItem = Nothing
End Sub
à bientôt