Discussion :

[meteo62]

bonjour a tous

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



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

[unparia]

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.

[meteo62]

merci pour t'a réponse

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

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

[unparia]

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 :

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

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 :

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

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).

[meteo62]

Je te remercie pour tes explications

Pour une boucle dans la listbox1 je mets ce code

Code :

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

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

[unparia]

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