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

grisan29

XLDnaute Accro

• 23 Janvier 2016

• #16

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

Code:

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

05.50 =<05,50>

Pascal

 

Dernière édition: 23 Janvier 2016

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 23 Janvier 2016

• #17

Re : arrondir à la dizaine inferieur

Bonjour à tous,

Un essai dans le fichier joint.

 

Pièces jointes

• MADAGASCAR-arrondir à la dizaine inferieur-v1.xlsm

  34 KB · Affichages: 46

Dernière édition: 23 Janvier 2016

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 23 Janvier 2016

• #18

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

 

Pièces jointes

• calculmada.jpg

  19 KB · Affichages: 52

Dernière édition: 23 Janvier 2016

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 23 Janvier 2016

• #19

Re : arrondir à la dizaine inferieur

Bonjour grisan29,

grisan29 à dit:

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

Cliquez pour agrandir...

Quel est le PB ?

 

Pièces jointes

• MADAGASCAR-arrondir à la dizaine inferieur-v1a.xlsm

  35.2 KB · Affichages: 43

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 23 Janvier 2016

• #20

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Janvier 2016

• #21

Re : arrondir à la dizaine inferieur

Re, hello mapomme,

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

MADAGASCAR à dit:

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

Cliquez pour agrandir...

Fichier joint.

A+

 

Pièces jointes

• ROUNDED(1).xlsm

  34.4 KB · Affichages: 32

Dernière édition: 23 Janvier 2016

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 23 Janvier 2016

• #22

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

 

Pièces jointes

• 1.jpg

  36.4 KB · Affichages: 27
• 1.jpg

  36.4 KB · Affichages: 33

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Janvier 2016

• #23

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 :

Code:

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+

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 23 Janvier 2016

• #24

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

 

Vote positif 0 Vote négatif