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

[pilounet54]

j'essaye de faire une macro avec le code mais j'ai le message d'erreur suivant
erreur de compilation utilisation incorrecte du mot cle MEautre question j'ai declare i es que c'est juste stp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Sub Macrolabel()
'
' Macrolabel Macro
'
 
 Me.Label75 = [Q5]
 Me.Label74 = [R5]
 Me.Label71 = [S5]
 Me.Label70 = [T5]
 Me.Label67 = [U5]
 
 
Dim Var, Ctr As Double
Dim i As Integer
 
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
 
 
End Sub

je vais l'utilise mainte et mainte fois merci

[fring]

Bonjour,

Tu peux utiliser "Me" lorsque tu codes dans le module de l'objet en question, dans ton cas si "Me" fait référence à un UserForm et que ton code se situe dans un module standard il ne peut pas deviner à quoi fait référence "Me", il faut donc utiliser le nom de l'objet :

Code :

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

1
2
3
4
5
6
7
With Nom_UserForm
    .Label75 = [Q5]
    .Label74 = [R5]
    .Label71 = [S5]
    .Label70 = [T5]
    .Label67 = [U5]
End With

Concernant la variable i, c'est correct dans ce cas.
Pour plus d'info sur les variables voir ceci

[pilounet54]

c'est logique comme d'habitude en plus .on fait que d'apprendre merci