Somme d'éléments dans un listbox

Version imprimable

12/07/2018, 16h13
Doola

1 pièce(s) jointe(s)

Somme d'éléments dans un listbox

Bonjour à tous, je vous explique mon soucis:
J'ai deux listbox, une list box avec le numéro de mes OF. L'utilisateur doit sélectionner les OF à l'aide de boutons, et je souhaiterais avoir dans la troisième ListBox la somme du prix de toutes les OF sélectionnées. (Juste le prix minimum)
J'ai essayé des choses mais sans succès...

Pourriez vous me venir en aide svp ?

Merci beaucoup !!Pièce jointe 396065
12/07/2018, 22h44
anasecu

Bonjour,

Une listebox n'est pas faite pour afficher des calculs, tu devrais la remplacer par une textbox.
Ensuite tu initialises ta textbox à 0 dans initialize puis tu mets cette formule

Code:

TextBox1 = TextBox1 + Application.VLookup(ListBox1.Value, Range("C6:G26"), 5, 0)

dans la sélection et la même avec "-" dans la suppression.
13/07/2018, 08h43
Transitoire

Bonjour,

Citation:

J'ai deux listbox, une list box avec le numéro de mes OF. L'utilisateur doit sélectionner les OF à l'aide de boutons, et je souhaiterais avoir dans la troisième ListBox la somme du prix de toutes les OF sélectionnées. (Juste le prix minimum)

Vous avez une ListBox avec des OF et vous dites que l'utilisateur doit sélectionner les OF avec des boutons???? "Bizarre vous avez dit Bizarre" pourquoi pas des clics sur la ListBox, en multiSelect si nécessaire? :weird:
Par ailleurs, je me joint a @Anasecu pour ce qui concerne le remplacement d'une ListBox par un TextBox. Puisqu'il n'y a qu'une réponse
Cordialement 8-)
16/07/2018, 14h15
Doola

1 pièce(s) jointe(s)

Bonjour à tous,
Alors finalement je m'en suis bien sorti, j'arrive à faire ce que je voulais ( je vous met le fichier, ça pourrait servir à d'autres personnes ).
J'arrive à voir le prix de mes OF, mais je ne vois rien par rapport à mes fils ou par rapport aux types. Je ne comprends pas où Est-ce que ça bloque. QQ1 aurait des idées svp ?

Anasecu, je ne voulais pas faire de calculs avec la listbox, mais ce que j'ai voulu faire c'est ce que j'ai mis dans le fichier en pièce jointe.
Transitoire, merci pour votre contribution. Il faudrait que j'essaye votre solution alternative afin de voir ce que cela donne.
16/07/2018, 19h03
anasecu

Bonjour,

Citation:

Envoyé par Doola

Anasecu, je ne voulais pas faire de calculs avec la listbox, mais ce que j'ai voulu faire c'est ce que j'ai mis dans le fichier en pièce jointe.

Tu as pourtant remplacé ta listbox par un label ?

Citation:

Envoyé par Doola

J'arrive à voir le prix de mes OF, mais je ne vois rien par rapport à mes fils ou par rapport aux types. Je ne comprends pas où Est-ce que ça bloque. QQ1 aurait des idées svp ?

Il faudrait que tu ais des données car avec ton code ce n'est pas ta colonne L que tu utilises mais la D

1 pièce(s) jointe(s)

Bonsoir,

Sans calcul dans la ListBox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub totalOF()
  Tbl = [Tof].Value
  Tbl2 = ListBox2.List
  t = 0
  For i = LBound(Tbl2) To UBound(Tbl2)
    For j = 1 To UBound(Tbl)
      If Tbl2(i, 0) = Tbl(j, 1) Then t = t + Tbl(j, 5)
    Next j
  Next i
  Me.TextBox1 = t
End Sub

Boisgontier

24/07/2018, 14h03
Doola

Bonjour AnaSecu, j'ai trouvé opté pour la solution de BoisgontierJacques. Merci beaucoup pour tes propositions néanmoins.