Calculer la somme de la 6° colonne d'une listview

[christian.bedere]

Bonsoir à vous

Décidément c'est pratique une listview mais je n'y comprend rien !!!

Je voudrais pouvoir d'un clic, (sur afficher ds mon USF) calculer la somme de toutes les lignes correspondant aux montant ht de mes articles situées en colonne 6 de ma listview.
Avez vous une idée de la formule SVP

merci encore et elle soirée à tous

kiki

 

[Cousinhub]

Re : Calculer la somme de la 6° colonne d'une listview

Bonsoir,

essaie ainsi (modifie la fin de ton code)

Private Sub Ajouter_Click()
Dim i As Long, k As Byte, Derlig As Long

With Me.ListView1
 .ListItems.Clear
    With .ColumnHeaders
      .Clear
      .Add , , "Pièce", 70
      .Add , , "Articles", 120
      .Add , , "Référence", 90
      .Add , , "Qtté", 39
      .Add , , "Prix Unitaire", 80
      .Add , , "Montant HT", 80
      .Add , , "Marge", 40
      .Add , , "Pièce", 0

    End With
Derlig = Sheets("Devis").Range("A65536").End(xlUp).Row
For i = 20 To Derlig
.ListItems.Add , , Sheets("Devis").Cells(i, 1)
For k = 2 To 8
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Devis").Cells(i, k)
Next
Next
For i = 1 To Derlig - 19
    montant = montant + CDbl(.ListItems(i).ListSubItems(5))
Next i
SommeCalculée = montant
End With
End Sub

 

[bqtr]

Re : Calculer la somme de la 6° colonne d'une listview

Re,

Comme ceci peut-être:

'.../...
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Devis").Cells(i, k)
Next
Next
Tht = 0
For m = 1 To .ListItems.Count
  Tht = Tht + (.ListItems(m).ListSubItems(5))
Next
SommeCalculée = Tht
End With
End Sub

A+

Edit : Salut Hubert 🙂

 

[roro69]

Re : Calculer la somme de la 6° colonne d'une listview

Bonsoir

Private Sub Ajouter_Click()
Dim i As Long, k As Byte
Static PHT As Long

With Me.ListView1
.ListItems.Clear
With .ColumnHeaders
.Clear
.Add , , "Pièce", 70
.Add , , "Articles", 120
.Add , , "Référence", 90
.Add , , "Qtté", 39
.Add , , "Prix Unitaire", 80
.Add , , "Montant HT", 80
.Add , , "Marge", 40
.Add , , "Pièce", 0

End With

For i = 21 To Sheets("Devis").Range("A65536").End(xlUp).Row
.ListItems.Add , , Sheets("Devis").Cells(i, 1)
For k = 2 To 8
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Devis").Cells(i, k)
Next
Next
For i = 1 To ListView1.ListItems.Count

' On ajoute
PHT = PHT + Val(ListView1.ListItems(i).SubItems(5))


Next i


SommeCalculée = PHT
End With
End Sub

A++

Bonsoir à bhbh et Bqtr ; j'arrive un peu en retard moi

 

[christian.bedere]

Re : Calculer la somme de la 6° colonne d'une listview

Bonsoir Bhbh, Roro69 et Bqtr

Décidément, vous êtes très pro et ultra-rapides
Merci encore pour votre aide et votre soutien

Bonne soirée à vous

 

[kjin]

Re : Calculer la somme de la 6° colonne d'une listview

Bonsoir,
Essaie comme ceci

'....
S = 0
For i = 1 To ListView1.listItems.Count
S = S + Val(ListView1.listItems(i).listSubItems(5))
Next
SommeCalculée.Caption = CStr(S)
'...
End Sub

Edit : Beaucoup trop rapide pour moi ,salut Roro et Pierre et bhbh 😉
A+
kjin