Discussion :

[Didpa]

Bonjour

Cela va faire plusieur jour que je planche dessus et je n'arrive pas a trouver la solution.

Jai la somme de 25 TB a faire sachant qu'elle ne sont pas toujours rempli
alors il faudrait que quand je demande d'additionner les 25 TB, cela zappe c'elle qui sont vide.

voilà ce que j'ai fait

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
Sub Consommation()
TB1 = CCur(CSLG.TextBox1)
TB2 = CCur(CSLG.TextBox2)
TB3 = CCur(CSLG.TextBox3)
TB4 = CCur(CSLG.TextBox4)
TB5 = CCur(CSLG.TextBox5)
TB6 = CCur(CSLG.TextBox6)
TB7 = CCur(CSLG.TextBox7)
TB8 = CCur(CSLG.TextBox8)
TB9 = CCur(CSLG.TextBox9)
TB10 = CCur(CSLG.TextBox10)
TB11 = CCur(CSLG.TextBox11)
TB12 = CCur(CSLG.TextBox12)
TB13 = CCur(CSLG.TextBox13)
TB14 = CCur(CSLG.TextBox14)
TB15 = CCur(CSLG.TextBox15)
TB16 = CCur(CSLG.TextBox16)
TB17 = CCur(CSLG.TextBox17)
TB18 = CCur(CSLG.TextBox18)
TB19 = CCur(CSLG.TextBox19)
TB20 = CCur(CSLG.TextBox20)
TB21 = CCur(CSLG.TextBox21)
TB22 = CCur(CSLG.TextBox22)
TB23 = CCur(CSLG.TextBox23)
TB24 = CCur(CSLG.TextBox24)
TB25 = CCur(CSLG.TextBox25)
 
 
 
Worksheets("Dettes").Select
 
Range("A7").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CSLG.TB_Nom.Value
If CSLG.TB_Dernier_reglement = "" Then
Else
ActiveCell.Offset(0, 1) = CDate(CSLG.TB_Dernier_reglement)
End If
If TB1 = "" Then
Else
If TB2 = "" Then
Else
If TB3 = "" Then
Else
ActiveCell.Offset(0, 2) = (TB1) + (TB2) + (TB3)
End If
End If
End If
End Sub

Cordialement

[JPierreM]

Bonjour,

J'ai déjà travaillé sur la somme de nombres entrés dans 3 TextBox avec controle du séparateur décimal. Pour travailler sur 25 TextBox ce que je propose me semble lourd à mettre en place, mais peut être un début un début de piste

[zyhack]

Bonjour

un exemple avec des textBox sur un userForm et un bouton de commande à adapter suivant le besoin.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
Dim num As Integer, C As Control, total As Currency
For Each C In UserForm1.Controls
  If (C.Name Like "TextBox*") Then
    If C.Text <> "" Then
      If IsNumeric(Val(C.Text)) Then
        total = total + (CCur(Val(C.Text)))
      End If
    End If
  End If
Next
MsgBox total
End Sub

[Didpa]

merci a vous j'ai fini par trouver une solution en cherchant a droite et a gauche voilà ce que ce donne

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
Private Sub CommandButton1_Click()
 
Dim i As Integer
 Sum = 0
 
 For i = 1 To 25
 On Error Resume Next
 Sum = Sum + Controls("textbox" & i).Value
 Next i
Worksheets("Dettes").Select
Range("A7").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CSLG.TB_Nom.Value
If CSLG.TB_Dernier_reglement = "" Then
Else
ActiveCell.Offset(0, 1) = CDate(CSLG.TB_Dernier_reglement)
End If
ActiveCell.Offset(0, 2) = Sum
end sub