Calcul en VBA

[gildas lechat]

Bonjour le forum,

ptite question: Comment faire des calculs en VBA du type :
Var1 = Label 1 +Label 2
Var2 = Label 1 -Label 2

Le contenu des labels sont des décimaux du type 13.5...

Merci de votre réponse
Gildas

 

[Hulk]

Re : Calcul en VBA

Hello,

Essaie comme ceci

Var1 = Val(Label1.Caption) + Val(Label2.Caption)
Var2 = Val(Label1.Caption) - Val(Label2.Caption)

 

[Davidc57]

Re : Calcul en VBA

Salut Gildas,

Ca devrait marcher tout simplement comme tu l'as écrit.
Essaye de déclarer tes variables en Double (voir Single selon les nombres ..)

Sinon, est-tu certain que le point décimale doit être un point ? Il se peut que le compilateur croit que ce sont des chaines de caractères !!!!

A part cela, les variable ne contiennent jamais d'espace. "Label 1" n'est pas une variable.
"Label1" ou "Label_1" sont des variables ...

J'espère t'avoir aidé.

David

 

[gildas lechat]

Re : Calcul en VBA

Bonjour David,
Mercipour la réponse

La calcule fontionne sur des nombres entier

Dès que je passe en décimal du type "3-0.2", le résultat est égal à 3😕

Voici le Code

tolp = CInt(Val(Label1.Caption) + Val(Label2.Caption))
tolm = CInt(Val(Label1.Caption) - Val(Label3.Caption))

Si vous avez une idée.
Merci
Gildas

 

[Hulk]

Re : Calcul en VBA

Hello,

Vois le classeur joint.

Bonne soirée !