Discussion :

[Doola]

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 !!Exemple.xlsm

[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 :

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

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

dans la sélection et la même avec "-" dans la suppression.

[Transitoire]

Bonjour,

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?
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

[Doola]

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.

[anasecu]

Bonjour,

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 ?

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

[boisgontierjacques]

Bonsoir,

Sans calcul dans la ListBox

Code :

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

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

[Doola]

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