Somme des valeur d'une listbox
Bonjour cher tous,
Je souhaite calculer la somme des valeurs contenue dans une ListBox et faire afficher les résultat dans des Textbox selon les ligne:
ci dessous le code que j'utilise mais malheureusement il ne m'affiche que les informations de la première ligne de ma Listbox sans faire de calcule.
Private Sub ListboxCalculate()
With Me.ListBox1
TotalIvnRow = .ListCount - 1
For InvRow = 0 To TotalInvRow
TRemise = TRemise + .Column(4, InvRow)
TTVA = TTVA + .Column(6, InvRow)
GTotal = GTotal + .Column(7, InvRow)
Next InvRow
Me.GrandTotal = Format(GTotal - TTVA, "Standard")
Me.TotalTVA = Format(TTVA, "Standard")
Me.TotalMontantFacture = Format(GTotal, "Standard")
Me.TotalRemise = Format(TRemise, "Standard")
End With
End Sub
Je cherche ou se trouve le problème mais je ne trouve pas,
veuillez m'aide svp.
Salut
essaye le code ainsi que les message de vérifications :
Private Sub ListboxCalculate()
Dim TRemise As Currency, TTVA As Currency, GTotal As Currency
With Me.ListBox1
TotalIvnRow = .ListCount - 1
MsgBox "TotalInvRow= " & TotalInvRow
For InvRow = 0 To TotalInvRow
TRemise = TRemise + Val(.Column(4, InvRow))
TTVA = TTVA + Val(.Column(6, InvRow))
GTotal = GTotal + Val(.Column(7, InvRow))
MsgBox "TRemise= " & TRemise & "TTVA = " & TTVA & "GTotal = " & GTotal
Next InvRow
End With
MsgBox "TRemise= " & TRemise & "TTVA = " & TTVA & "GTotal = " & GTotal
Me.GrandTotal = Format(GTotal - TTVA, "Standard")
Me.TotalTVA = Format(TTVA, "Standard")
Me.TotalMontantFacture = Format(GTotal, "Standard")
Me.TotalRemise = Format(TRemise, "Standard")
End SubMerci AMIR,
C'est le même résultat,
les msg de vérification sont bon mais il n'additionne pas les éléments des listbox, c'est uniquement les valeur de la première ligne qui s'affichent dans les textbox.
Salut
Alors essaye de nous envoyer un petit exemple sur petit fichier !
Bonjour à tous,
a priori une erreur d'étourderie :
TotalIvnRow = .ListCount - 1
For InvRow = 0 To TotalInvRow
A+
Salut AlgoPlus, PemierJumeau
MsgBox "TotalInvRow= " & TotalInvRow# PemierJumeau : ICI si tu as bien lire les messages de vérifications, tu aura un message vide ou égal a Zéro
ctd que la boucle ne va nulle part après la première ligne de la listbox !
i=0 to 0 Bonne continuation