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