faire une somme de valeur dans un lisview si cellule vide

[babylonzoo]

bonjour a tous

ci joint le code VBA me permettant de comptabiliser des valeurs dans deux colonnes d'un listview.

Private Sub TTotal()

Dim k As Long, Ttl1 As Currency, Ttl2 As Currency
With ListView1
  For k = 1 To .ListItems.Count
      Ttl1 = Ttl1 + .ListItems(k).ListSubItems(6).Text
  Next
  Somme.Caption = Format(Ttl1, "# ##0")

End With
With ListView1
  For k = 1 To .ListItems.Count
      Ttl2 = Ttl2 + .ListItems(k).ListSubItems(7).Text
  Next
  Label18.Caption = Format(Ttl2, "# ##0")
End With
End Sub

donc 2 colonnes et 2 valeurs en caption.

le pbs est que parfois j'ai des cellules vides dans mes colonnes ce qui fait planter la macro. Je sais qu'il existe une fonction isempty mais je na sais pas l'appliquer dand ce cas .

Si quelqu'un connait une réponse a mon probleme merci encore

babylonzoo

 

[Bebere]

Re : faire une somme de valeur dans un lisview si cellule vide

bonjour
essaye comme suit

For k = 1 To .ListItems.Count
if .ListItems(k).ListSubItems(6).Text<>"" then
Ttl1 = Ttl1 + cdbl(.ListItems(k).ListSubItems(6).Text)
endif
Next

à bientôt

 

[babylonzoo]

Re : faire une somme de valeur dans un lisview si cellule vide

merci bebere,

ta solution fonctionne parfaitement

a+

babylonzoo