Calcul entre Textbox et label

[nyal3]

Bonjour,

Pourriez-vous me dire comment faire une soustraction entre une Textbox et une Label dans un userform?
Merci pour votre aide.

 

[mapomme]

Bonsoir nyal3,

A tout hasard (aucun fichier n'a été joint) - le séparateur décimal d'Excel étant supposé être la virgule:

CDbl(Replace(TextBox1, ".", ",")) - CDbl(Replace(Label1, ".", ","))

 

[job75]

Bonsoir nyal3, mapomme,

Plutôt ça :

Val(Replace(TextBox1, ",", ".")) - Val(Replace(Label1, ",", "."))

A+

 

[nyal3]

Bonsoir nyal3, mapomme,

Plutôt ça :

Val(Replace(TextBox1, ",", ".")) - Val(Replace(Label1, ",", "."))

A+

Bonjour job75, mapomme,
J'ai inséré votre code, mais j'ai une incompatibilité de type en retour.

Merci pour votre aide.

 

[ChTi160]

Bonsoir nyal3
Bonsoir le Fil ,le Forum
j'ai constaté que tu as mis :

Sub CalculSomme()
Me.Label21.Value = Val(Replace(Me.TextBox15, ",", ".")) - Val(Replace(Me.TextBox11, ",", "."))
End Sub

au lieu de

Sub CalculSomme()
Me.Label21.Caption = Val(Replace(Me.TextBox15, ",", ".")) - Val(Replace(Me.TextBox11, ",", "."))
End Sub[/Quote
teste si cela regle ton probleme car ton dernier fichier fait référence a des Classeur que nous n'avons pas .
jean marie

edit j'ai joins le fichier ,tu le testes en l'état(j'ai isole les Ligne concernant les autres fichiers

 

[nyal3]

Bonsoir nyal3
Bonsoir le Fil ,le Forum
j'ai constaté que tu as mis :

au lieu de

edit j'ai joins le fichier ,tu le testes en l'état(j'ai isole les Ligne concernant les autres fichiers

Bonsoir ChTi160,le forum
Merci, cela fonctionne.
J'ai intégré le code au bouton "valider"
Peux-tu me dire pourquoi j'ai toujours une virgule et non un point?

 

[ChTi160]

re
déjà j'ai vu que la y'a un problème :

Me.Label21.Caption = Val(Replace(T_1, ",", ",")) + Val(Replace(L_2, ",", ","))

ça veut dire remplacer la Virgule par une Virgule ??????
il faut :

",", "."

soit : remplacer la Virgule par un Point
je te laisse corriger dans ton fichier
et tu nous dis.
jean marie

 

[nyal3]

re
déjà j'ai vu que la y'a un problème :

Me.Label21.Caption = Val(Replace(T_1, ",", ",")) + Val(Replace(L_2, ",", ","))

ça veut dire remplacer la Virgule par une Virgule ??????
il faut :
soit : remplacer la Virgule par un Point
je te laisse corriger dans ton fichier
et tu nous dis.
jean marie

Désolé, j'ai juste fait un test dans le fichier joint..
Mais même avec ",","." j'ai toujours une virgule dans le résultat.
Je demande un point dans la textbox 15 pour la mise en forme conditionnelle....peut être que cela vient de là?