blord
XLDnaute Impliqué
Bonjour à tous,
J'essaie d'additionner la première colonne de ma listview avec le code suivant après avoir chargé la listview. J'obtient un code incompatibilité de type avec ce code : Comme je ne suis pas très familier avec le contrôle listview, je bloque sur cette erreur.
Merci pour vos conseils...
Blord
J'essaie d'additionner la première colonne de ma listview avec le code suivant après avoir chargé la listview. J'obtient un code incompatibilité de type avec ce code : Comme je ne suis pas très familier avec le contrôle listview, je bloque sur cette erreur.
Code:
Sub LoadListView1()
'Load le listview avec les garanties existantes
Dim i As Long
Dim j As Integer, x As Integer
Dim somme As Double
With ListView1
x = .ListItems.Count + 1
.ListItems.Clear
With .columnHeaders
.Clear
.Add , , "Temps", 50, lvwColumnLeft
.Add , , "Projet", 200, lvwColumnLeft
.Add , , "Détail", 200, lvwColumnLeft
.Add , , "Détail", 1, lvwColumnLeft
End With
.View = 3
.FullRowSelect = True
.Gridlines = True
.labeledit = 1
For i = 2 To Sheets("DIM").Range("A65536").End(xlUp).Row
If Left(Sheets("DIM").Cells(i, 1), 8) = 20100715 Then
.ListItems.Add , , Format(Sheets("DIM").Cells(i, 2), "0.00")
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("DIM").Cells(i, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("DIM").Cells(i, 4)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("DIM").Cells(i, 1)
End If
Next
For j = 1 To .ListItems.Count
somme = somme + CDbl(.ListItems(j).ListSubItems(.columnHeaders.Count - 1))
Next j
TextBoxHeuresDIM.Value = somme
End With
End SubMerci pour vos conseils...
Blord