Discussion :

[Argonz]

Salut à tous !!

Je travaille en VBA sur Excel, et je cherche une fonction pour arrondirun nombre à virgule à 05 (pour des prix)

exemple :

Code :

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

1
2
3
 
6.234 -> 6.25
7.891 -> 7.90

Merci d'avance pour vos futures aides.

[Titre édité par HPJ]
[Ancien titre = Arrondir à 05]

[elifqaoui]

cherche du coté de Round

[HPJ]

Je pense qu'il doit y avoir plus simple, mais ça peut dépanner...
J'ai décomposé au maximum afin de montrer mon raisonnement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function Arrondi5Cts(ByVal x As Double) As Double
 
    Dim resultat As Double
    Dim nbCts As Byte
    Dim nbUnites As Long
 
    resultat = Round(x + 0.001, 2) ' "Round maison" car Round(0.125, 2) -> 0.12 ! ! !
 
    resultat = resultat * 100 ' convertit en entier
 
    nbUnites = Fix(resultat / 100) ' cherche la partie entière
 
    nbCts = resultat - nbUnites * 100 ' et la partie décimale
 
    nbCts = Fix((nbCts + 2) / 5) * 5 ' arrondi à 5 près
 
    resultat = nbUnites * 100 + nbCts ' calcule le résultat
 
    Arrondi5Cts = resultat / 100 ' convertit en double
 
End Function

[Argonz]

Ben merci bien pour ce code !!

je vais reprendre tout ça !!

j'ai une autre fonction un peu du genre qu'on ma donner, mais elle arrondit pas a 100 % juste !!!

je vous redirai,

(et merci pour l'edit)

[Argonz]

Re Salut à tous !!!

Merci de votre aide !!

hpj, j'ai repris ta fonction mot pour mot, elle marche à mérveille (je t'ai cité dans mon code).

au début j'avais un autre système qu'un ami ma donné :

Code :

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

1
2
3
4
5
6
7
Dim number As Double
Dim int_number As Integer
 
number = number * 20
int_number = CInt(number)
number = CDec(int_number)
number = number / 20

number sera égal au nombre arrondit.

Cela marche bien, le seul défaut :

2.225 -> 2.2
2.226 -> 2.2

alors que

2.275 -> 2.3
2.279 -> 2.3

On m'a aussi parler d'un fonction Floor, mais je n'ai rien trouver dans l'aide VB à ce sujet, la connaissez vous ??

[DarkVader]

Ça n'a pourtant rien de compliqué

Code :

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

Arrondi= round (myNumber / precision) * precision

[Argonz]

Merci pour l'info !!
C'est clair que c'est beaucoup plus simple ...

cependant pour le pinailleur, lorsque l'on se trouve à 0.225 il va arrondir à 0.2 et non à 0.25.

enfin voila...

[HPJ]

Pour le pinailleur:

Code :

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

Arrondi= round ((myNumber + 0.00001) / precision) * precision

[Argonz]

lol, merci beaucoup :-)

Cela simplifie grandement mon code

[HPJ]

Je savais bien qu'il y avait plus simple que mon gros algo... Je n'ai jamais été doué en math

[SpaceFrog]

sujet abordé il y a deux ans ici même si je me souviens bien ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Function SpecialRound(number As Double, Optional BaseModulo As Integer = 1) 
    SpecialRound = BaseModulo * ((Int(number + BaseModulo / 2)) \ BaseModulo) 
End Function
 
 
 
 
exemple :
 
Private Sub Text1_LostFocus() 
Text1.Text = Format(Arrondi_5Cts(Text1.Text, 5), "###0.00 FRs") 
End Sub 
 
Function Arrondi_5Cts(Number As Double, Optional BaseModulo As Integer) 
Arrondi_5Cts = BaseModulo * (((Int(Number * 100) + BaseModulo / 2)) \ BaseModulo) / 100 
End Function

[HPJ]

SpecialRound(0.125, 2) -> 0

[SpaceFrog]

Oui je sais...

Y'avait eu à l'époque tou un thread là dessus et les corrections à y approter...

mais l'autre marche !!!