Discussion :

[pilounet54]

bonjour j'ai l'impression qu'il ne fait pas, avec ce code l'addition si le label est vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Label66 = CDbl(Me.Label75.Caption) + CDbl(Me.Label74.Caption) + CDbl(Me.Label71.Caption) + CDbl(Me.Label70.Caption) + CDbl(Me.Label67.Caption)

toujours en gardant l'addition des decimal merci

[Daniel.C]

Bonjour,

Comment renseignes-tu les labels ?

[pilounet54]

Bonjour,

Comment renseignes-tu les labels ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Label67 = [U5]

[Daniel.C]

Modifie ce code pour y mettre tes labels :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Var = Array("Label1", "Label2")
For i = 0 To UBound(Var)
    If IsNumeric(Me.Controls(Var(i))) Then ctr = ctr + CDbl(Me.Controls(Var(i)).Caption)
Next i
MsgBox ctr

[pilounet54]

merci beaucoup cela fonctionne super bien !

[pilounet54]

VAR es ce que tu le declare stp
car il me dit sur le message d'erreur tableau attendu dans un fichier vierge cela fonctionne mais pas dans mon usine de fichier
pas du tout

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Var, Ctr As Double
Var = Array("Label75", "Label74", "Label71", "Label70", "Label70")
For i = 0 To UBound(Var)
    If IsNumeric(Me.Controls(Var(i)).Caption) Then Ctr = Ctr + CDbl(Me.Controls(Var(i)).Caption)
Next i
Me.Label66.Caption = Ctr
MsgBox Ctr