calcul colonne 2 listbbox

bonjour a tous

dans un userform avec 2 combobox
j'ai une listbox1 a 2 colonne


Pièce jointe 297729
je clique sur le bouton " selectionner toute la liste" et j'ajoute dans la textbox1 un chiffre


j'aimerais savoir comment faire le calcul de la textbox1 + la valeur de la colonne 2 de la listbox1 et ceux pour toute la liste sélectionner


merci de votre aide

Bonjour
Et quel code (au demeurant très simple) as-tu au moins tenté pour y parvenir ?
Juste une piste : les textboxes et listboxes contiennent des chaines de caractères (de type string). Elles sont à convertir en type numérique si tu veux les utiliser pour faire des additions.

merci pour t'a réponse

actuellement j'arrive a faire le calcul pour un seule item avec ceci :

Code:

---

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

On Error Resume Next If TextBox3.Value = "" Then TextBox3.Value = "0" End If   TextBox4.Value = CDbl(Me.TextBox1) + CDbl(Me.TextBox3)   Dim dllgn, i, wrgst If ListBox1.ListIndex = -1 Then Exit Sub If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then Exit Sub Set wrgst = Sheets(ComboBox1.Value) With wrgst dllgn = ListBox1.ListIndex + 6: 'MsgBox ListBox1.ListIndex & " " & dllgn Range(.Cells(dllgn, 1 + (ComboBox2.ListIndex * 5)), .Cells(dllgn, 2 + (ComboBox2.ListIndex * 5))).ClearContents   For i = 5 To ListBox1.ListCount + 5 If .Cells(i, 1 + (ComboBox2.ListIndex * 5)).Value & "" & .Cells(i, 2 + (ComboBox2.ListIndex * 5)).Value = "" Then Range(.Cells(i, 1 + (ComboBox2.ListIndex * 5)), .Cells(i, 2 + (ComboBox2.ListIndex * 5))).Value = _ Range(.Cells(i, 1 + (ComboBox2.ListIndex * 5)), .Cells(i, 2 + (ComboBox2.ListIndex * 5))).Value .Cells(i, 1 + (ComboBox2.ListIndex * 5)).Value = Label7.Caption .Cells(i, 2 + (ComboBox2.ListIndex * 5)).Value = TextBox4.Value End If Next End With   TextBox4.Value = "" TextBox3.Value = ""

---

ce que je cherche a faire c'est la même chose mais avec tous les items de la listbox

Citation:

---

ce que je cherche a faire c'est la même chose mais avec tous les items de la listbox

---

Hé bien ! Parcours donc les items de ta listbox et calcule donc directement avec eux (ce que je ne vois pas dans ta boucle).

PS : au passage (et bien que non pénalisant) :

Code:

---

1 2	If ListBox1.ListIndex = -1 Then Exit Sub If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then Exit Sub

---

Quelle est l'utilité de la première de ces deux lignes ?

Et enlève-moi s'il te plait ce cache-misère :

Code:

---

On Error Resume Next

---

qui n'a ici aucune autre vocation que celle de ne pas dénoncer TES propres erreurs de code !
Si ton code est erroné, sache au moins où (en ôtant cette autruche qui met sa tête dans le sable).

Je te remercie pour tes explications

Pour une boucle dans la listbox1 je mets ce code

Code:

---

1 2 3 4 5

Dim i As Integer   For i = 0 To ListBox1.ListCount - 1   Next i

---

Mais je ne vois pas comment l’intégrer dans le code précèdent

Citation:

---

Mais je ne vois pas comment l’intégrer dans le code précèdent

---

Tu jettes carrément le code précédent et tu en écris un en complétant celui de ta boucle (à l'intérieur de ton For To .. Next), qui ne parcourt pour l'instant rien ...