Somme colonne 1 listview

[blord]

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.

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 Sub

Merci pour vos conseils...

Blord

 

[blord]

Re : Somme colonne 1 listview

Bonjour à tous,

Merci de vous intéresser autant que cela à mes problèmes ! Je trouve toujours impressionnant ce que vous, des bénévoles et amateurs d'Excel (pas dans le sens de débutant mais bien dans le sens de personne qui aime Excel) avez à coeur de bien répondre à des novices comme moi !

Sachez que chaque solution qui m'est proposée est bien notée dans mon "Cahier VBA" qui me sert de document de référence...

Tant qu'à tous vous avoir, est-ce que quelqu'un a déjà expérimenté un problème avec un listview qui se déplace lors du chargement du userform ?

J'ai parfois ce problème au chargement du userform, pas toujours sur le même listview ?? Est-ce qu'il y a un moyen de "figer" le listview ?

Merci à tous !

Blord

 

[YANN-56]

Re : Somme colonne 1 listview

Bonsoir,

Je l'ai déjà constaté, et cela me semble incontournable!

Il faut donc à l'ouverture de l'USF ou en rendant visible la ListView,
préciser son Top et Left.

Amicalement

Yann

 

[blord]

Re : Somme colonne 1 listview

Bonsoir YANN-56,

Merci pour le petit truc....

Blord