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

Victor21

XLDnaute Barbatruc

• 22 Janvier 2016

• #2

Re : arrondir à la dizaine inferieur

Bonjour, Madagascar.

Pour arrondir à la dizaine inférieure, multipliez par 10 la partie entière de votre valeur divisée par 10.

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 23 Janvier 2016

• #3

Re : arrondir à la dizaine inferieur

Bonjour Victor21
Merci beaucoup pour l'intention d'aide et pour votre idee
J'ai essayé de faire comme vous m'avez dites mais regardez svp ce qu'il me donne

Private Sub TextBox5_Change()
Me.TextBox6.Text = ((Val(Replace(Me.TextBox1, ",", ".")) - (Val(Replace(Me.TextBox2, ",", ".")) + Val(Replace(Me.TextBox3, ",", ".")) + Val(Replace(Me.TextBox4, ",", ".")) + Val(Replace(Me.TextBox5, ",", ".")))) * 10) / 10
End Sub

Cliquez pour agrandir...

Cordialement
MADA BLACK

 

Pièces jointes

• 33.jpg

  12.7 KB · Affichages: 51

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 23 Janvier 2016

• #4

Re : arrondir à la dizaine inferieur

Re,

C'est la partie entière de la valeur divisée par 10 qu'il faut multiplier par 10 :
87 588,05/10 = 8 758,805
La partie entière de 8 758,805 est 8 758
Et 8.758 * 10 = 87 580.

Peut-être (je ne suis pas un spécialiste de VBA, et n'ai pas testé) :

Me.TextBox6.Text = int ((Val(Replace(Me.TextBox1, ",", ".")) - (Val(Replace(Me.TextBox2, ",", ".")) + Val(Replace(Me.TextBox3, ",", ".")) + Val(Replace(Me.TextBox4, ",", ".")) + Val(Replace(Me.TextBox5, ",", ".")))) / 10) )*10

Cliquez pour agrandir...

PS : Y'a beaucoup de parenthèses, non ?

 

Dernière édition: 23 Janvier 2016

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 23 Janvier 2016

• #5

Re : arrondir à la dizaine inferieur

Merci Patrick pour l'aide
J'ai obtenue une erreur de syntax .. comme l'indique cette image ..je ne sais où est l'erreur
Sincerement
MADA BLACK

 

Pièces jointes

• 3.jpg

  14.9 KB · Affichages: 52
• 3.jpg

  14.9 KB · Affichages: 51

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Janvier 2016

• #6

Re : arrondir à la dizaine inferieur

Bonsoir MADAGASCAR, Patrick,

Vous aimez bien les parenthèses et les Meuuhh qui ne servent à rien hein MADA ?

Code:

Private Sub TextBox2_Change()
TextBox6 = Val(Replace(TextBox1, ",", ".")) - Val(Replace(TextBox2, ",", ".")) - Val(Replace(TextBox3, ",", ".")) - Val(Replace(TextBox4, ",", ".")) - Val(Replace(TextBox5, ",", "."))
TextBox6 = Application.RoundDown(CDbl(TextBox6), -1)
End Sub

Bonne nuit.

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 23 Janvier 2016

• #7

Re : arrondir à la dizaine inferieur

Re,

En supprimant les () superflus, (Mon Post scriptum du #4) ça donne quoi ?

Me.TextBox6 = Int(Val(Replace(Me.TextBox1, ",", ".")) - (Val(Replace(Me.TextBox2, ",", ".")) + Val(Replace(Me.TextBox3, ",", ".")) + Val(Replace(Me.TextBox4, ",", ".")) + Val(Replace(Me.TextBox5, ",", "."))) / 10) * 10

Cliquez pour agrandir...

Nouveau PS : Il n'est pas nécessaire de cliquer sur "J'aime ce post" à chaque réponse : trop d'amour tue l'amour

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 23 Janvier 2016

• #8

Re : arrondir à la dizaine inferieur

Bonjour JOB75
Tres ravi de vous voir dans ce sujet
Merci beaucoup pour l'aide
Je ne sais pas pourquoi j'ai utilisé le meme exemple avec ces chiffres mais le resultat obtenu das TextBox6 c'etait ( 978100 )
Normalement se sera bien ( 87580 )
Cordialement
MADA BLACK

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 23 Janvier 2016

• #9

Re : arrondir à la dizaine inferieur

Bonjour Patrick
Je vais noter bien votre remarque ..mais l'amour tue l'amour pour les infideles ..
Aussi cher Patrick le resultat obtenue est ( 967930 )
Je ne sais pas où est le probleme avec ce malheureux fichier
Cordialement
MADA BLACK

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 23 Janvier 2016

• #10

Re : arrondir à la dizaine inferieur

Re, Mada

Vous savez faire le calcul par formule et, manifestement vous maîtrisez le VBA autant que moi...

La sagesse ne voudrait-elle pas que vous utilisiez les outils que vous connaissez plutôt que de dépendre à chaque ligne du bon-vouloir et du bon-savoir des "malheureux" intervenants de ce forum ?
Et plutôt que de perdre du temps à attendre les réponses l'employer, si vous en avez le goût, à vous perfectionner ?

PS : Bonsoir, Gérard

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 23 Janvier 2016

• #11

Re : arrondir à la dizaine inferieur

Croyez moi Patrick je ne reste toujours pas les bras croisés ..
Mais parfois je change plusieurs codes et je fais plusieurs trucs mais finalement je n'arrive pas a la bonne reponse que je souhaite .. ici je poste mon sujet dans le forum..
Dans tous les cas je respecte votre opinion
Cordialement
MADA BLACK

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 23 Janvier 2016

• #12

Re : arrondir à la dizaine inferieur

bonjour Mada,victor,job75 et le forum

essai ceci pour voir

Code:

TextBox6 = Format(TextBox6, "0")

normalement les textbox ne doivent contenir que du texte
pascal

 

Dernière édition: 23 Janvier 2016

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Janvier 2016

• #13

Re : arrondir à la dizaine inferieur

Bonjour grisan29, le fil, le forum,

Le problème posé c'est arrondir à la dizaine inferieure

J'en profite pour compléter les autres macros de l'USF :

Code:

Private Sub TextBox3_Change()
TextBox2_Change
End Sub
Private Sub TextBox4_Change()
TextBox2_Change
End Sub
Private Sub TextBox5_Change()
TextBox2_Change
End Sub

Bonne journée.

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 23 Janvier 2016

• #14

Re : arrondir à la dizaine inferieur

Bonjour Pascal
Merci beaucoup pour l'aide
Mais malheureusement aussi .. j'ai pas obtenu la bon resultat
J'ai pas connu meme pas où je vais poser cette formule
Dans tous les cas merci beaucoup
Cordialement
MADA BLACK

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 23 Janvier 2016

• #15

Re : arrondir à la dizaine inferieur

Bonjour JOB75
Merci beaucoup pour vos codes et votre aide
J'ai essayé de mettre vos codes ensemble comme ceci :
Private Sub TextBox3_Change()
TextBox2_Change
End Sub
Private Sub TextBox4_Change()
TextBox2_Change
End Sub
Private Sub TextBox5_Change()
TextBox2_Change
End Sub
Private Sub TextBox2_Change()
TextBox6 = Val(Replace(TextBox1, ",", ".")) - Val(Replace(TextBox2, ",", ".")) - Val(Replace(TextBox3, ",", ".")) - Val(Replace(TextBox4, ",", ".")) - Val(Replace(TextBox5, ",", "."))
TextBox6 = Application.RoundDown(CDbl(TextBox6), -1)
End Sub
Mais finalement par mal chance j'ai obtenu ce resultat pas arrondi dans TextBox6 ..
Tres cordialement
MADA BLACK

 

Pièces jointes

• 3.jpg

  10.8 KB · Affichages: 44
• 3.jpg

  10.8 KB · Affichages: 49

Vote positif 0 Vote négatif