[RESOLU par mapomme.JOB75.Pascal]arrondir à la dizaine inferieur

[MADAGASCAR]

Bonjour Forum
Bonjour à tous et à toutes
S'il vous plaît ..si vous pouvez m'aider à résoudre ce problème
Dans mon UserForm1 j'ai 6 TextBox
TextBox6.Text = TextBox1.Text - (TextBox2.Text + TextBox3.Text + TextBox4.Text + TextBox5.Text)
Par exemple, comme l'opération dans l'image ci-dessous:
87588,05 = 97816,10 - (05.50 + 1146,60 + 300 + 8775,95)
Je veux que le résultat dans TextBox6 sera toujours arrondi à la dizaine inferieur
dans cet exemple (87588,05) .. apparaît (87580,00)
Je tente avec le code dans mon USF mais j'ai pas completement réussi
Merci beaucoup d'avance pour l'aide
Cordialement
MADA BLACK

 

[grisan29]

Re : arrondir à la dizaine inferieur

bonjour Madagascar

tu peux la mettre dans l’initialisation de l'userform, en fait ce code ne mets rien après la virgule
si tu ne veux que 2 chiffres après virgule tu mets "0.00"

dans le code que tu as mis dans ton post de départ si tu mettait partout des virgules le calcul se ferait mieux

87588,05 = 97816,10 - (05.50 + 1146,60 + 300 + 8775,95)

05.50 =<05,50>

Pascal

 

[mapomme]

Re : arrondir à la dizaine inferieur

Bonjour à tous,

Un essai dans le fichier joint.

 

[grisan29]

Re : arrondir à la dizaine inferieur

bonjour Mada

on s'est croisé ma Pomme j'ai regardé ton classeur et recopier exactement ce que tu as mis et voila le résultat que j'ai
Pascal

 

[mapomme]

Re : arrondir à la dizaine inferieur

Bonjour grisan29,

bonjour Mada

on s'est croisé ma Pomme j'ai regardé ton classeur et recopier exactement ce que tu as mis et voila le résultat que j'ai
Pascal

Quel est le PB ?

 

[grisan29]

Re : arrondir à la dizaine inferieur

bonjour Mapomme
il n'y a aucun problème je croyais répondre a madagascar car je n'avais pas remarqué que c'était toi qui avais mis le fichier
Pascal

 

[job75]

Re : arrondir à la dizaine inferieur

Re, hello mapomme,

Au post #15 pourquoi raconter et surtout faire n'importe quoi ???

Mais finalement par mal chance j'ai obtenu ce resultat pas arrondi dans TextBox6 ..

Fichier joint.

A+

 

[MADAGASCAR]

Re : arrondir à la dizaine inferieur

Bonjour Pascal .. JOB75 .. mapomme
Merci beaucoup pour vos aides
Formidables réponses obtenues par des formidables membres
Pascal .. si vous pouvez bien sur .. SVP me mettre votre code dans un fichier ..pour mieux comprendre .. et faire choisir la simple solution .. Victor21 m'a dit "pas trop posté.."
mapomme .. vous m'avez bien .. tres bien compris .. surtout avec le resultat arrondi dans TextBox6 à la dizaine inferieur
Merci 100 fois pour vos deux supers fichiers ..ça fonctionnent tres bien
JOB75 .. merci 1000 fois pour votre super suivi de ce sujet .. tres gentil de votre part
Je ne sais pas pourquoi toujours j'obtiens faux resultat dans TextBox6 meme dans votre derniere version .. voir SVP l'image ci dessous ..malgré que l'opération ça fonctionne tres tres bien .. avec des simples codes dans UserForm ..sauf "ARRONDI à la dizaine inferieur"
Merci a vous tous ..sans oublié Victor21
Tres cordialement
MADA BLACK

 

[job75]

Re : [RESOLU par mapomme.JOB75.Pascal]arrondir à la dizaine inferieur

Re,

Alors il y a un problème sur votre version Excel MADA car sur mes 2 ordi avec Excel 2010 et 2013 j'ai le même résultat 87580.

Cela dit on peut bien sûr se passer de Application.RoundDown :

Private Sub TextBox2_Change()
TextBox6 = Val(Replace(TextBox1, ",", ".")) - Val(Replace(TextBox2, ",", ".")) - Val(Replace(TextBox3, ",", ".")) - Val(Replace(TextBox4, ",", ".")) - Val(Replace(TextBox5, ",", "."))
TextBox6 = 10 * Fix(CDbl(TextBox6) / 10)
End Sub

Et chez moi on peut même enlever le CDbl...

A+

 

[MADAGASCAR]

Re : [RESOLU par mapomme.JOB75.Pascal]arrondir à la dizaine inferieur

Bonjour JOB75
Merci beaucoup pour votre super suivi
Toujours meme resultat pas arrondit
Je vais verifier ma version Excel
Tres cordialement
MADA BLACK