Somme sur des labels

[fgehin]

Bonjour à tous et à toutes,

Je commence à m'arracher les cheveux sur un problème extrêmement simple. J'ai essayé toutes les syntaxes de la terre mais n'arrive pas à obtenir le bon résultat.

J'essaie de réaliser une somme sur des valeurs qui se trouvent dans des label.

Le problème est que si j'écris MaSomme = Label1 + Label 2 + Label 3 je n'obtiens pas la somme des valeurs contenues dans les labels, mais la concaténation des chaînes de caractère contenues dans les labels.

Je vous remercie d'avance pour tout coup de main !

Bien cordialement,

Faustine

 

[joss56]

Bonjour,

Par défaut les données des Labels sont de type "caractère".
Si tu utilises des entiers essaye avec MaSomme=Val(Label1)+Val(Label2)+Val(label3)
Si valeurs décimales remplace Val par CDbl

Jocelyn

 

[fgehin]

Merci Jocelyn,

J'avais déjà essayé avec CDbl. J'obtiens une erreur de compilation "Run-time error '13' : type mismatch" avec le code suivant (au niveau de la ligne MaSomme =...) :

Private Sub GarnirChamps2()

Dim MaSomme As Double

LBlOpt1Px = VLgn2(1, 3)
MaSomme = CDbl(LBlOpt1Px) + CDbl(LBlOpt2Px) + CDbl(LBlOpt3Px) + CDbl(LBlOpt4Px) + CDbl(LBlOpt5Px)

LBlPopt.Caption = MaSomme

End Sub

 

[joss56]

Peux tu joindre le fichier (sans infos confidentielles, cela va sans dire)

Jocelyn

 

[joss56]

Petit rectificatif
ce petit bout de code fonctionne :

Label1 = 125.75
Label2 = 12.41

masomme = CSng(Label1) + CSng(Label2)
MsgBox masomme

Jocelyn

 

[youky(BJ)]

Bonjour à tous,
Le point doit être changé par une virgule
Label1.Value=Replace(Label1, ".", ",")
Bruno

 

[joss56]

Bonjour Bruno

En fait c'est une instruction VBA, d’où le .
Je me suis mal exprimé.

Jocelyn

 

[fgehin]

Alors :

• avec la méthode CSng j'obtiens "Run-time error '13' : type mismatch"
• avec la méthode Replace j'obtiens "Compile error : Method or data member not found" (le label ne supporte pas de propriété value).

Je vous joins le fichier, si ça peut vous aider... C'est dans la procédure "GarnirChamps2()" du userform.

 

[job75]

Bonsoir,

Pas du tout testé le fichier mais ceci est classique :

Private Sub GarnirChamps2()
LBlOpt1Px = VLgn2(1, 3)
LBlPopt = Val(Replace(LBlOpt1Px, ",", ".")) + Val(Replace(LBlOpt2Px, ",", ".")) + Val(Replace(LBlOpt3Px, ",", ".")) + Val(Replace(LBlOpt4Px, ",", ".")) + Val(Replace(LBlOpt5Px, ",", "."))
End Sub

A+