Index out of bounds

ccfconsulting · 22 Avril 2010

Bonjour,

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

Code:

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 · 23 Avril 2010

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

Code:

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+

Index out of bounds

ccfconsulting

Guest

Compte Supprimé 979

Guest

Discussions similaires

Index out of bounds

ccfconsulting

Guest

Compte Supprimé 979

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency