Discussion :

[Irhok]

Bonjour,

J'ai un problème avec un code pour arrondir le voici :

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
Function GetRound(ByVal Expression As String, Optional DecimalDigitsNumber As Byte = 2, Optional RoundToFive As Boolean = True) As Double
'Cette fonction sert à arrondir les valeurs comme la fonction ARRONDI de EXCEL
'Sur VB, la fonction intégrée Round ne correspond pas à celle d'Excel:
'Round(2.5,0)= 2 et ARRONDI(2.5,0)=3
 
Dim ApproximationValue As Single
If RoundToFive = True Then
    ApproximationValue = 0.5
Else
    ApproximationValue = 0.49
End If
GetRound = CDbl(Expression) * (10 ^ DecimalDigitsNumber)
GetRound = Int(GetRound + ApproximationValue) * (10 ^ -DecimalDigitsNumber)
 
End Function

Cela fait une semaine que je fais du code VB et je comprend pas tout dans ce code. Si vous pouviez me l'expliquer ça serait sympa.

Cette fonction est appelée un peu partout dans le logiciel (constituer de macro XL 2007).

[Invité]

Code :

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

Function GetRound(ByVal Expression As String, Optional DecimalDigitsNumber As Byte = 2, Optional RoundToFive As Boolean = True) As Double

Expression est un string:

Code :

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

1
2
3
?cdbl("1.1") 'Errer ce n'est pas du numérique paramètre régionaux. 
 
?cdbl("1,1")'Ok

Code :

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

Function GetRound(ByVal Expression As Double, Optional DecimalDigitsNumber As integer = 2, Optional RoundToFive As Boolean = True) As Double

[Docmarti]

Bonjour Irhok

'Sur VB, la fonction intégrée Round ne correspond pas à celle d'Excel:
'Round(2.5,0)= 2 et ARRONDI(2.5,0)=3

Il y a plusieurs fonctions sur Excel et VBA pour arrondir et chacune est différente des autres.

http://support.microsoft.com/kb/196652/EN-US

'Cette fonction sert à arrondir les valeurs comme la fonction ARRONDI de EXCEL

A mon avis, le plus sûr pour arrondir les valeurs comme la fonction ARRONDI de EXCEL, c'est d'utiliser la fonction ARRONDI de EXCEL

Code :

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

x = WorksheetFunction.Round(-3.5, 0)

Cordialement

Docmarti

[Irhok]

J'ai corriger la fonction "GetRound" comme indiqué dans ton message rdurupt mais il affiche une autre erreur maintenant:

Code :

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

Principal.Prev_HRC3 = GetRound(HRCR(6), 1, True):

Et le HCRC(6) est calculé grâce à :

Code :

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

1
2
3
4
5
6
HRC = GetRound((-1.483 * (10 ^ (-10)) * (HVR(ii) ^ 4)) + (4.464 * (10 ^ (-7)) * (HVR(ii) ^ 3)) - ((5.468 * 10 ^ (-4)) * (HVR(ii) ^ 2)) + (0.3563 * HVR(ii)) - 38.93, 1, True)
    If (HRC >= 20.5) Then
        HRCR(ii) = HRC
    Else
        HRCR(ii) = ""
    End If

Language informatique 52 - Irhok 0 => GAME OVER !!

[Docmarti]

@Irhok

Cette fonction semble originer de cette page. Où tu en trouves 2 versions avec le mode d'emploi.




Docmarti

[Invité]

ta fonction tu la vue fonctionné dans ça version précédente?
si oui on agira en conséquence!

[Irhok]

J'ai choisi la solution radicale j'ai supprimer la fonction GetRound dans les lignes où elle faisait planter le logiciel. Cependant, j'ai quand même garder la fonction car elle est utilisé dans d'autre parties du code.

Merci pour votre efficacité.