Arrondi VBA

[dma]

Bonjour à tous,

Je voudrais savoir comment réaliser l'arrondi inférieur d'un nombre en passant par du code VBA dans une macro.

Le code suivant par exemple ne fonctionne pas:

Range("F22") = 3.42
Formule = "=Abrunden(F22;1)"
Worksheets("feuill1").Range("F23").Formula = Formule

Il devrait afficher 3.4 en F23 de la feuille1 normalement, non ? (Abrunden c'est pour l'arrondi inférieur en allemand)

Si quelqu'un a une idée, elle est la bienvenue. Merci.

 

[Arnaud]

dim Valeur as Integer
Valeur = Range("F22")
Worksheets("feuill1").Range("F23").FormulaR1C1 = "=ROUNDDOWN(" & Valeur & ",2)"

 

[dma]

Ca ne marche pas vraiment mais c'est gentil d'avoir répondu.
Je vais opter pour la solution de mathématicien en enlevant 0,5 à chaque valeur et faire l'arrondi au plus proche.

Merci encore

 

[Arnaud]

si ça marche mais g écris un peu n'importe quoi...

si on met la valeur dans un integer c normal que à la fin il n'y est plus aucun chiffre derrière la virgule......je fais n'importe quoi des fois..

essaye plutot comme ça.

moi en tout cas ça marche

Worksheets("feuill1").Range("F23").FormulaR1C1 = "=ROUNDDOWN(" & Range("F22").Value & ",2)"