Somme d'une column dans une listebox

Bonjour à tous

je veux afficher dans une textbox la somme d'une column dans une listbox mais je n'ai pas réussi pouvez vous m'aider SVP

voici mon essai : ( j'ai mis ce code dans "UserForm_Initialize()")

For m = 1 To Me.ListBox1.ListCount - 1

Sum = Sum + Val(ListBox1.List(m, 10))

Next m

Me.TextBox4 = Sum

merci bien

Bonjour,

Les index de lignes partent de 0 et non 1.

Les colonnes également donc 10 = 11e colonne : es-tu sûr d'avoir 11 colonnes ou plus ?

Ta ListBox doit être alimentée lors de l'opération.

Je ne vois pas tes déclarations de variables.

Cordialement.

RE

voici mon code

Dim Sh As Object

Private Sub TextBox4_Change()

End Sub

Private Sub UserForm_Activate()

Set Sh = Feuil5

Call InitList(1, "")

End Sub

Sub InitList(Col, MaVar)

Derniereligne = Sh.Cells(Rows.Count, 1).End(xlUp).Row

With ListBox1

.Clear

.ColumnCount = 11

For X = 2 To Derniereligne

If UCase(Sh.Cells(X, Col)) Like UCase(MaVar) & "*" Then

.AddItem Sh.Cells(X, 1)

For C = 1 To 9

.List(.ListCount - 1, C) = Sh.Cells(X, C + 1).Text

Next C

End If

Next X

End With

End Sub

Private Sub TextBox1_Change()

Call InitList(3, TextBox1.Value)

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim i As Integer

Dim chemin As String

If ListBox1.ListIndex <= 0 Then Exit Sub

chemin = "\\192.168.1.251\Sassi sghaier\sassi\FACTURATION\2018\FACTURES"

For i = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(i) Then

RefFacture = ListBox1.List(i, 1)

ThisWorkbook.FollowHyperlink chemin & "\" & RefFacture & ".pdf"

Exit Sub

End If

Next i

End Sub

Private Sub UserForm_Initialize()

For m = 0 To Me.ListBox1.ListCount - 1

Sum = Sum + Val(ListBox1.List(m, 11))

Next m

Me.TextBox4 = Sum

Me.TextBox2.Value = Feuil3.Range("j4").Value

Me.TextBox3.Value = Feuil3.Range("j3").Value

End Sub

J'apprécie quand le code est mis sous balises Code, et est indenté !

1) La procédure initialize est exécutée la première, et une seule fois au chargement du Userform : au moment de son exécution, la ListBox est donc vide.

2) La procédure Activate s'exécute ensuite, et à chaque affichage du Userform (quand onle masque puis le réaffiche...). Elle lance une procédure qui initialise la ListBox en fixant le nombre de colonne à 11 (paramètre qui devrait être défini par défaut dans la mesure où il n'est pas appelé à varier à l'exécution ! ) mais n'en initialise que 10 !

3) Même en rétablissant l'ordre logique d'initialisation, tu auras du mal à additionner le contenu de la 12e colonne (...List(m, 11)) d'une ListBox qui n'en comporte que 10.

Cordialement.

Bonjour

donne plutôt un modèle de ton fichier

A+

Maurice

Bonjour,

SommeColonneListBox = Application.Sum(Application.Index(Me.ListBox1.List, , 3)) ' colonne 3

Boisgontier

Rechercher des sujets similaires à "somme column listebox"