CDbl(Replace(TextBox1, ".", ",")) - CDbl(Replace(Label1, ".", ","))
Val(Replace(TextBox1, ",", ".")) - Val(Replace(Label1, ",", "."))
Bonsoir nyal3, mapomme,
Plutôt ça :
A+Code:Val(Replace(TextBox1, ",", ".")) - Val(Replace(Label1, ",", "."))
au lieu deSub CalculSomme()
Me.Label21.Value = Val(Replace(Me.TextBox15, ",", ".")) - Val(Replace(Me.TextBox11, ",", "."))
End Sub
edit j'ai joins le fichier ,tu le testes en l'état(j'ai isole les Ligne concernant les autres fichiersSub 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
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
Me.Label21.Caption = Val(Replace(T_1, ",", ",")) + Val(Replace(L_2, ",", ","))
soit : remplacer la Virgule par un Point",", "."
re
déjà j'ai vu que la y'a un problème :
ça veut dire remplacer la Virgule par une Virgule ??????VB:Me.Label21.Caption = Val(Replace(T_1, ",", ",")) + Val(Replace(L_2, ",", ","))
il faut :
soit : remplacer la Virgule par un Point
je te laisse corriger dans ton fichier
et tu nous dis.
jean marie