Addition De Textbox

skoobi

XLDnaute Barbatruc

• 22 Janvier 2008

• #2

Re : Addition De Textbox

Bonsoir,

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

Code:

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.

 

Dernière édition: 22 Janvier 2008

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 22 Janvier 2008

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Janvier 2008

• #4

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.

Code:

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

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 23 Janvier 2008

• #5

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 23 Janvier 2008

• #6

Re : Addition De Textbox

Re bonjour,

j espere etre clair

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Janvier 2008

• #7

Re : Addition De Textbox

bonjour E et F

Salut Skoobi
Salut Pierrot

A partir du 1er code de Skoobi

Code:

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

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 23 Janvier 2008

• #8

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

 

Vote positif 0 Vote négatif