Somme Label.Caption -> Textbox

[ALEX]

Hi forum

J'ai une macro qui me change les label.caption de plusieurs labels

Je voudrais ds un textBox1 faire la somme des Labels...

Quelle est la formule??

 

[Hellboy]

Bonjour ALEX

Asser exentrique comme façon de faire ! :silly:

Mais enfin, je suppose que quand tu dis:ds un textBox1 faire la somme des Labels, Tu veux afficher le calcul.
Tu as tout simplement a faire le tour de tes labels... et additionner les valeur qui s'y trouve dans une variable. Ensuite tu donne comme valeur a ton textbox, le résultat de ta variable.

Hellboy :evil:

 

[Hervé]

Bonjour

En imaginant que tu n'a pas changé les noms de tes labels, et que leur numéro se suivent (label1, label2,....) :

Private Sub CommandButton1_Click()
Dim i As Byte
Dim total As Double

For i = 1 To 6
total = total + CDbl(Controls('Label' & i))
Next i
TextBox1 = total
End Sub

for i=1 to 6, limite le code du label1 au label6 , à toi de l'adapter.

Salut