Formule Somme textbox à allégé

[niepce26]

Bonjour,

J'ai trouvé cette formule pour additionner des textbox.

Private Sub TextBox11_AfterUpdate()
TextBox300 = Val(Replace(TextBox11, ",", ".")) + Val(Replace(TextBox14, ",", ".")) + Val(Replace(TextBox17, ",", "."))
End Sub

Private Sub TextBox14_AfterUpdate()
TextBox300 = Val(Replace(TextBox11, ",", ".")) + Val(Replace(TextBox14, ",", ".")) + Val(Replace(TextBox17, ",", "."))
End Sub

........

Cette formule me convient parfaitement, car elle recalcul des la modification d'une textbox et permet le calcul même si une ou des textbox sont vide. Donc super......😀

Mon problème est que j'ai plus de 100 Textbox à additionner, est ce que quelqu'un aurait une solution pour alléger ce code. Attention mes textbox à additionner ne se suivent pas.😱

Par avance merci.

Niepce

 

[pierrejean]

Re : Formule Somme textbox à allégé

bonjour nicephore

Non testée (et pour cause !)

T=array(11,14,17,......,100)
For n = LBound(T) To ubound(T)
  tot = tot + Val(Replace(Me.Controls("TextBox" & T(n)), ",", "."))
Next n
TextBox300 = tot

 

[Bebere]

Re : Formule Somme textbox à allégé

bonsoir Niepce,Pierre jean
un essai avec 10 textbox,si rien oublié bon pour 100 et plus
à bientôt