Addition De Textbox

[Evelynetfrancois]

BONSOIR a tous et toutes
j ai quelques textbox à additionner
ActiveCell = CDbl(TextBox3.Value) + CDbl(TextBox6.Value) + CDbl(TextBox9.Value) + CDbl(TextBox12.Value)

Si un textbox reste vide , ça ne calcule pas !!......

Comment contourner ce probleme ?
A part mettre par default un zero dans chaque textbox à l nnitialisation ...
Si vous pouvez m aider je suis preneur !!
bonne soirée
E et F

 

[skoobi]

Re : Addition De Textbox

Bonsoir,

tu mets une condition qui vérifie que aucun textbox n'est vide:

For t = 3 To 12 Step 3
   If Controls("TextBox" & t).Value = "" Then 
      MsgBox "Un textbox est vide."
      Exit Sub
   End If
Next

Que tu places avant le calcul.

 

[Evelynetfrancois]

Re : Addition De Textbox

Bonsoir skoobi et merci pour ta proposition

mon soucis est que je ne suis pas obligé de remplir les 4 textbox chaque fois , mais juste de faire la somme de ceux qui sont remplis
j espere etre clair
bonne soirée
E et F

 

[Pierrot93]

Re : Addition De Textbox

Bonjour EvelyneEtFrancois, Skoobi

une autre solution, attention cependant la fonction "val" n'accepte que des points comme séparateur de décimale.

Dim x As Double
x = IIf(IsEmpty(TextBox1.Value), 0, Val(TextBox1.Value)) + IIf(IsEmpty(TextBox2.Value), 0, Val(TextBox2.Value)) _
        + IIf(IsEmpty(TextBox3.Value), 0, Val(TextBox3.Value)) + IIf(IsEmpty(TextBox4.Value), 0, Val(TextBox4.Value))

bonne journée
@+

 

[fanfan38]

Re : Addition De Textbox

Bonjour
mavar=0
For t = 3 To 12 Step 3
If len(Controls("TextBox" & t).Value)>0 Then
mavar=mavar+cdbl(Controls("TextBox" & t).Value)
End If
Next
On réutilise la formule à Skoobi légérement modifiée
A+ François

 

[skoobi]

Re : Addition De Textbox

Re bonjour,

j espere etre clair

Je ne vois pas ce que tu veux dire....

 

[pierrejean]

Re : Addition De Textbox

bonjour E et F

Salut Skoobi
Salut Pierrot

A partir du 1er code de Skoobi

For t = 3 To 12 Step 3
   If Controls("TextBox" & t).Value <> "" Then 
      tot=tot+CDbl(Controls("TextBox" & t).Value )
   End If
Next
ActiveCell =tot

 

[Evelynetfrancois]

Re : Addition De Textbox

BONJOUR
Je suis vraiment comblé par vos reponses et votre solidarité
la macro de pierrejean correspond à 100/100 à mon attente !!
elle repond parfaitement a mon probleme
Alors un grand merci de plus, je vous souhaite une trés bonne journée
au plaisir de vous lire
E et F