Discussion :

[SebaB]

Bonjour à tous,
J'essaye de faire la somme des éléments de ma listebox
Je ne sais pas si je dois ajouter une variable.
Quelqu'un peut m'aider svp?
D'avance merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Option Explicit
Dim i As Long
Dim sTemp As String
Dim a
Dim bTest As Boolean
Private Sub ListBox_Change()
 If bTest Then
    Exit Sub
  End If
  sTemp = ""
  For i = 0 To Me.ListBox.ListCount - 1
    If Me.ListBox.Selected(i) Then
      sTemp = sTemp & Me.ListBox.List(i) & ";"
    End If
  Next
  On Error Resume Next
  Err.Clear
  sTemp = VBA.Left(sTemp, VBA.Len(sTemp) - 1)
  If Err.Number <> 0 Then
    sTemp = ""
  End If
  On Error GoTo 0
  ActiveCell = sTemp
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 6 Then
    With Me.ListBox
      .MultiSelect = fmMultiSelectMulti
      .ListStyle = fmListStyleOption
      .Height = 105
      .Width = 50
      .Top = ActiveCell.Top
      .Left = ActiveCell.Offset(0, 1).Left
      .Visible = True
    End With
    On Error Resume Next
    i = 0
    If Worksheets("PRINT").Range("N1").Offset(0, i).End(xlDown).Row = 2 Then
    Me.ListBox.List = Array(Worksheets("PRINT").Range(Worksheets("PRINT").Range("N1").Offset(1, i), _
      Worksheets("PRINT").Range("N4").Offset(0, i).End(xlDown)).Value, "")
  Else
      Me.ListBox.List = Worksheets("PRINT").Range(Worksheets("PRINT").Range("N1").Offset(1, i), _
        Worksheets("PRINT").Range("N1").Offset(0, i).End(xlDown)).Value
    End If
    On Error GoTo 0
    a = VBA.Split(ActiveCell, ";")
    If UBound(a) >= 0 Then
      For i = 0 To Me.ListBox.ListCount - 1
        If Not IsError(Application.Match(Me.ListBox.List(i), a, 0)) Then
          bTest = True
          Me.ListBox.Selected(i) = True
          bTest = False
        End If
      Next
    End If
  Else
    Me.ListBox.Visible = False
  End If
End Sub

[SebaB]

Après quelques recherches je découvre que les items sont sous forme de texte dans mon cas j'ai besoin des valeurs numériques pour pouvoir les additionner, l'utilisation d'une seconde variable est récupérer le résultat à la sortie de la boucle est nécessaire.
Quelqu'un a une idée comment interpréter cette boucle?
merci

[BENNASR]

bonjour
une réponse en général
pour moi et pour faire la somme d'une colonne de ma listbox (je change la propriété de ma listbox : fmMultiSelectMulti)
je crois que te manque CDBL pour convertir en valeur : CDbl(ListBox1.Column(4, g))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
TextBox1.Value = 0
Dim rg As Range
Dim g As Byte
Dim Total As Variant
    For g = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(g) = True Then
            Total = Total + CDbl(ListBox1.Column(4, g))
          End If
    Next g
 TextBox1.Text = Total
End Sub

j'espère que ça t'aide à avancer dans ton exercice

Bonne continuation

[SebaB]

bonjour bennasr,
Merci pour ton intervention je vais essayer d'implémenter
Bonne journée

[SebaB]

J'ai pas réussi quelqu'un veut relever le défi?

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
   Me.ListBox1.ColumnCount = 4
   Me.ListBox1.List = [tableau1].Value
End Sub
 
Private Sub B_ok_Click()
   '--- somme col 4
   tbl = Me.ListBox1.List
   For i = 0 To UBound(tbl)
     tt = tt + tbl(i, 3)
   Next i
   Me.TextBox1 = tt
End Sub

Boisgontier

[boisgontierjacques]

Autre solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
   Me.ListBox1.ColumnCount = 4
   Me.ListBox1.List = [tableau1].Value
End Sub
 
Private Sub B_ok_Click()
   '--- somme col 4
   Tbl = Me.ListBox1.List
   For i = 0 To UBound(Tbl)
     tt = tt + Tbl(i, 3)
   Next i
   Me.TextBox1 = tt
   '------ méthode 2
   Tbl = Me.ListBox1.List
   Tbl2 = Application.Sum(Application.Index(Tbl, , 4))
   Me.TextBox2 = Tbl2
End Sub

Boisgontier