Discussion :

[Le Pharaon]

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

[Le Pharaon]

[zx10]

Bonsoir,
Moi aussi çà m'interresse.
Merci

[SilkyRoad]

bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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
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