addition label vide

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

Code:

---

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

Bonjour,

Comment renseignes-tu les labels ?

Citation:

---

Envoyé par Daniel.C

Bonjour,

Comment renseignes-tu les labels ?

---

Code:

---

Me.Label67 = [U5]

---

Modifie ce code pour y mettre tes labels :

Code:

---

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

---

merci beaucoup cela fonctionne super bien !:ccool:

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

Code:

---

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

---

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:

---

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

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:

---

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

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