Index out of bounds

[ccfconsulting]

Bonjour,

Afin de faire le calcule d'une colonne d'un listview, je creer une variable :

Private Sub TTotalheure() 'Création variable pour la somme total

Dim k As Long, Ttl As Currency
With ListView1
  For k = 1 To .ListItems.Count
      Ttl = Ttl + .ListItems(k).ListSubItems(10).Text
  Next
  Label31.Caption = Format(Ttl, "# ##0.00")
End With
End Sub

Puis je la charge : TTotalheure

Sur 3 ca à marché mais celle la je ne sait pourquoi m'indique cette erreur, à savoir lors de l'initialisation de l'userform ca marche mais dés que j'essai de cliquer sur un bouton qui modifie le calcule celui ci ce met en bug....
Merci d'avance

 

[Compte Supprimé 979]

Re : Index out of bounds

Salut,
As tu essayé de mettre un point d'arrêt (F9) sur une ligne de ton code
pour voir en mode déboggage ou se trouve l'erreur

Sinon

Private Sub TTotalheure() 'Création variable pour la somme total

Dim k As Long, Ttl As Currency
With ListView1
  For k = 1 To .ListItems.Count
[COLOR=blue][B]      MsgBox "Valeur de Listview, Colonne 10 = " & .ListItems(k).ListSubItems(10).Text
[/B][/COLOR]      Ttl = Ttl + .ListItems(k).ListSubItems(10).Text
  Next
  Label31.Caption = Format(Ttl, "# ##0.00")
End With
End Sub

A+