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

christian.bedere · 15 Novembre 2008

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 · 15 Novembre 2008

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

Bonsoir,

essaie ainsi (modifie la fin de ton code)

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 · 15 Novembre 2008

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

Re,

Comme ceci peut-être:

Code:

'.../...
.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 · 15 Novembre 2008

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 · 15 Novembre 2008

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 · 15 Novembre 2008

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

Bonsoir,
Essaie comme ceci

Code:

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

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

christian.bedere

XLDnaute Occasionnel

Pièces jointes

Cousinhub

XLDnaute Barbatruc

bqtr

XLDnaute Accro

roro69

XLDnaute Impliqué

christian.bedere

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Discussions similaires