ListView total d'une colone

Bonjour tout le monde
Je cherche un module pour faire le total d'une colone de ListView
Merci

:roll:

Bonsoir,
Moi aussi çà m'interresse.
Merci:mouarf:

bonsoir

Code:

1
2
3
Private Sub Command1_Click()
    TotalColonne 2
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub TotalColonne(NumColonne As Integer)
    Dim i As Integer
    Dim Resultat As Double
 
    'Boucle sur toutes les lignes
    For i = 1 To ListView1.ListItems.Count
        If NumColonne = 1 Then
            Resultat = Resultat + CDec(ListView1.ListItems(i).Text)
        Else
            Resultat = Resultat + _
                CDec(ListView1.ListItems(i).ListSubItems(NumColonne - 1).Text)
        End If
    Next i
 
MsgBox Resultat
End Sub