arrondir à l'entier inférieur en vb

[matthieu]

bonjour a tous,

je recupére la valeur d'un textbox qui est un nombre à virgule à une seule décimale (exemple : 17,5)

ensuite cette valeur est stockée dans une variable sous le même format

j'aimerais que cette valeur soit arrondi à l'entier inférieur

exemple : 17,5 -----> 17
17,9------->17
16,3-------->16
15,0 ------->15
je veux que cela donne toujours la partie entière inférieur et non la plus proche comme le fait excel avec les fonctions de base

Car arrondi.inf ne marche pas en macro
J'aimerais avoir l'équivalent de arrondi.inf en vb dans une macro

merci

 

[sylv900]

essaye :

variable = Int(variable)

bon courage

 

[matthieu]

merci beaucoup

car moi en fait je faisais variable = CBYTE(variable)
et cela ne marché pas comme arrondi.inf


encore merci

 

[damdam2782]

Bonjour, je cherche également la même chose, et moi à chaque fois ca arrondi au supérieur, je ne comprends pas pour pourquoi... Exemple ma variable = 2.592592592, int(variable) est égale à 3... Je ne comprend pas...

 

[damdam2782]

Bonjour, je cherche également la même chose, et moi à chaque fois ca arrondi au supérieur, je ne comprends pas pour pourquoi... Exemple ma variable = 2.592592592, int(variable) est égale à 3... Je ne comprend pas...

Ca y est ca a fonctionné en déclarant ma variable en double, et non en Long ni Integer...

 

[_Thierry]

Bonjour @damdam2782 @Matthieu, @sylv900, le Forum

En fait la function existe en VBA, mais pas en direct comme "Round", il faut s'appuyer sur :
Application.WorksheetFunction.RoundDown

Exemple :

Option Explicit

Sub Test()
Dim MyRoundedInfNumber As Double
MyRoundedInfNumber = 2.592592592

MsgBox Application.WorksheetFunction.RoundDown(MyRoundedInfNumber, 0)

End Sub

Bien @ toi, @ vous
@+Thierry