somme de 25 TextBox

Version imprimable

somme de 25 TextBox

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:

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

23/06/2010, 13h21
JPierreM

1 pièce(s) jointe(s)

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

Bonjour

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

Code:

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

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

Code:

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