Discussion :

[freyliss]

Bonjour,

voilà tout est dans le titre comment faire pour arrondir une valeur à sa valeur en dessous et arrondir une autre valeur à sa valeur au dessus tout cela en vba bien sûr.

Exemple pour 26.5 obtenir 27 et pour 13.5 obtenir 13.

merci d'avance pour vos réponses.

[flo_flo]

Bonjour !

Tu peux, entre autre, passer par la partie entière :

Arrondi à la valeur inférieure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub valeur_inf()
Dim n As Integer
n = Int(InputBox(Nombre))
MsgBox ("L'arrondi à la valeur en dessous est " & n)
End Sub

Arrondi à la valeur supérieure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub valeur_sup()
Dim n As Integer
n = Int(InputBox(Nombre))
MsgBox ("L'arrondi à la valeur au-dessus est " & n+1)
End Sub

Bonne journée, pense au bouton

[zoidy]

Hello,

Il y a encore plus simple : utiliser FormatNumber

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
range("A1").value = 15.3
range("A1").FormatNumber = "0"
' Ca te renverra 15
 
range("A1").value = 15.7
range("A1").FormatNumber = "0"
' Ca te renverra 16

[freyliss]

mon souci est que les valeurs que j'ai se terminent toujours par 0.5 et c'est selon un critère que dans certains je veux pouvoir choisir d'arrondir au dessus ou en dessous.

[flo_flo]

Si c'est toi qui choisis si c'est inf ou sup, alors tu dois donner des instructions à Excel Dans la solution que je te propose, si tu veux arrondir à la borne inf (13,5 => 13), alors Int(13,5)=13. Si tu veux arrondir à la borne sup (13,5 => 14), alors Int(13,5)+1=14.

[freyliss]

ça fonctionne impeccable merci

[mordrhim]

Si c'est toi qui choisis si c'est inf ou sup, alors tu dois donner des instructions à Excel Dans la solution que je te propose, si tu veux arrondir à la borne inf (13,5 => 13), alors Int(13,5)=13. Si tu veux arrondir à la borne sup (13,5 => 14), alors Int(13,5)+1=14.

Bon tu veux faire un arrondi au plus près ? c'est-à-dire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
- 13,49 -> 13
- 13,51 -> 14
dans tous les cas et :
- 13,50 -> 14 dans un cas
- 13,50 -> 13 dans l'autre

OU

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
- 13,XX -> 13 dans un cas
- 13,XX -> 14 dans l'autre

si c'est la première options les solutions proposés sont dangereuses !!!ouh les erreurs de mathématiques
La fonction Arrondi est traduit comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Arrondi au plus proche : 
Arrondi(X) = Int(X + 0,5)

Si j'ai 13,49 :
- Int(13,49) + 1 = 14
Alors que :
- Int(13,49 + 0,5) = 13
- Int(13,5 + 0,5) = 14