Discussion :

[OhMonBato]

Voila une petite fonction qui vous permettra d'arrondir avec une précision variable (de 0 à 1) tout nombre positif ou négatif.
Cet exemple nécessite de créer une forme contenant 3 controles text. Dans le premier controle, l'utilisateur doit entrer le nombre à arrondir, dans le second l'arrondi voulu, le troisieme controle texte affiche le nombre d'origine arrondi.
Je n'ai pas écrit de code pour vérifier la validité des nombres entrés dans les zones Text1 et Text2.

En espérant que ce code puisse être utile à quelqu'un...

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Option Explicit
 
Private Sub Command1_Click()
Text3 = Arrondir(Text1, Text2)
 
End Sub
 
'------------------------------------------------------------------------------------
'Arrondi d'un nombre quelconque, positif ou négatif avec valeur d'arrondi quelconque
'Entrée :
'   ValIn   : Nombre à arrondir
'   Arrondi : Arrondi
'Sortie :
'   Arrondir : Valeur arrondie
'------------------------------------------------------------------------------------
Public Function Arrondir(ValIn As Double, Arrondi As Double) As Double
Dim Entier        As Long         'Partie entière du nombre à arrondir
Dim Reste         As Double       'Différence entre partie entière et nombre à arrondir
Dim i             As Integer      'Pour boucle
 
'Cas d'exclusion
If Arrondi > 1 Then
  MsgBox "La valeur d'arrondi doit être inférieure ou égal à 1", vbExclamation, "Erreur"
  Arrondir = 0
  Exit Function
End If
 
If ValIn = 0 Then
  Arrondir = 0
  Exit Function
End If
 
Entier = Fix(ValIn)
Reste = Abs(ValIn - Entier)
 
Do
  i = i + 1
  If Reste - (i * Arrondi) <= Arrondi / 2 Then Exit Do
Loop
Arrondir = IIf(ValIn > 0, Entier + i * Arrondi, Entier - i * Arrondi)
End Function

[ThierryAIM]

déjà il y a une erreur de type dans l'appel

Code :

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

Text3 = Arrondir(CDbl(Text1), CDbl(Text2))

et quel intêret par rapport à :

Code :

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

1
2
3
Private Sub Command2_Click()
    Text4.Text = Round(CDbl(Text1.Text), CLng(Text2.Text)) '-- text2 contient alors le nombre de décimales
End Sub

sauf si j'ai raté un truc ...

[OhMonBato]

Alors, tout d'abord j'ai mis ça ici presque contraint et forcé mais j'y tenais pas plus que ça, au départ c'était simplement pour répondre à une question du forum, d'où le manque de vérif sur Text1 et Text2.

Mais effectivement, il ne s'agit pas d'arrondir un nombre en fonction du nombres de décimales mais par rapport à .... je sais pas comment dire alors je vais te donner un exemple :

Arrondir 1.74 à 0.25 près, ça donne 1.75
Arrondir 1.74 à 0.33 près, ça donne 1.66
Etc....

voilà à quoi sert ce petit truc, rien de plus