Arrondi - Round

[Nitrog]

Bonjour le Forum,

J'ai un petit souci sur cette macro, comment faire pour que le calcul soit arrondi au centime 0.05 ou 0.00

Range('CI3').FormulaR1C1 = 'Epargne escomptée'
Range('CI4').FormulaR1C1 = '=+RC35/102.5%+(RC34-RC35)/102.25%'
Range('CI4').Copy Range('CI5:CI500')
ActiveWindow.ScrollColumn = 80
Columns('CI:CI').Select
Columns('Ci:Ci').NumberFormat = '#,##0.#0'
Le format NumberFormat ne fonctionne pas.

En vous remerciant par avance pour vos excellents conseils.

Nitrog

PS vous n'auriez pas une macro qui fasse venir le soleil :lol:

 

[GG]

Salut le forum
Tu peux simplement formater le cellule par
=ARRONDI(A1;2)
A1 étant la cellule
2 étant le nb de décimales aprés la virgule.

 

[GG]

Salut le forum
Tu peux simplement formater le cellule par
=ARRONDI(A1;2)
A1 étant la cellule contenant le nombre
2 étant le nb de décimales après la virgule.

 

[andré]

Salut Nitrog,

Il y avait depuis bien longtemps que je ne t'avais plus rencontré sur un fil !

Pour arrondir à 0.00 et 0.05 tu arrondis le multiple de ton nombre par deux, puis tu le divises par deux.

Exemple : =ARRONDI(A1*2;1)/2

Â+

 

[Nitrog]

Salut André et GG, le prob, n'est pas dans le format de la cellule, mais dans la macro, c'est la macro qui fait le calcul et qui l'insère dans la cellule et sur une nouvelle page.

Je crois qu'il faut employer la fonction round ??

Merci et A+

Nitrog

 

[andré]

Resalut,

En macro, je ne m'y connais pas, mais essaie toujours ceci :

=ROUND((RC35/102.5%+(RC34-RC35)/102.25%)*2;1)/2

Â+

 

[Nitrog]

RE,
Ben sa marche pas , désolé

A+

Nitrog

 

[SergiO]

Bonjour,

Et comme cela?

=arrondi((RC35/102.5%+(RC34-RC35)/102.25%)*2;1)/2

@+

 

[ERIC S]

Bonjour

Range('CI4').FormulaR1C1 = '=round((+RC35/102.5%+(RC34-RC35)/102.25%)*2,1)/2'

doit fonctionner en macro (formule d'André)

A+

 

[Nitrog]

RE RE,

Vous êtes vraiment des génies, sa marche !!

Merci beaucoup.

A la prochaine.

Nitrog

 

[Allergique]

Re : Arrondi - Round

Bonjour,

j'arrive à faire l'arrondi pour une cellule mais je voulais savoir si c'est possible aussi de faire un roundup pour une variable?

j'ai le code suivant:

dim op as integer
obj = Range("H4") / Range("CC" & lig)

comment peut-on ajouter Roundup à cette formule?

Merci d'avance

a+

 

[Papaye]

Re : Arrondi - Round

Bonsoir,

As tu essayé Application.WorksheetFunction.RoundUp ?

 

[Allergique]

Re : Arrondi - Round

bonsoir Papaye

je suis novice en macro donc je découvre au fur et à mesure

dans la recherche je viens de trouver ceci, mais sais-tu où je dois mettre la variable "op"?

Application.WorksheetFunction.RoundUp(Nombre, Nombredécimales)

merci

a+

 

[Allergique]

Re : Arrondi - Round

re,

c'est bon, maintenant ça fonctionne l'erreur a dispqrue...

merci

a+