Discussion :

[helyvan]

Bonjour,

J'ai un programme pour mes clients qui a été fait avec Access 97, j'ai loader la version 2007 et j'ai une erreur.
Dans un formulaire de facture j'ai la formule suivante qui arrondi le résultat.

Code :

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

=VraiFaux(EstNull([SousTotal]);0;arrondi(([SousTotal]+[Tx1Amt])*[Tx2Pourcent]/100;2))

Access 2007 n'accepte pas le arrondi, alors comment je fais ?
Merci

[Jean-Philippe André]

Salut,

je n'ai pas 2007 au boulot, mais j'ai des doutes sur la disparition de la fonction.

Peux-tu verifier qu'aucune reference ne manque a ton projet stp ?

Au pire, tu peux "simuler" cete fonction avec le code propose depuis la
http://access.developpez.com/sources...onctionRound97

[helyvan]

Salut,

je n'ai pas 2007 au boulot, mais j'ai des doutes sur la disparition de la fonction.

Peux-tu verifier qu'aucune reference ne manque a ton projet stp ?

Au pire, tu peux "simuler" cete fonction avec le code propose depuis la
http://access.developpez.com/sources...onctionRound97

Cette formule est dans une cellule zone texte d'un formulaire et cette cellule calcule les taxes. Je ne suis pas trop connaissant dans les formules ni rien d'ailleur.
Le message d'erruer me mentionne "la fonction "arrondi" n'est pas défini.
Je dois faire "Public arrondi As Integer" dans le module variable ???
Merci

[Maxence HUBICHE]

Bonjour,

La fonction Arrondi n'existe pas sous Access, mais sous Excel.

Tu as la fonction Arrond - qui travaille sur la partie entière
et aussi la fonction Round - qui fait à peu près la même chose que la fonction Arrondi de Excel, mais qui a un mode de fonctionnement très "bizarre"...

Donc, si tu veux quelque chose qui ressemble à de l'arrondi au sens réel, tu peux te recréer la fonction.
Mais il y a fort à parier que la fonction était déjà définie dans ton projet initial dans un module...

Tu pourrais donc faire une fonction du Genre :

Code :

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

1
2
3
4
5
Function Arrondi(a_dNombre as double, a_bDec as byte) as double
    Dim lNbTemp as Long
    lNbTemp = clng(a_dNombre * 10^a_bDec)
    Arrondi = cDbl(lNbTemp / 10^a_bDec)
End function

[helyvan]

Voici ce que j'ai dans dans le code.

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
Public Function Arrondi(Nombre, Decimals) As Double
'Simuler la fonction Arrondi d'Excel.
Dim Reste, Comparaison As Double
Dim Multiplicateur As Long
If IsNull(Nombre) Then
    Nombre = 0
End If
If IsNull(Decimals) Then
    Decimals = 0
End If
Multiplicateur = Val("1" + String$(Decimals, "0"))
Comparaison = Val("0." + String$(Decimals, "0") + "5")
Reste = Nombre - Int(Nombre * Multiplicateur) / Multiplicateur
If Reste >= Comparaison Then
    Arrondi = Int((Nombre * Multiplicateur) + 1) / Multiplicateur
Else
    Arrondi = Int(Nombre * Multiplicateur) / Multiplicateur
End If
End Function

Merci de votre aide, c'est apprécié

[Maxence HUBICHE]

Re

d'abord, avec les balises de code, ce serait plus lisible
Ensuite... c'est quoi la question ?