Addition conditionnelle colonne Listview

Bonjour à toutes et tous,

je cherche à additionner les valeurs numérique d'une colonne de mon listview si dans la colonne suivante il y a un "x".

j'ai le code pour faire l'addition, mais je ne sais pas comment ajouter la condition.

Dim Z As Integer

Dim total As Currency

With ListView1

'Boucle sur toutes les lignes

For Z = 1 To .ListItems.Count

If IsNumeric(.ListItems(Z).ListSubItems(4).Text) Then

total = total + Val(.ListItems(Z).ListSubItems(4).Text)

End If

Next Z

End With

TextBox1.Value = total

Bonjour,

De cette façon peut être ?

Private Sub ListView1_Click()

    Dim Z As Integer
    Dim total As Currency

    With ListView1

        'Boucle sur toutes les lignes

        For Z = 1 To .ListItems.Count

            With .ListItems(Z)

                If .ListSubItems(5).Text = "x" Then
                    If IsNumeric(.ListSubItems(4).Text) Then
                        total = total + CDbl(.ListSubItems(4).Text)
                    End If

                End If

            End With

        Next Z

    End With

    TextBox1.Value = total

End Sub

Effectivement, ça marche super.

merci beaucoup.

Bonjour

a mettre a la fin de Remplir

T1 = 0
T2 = 0
T3 = 0
   With ListView1
   'Boucle sur toutes les lignes
      For Z = 1 To .ListItems.Count
         If IsNumeric(.ListItems(Z).ListSubItems(4).Text) Then
            If .ListItems(Z).ListSubItems(5).Text = "x" Then T1 = T1 + Val(.ListItems(Z).ListSubItems(4).Text)
            If .ListItems(Z).ListSubItems(6).Text = "x" Then T2 = T2 + Val(.ListItems(Z).ListSubItems(4).Text)
            If .ListItems(Z).ListSubItems(7).Text = "x" Then T3 = T3 + Val(.ListItems(Z).ListSubItems(4).Text)
         End If
      Next Z
   End With
      TextBox1.Value = T1
      TextBox2.Value = T2
      TextBox3.Value = T3

A+

Maurice

Bonsoir,

Je vais essayer. Merci bcp.

Bonjour, merci cela fonctionne nickel.