Discussion :

[GOLDINGMAROC]

Bonjour,
j'ai rencontré une erreur d'exécution de la fonction

Code :

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

Int()

en VBA qui renvoi la partie entière d'un nombre que j'arrive pas à résoudre. je m'explique:
soit le nombre suivant :

Code :

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

37,4*50/17 = 37,4/0,34 = 110,000

(0,34 vaut 17/50). Il est évident que

Code :

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

Int(37,4*50/17) = Int(37,4/0,34) = 110

Malheureusement à l'exécution de la fonction via VBA le résultat des deux expressions est différent:

Code :

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

 Int(37,4*50/17) renvoi 110 par contre Int(37,4/0,34) renvoi 109 ?

Alors comme peut on résoudre se problème?
Cordialement

[jfontaine]

Bonjour,

Sur mon poste, les 2 instructions retournent 109

Code :

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

1
2
MsgBox Int(37.4 * 50 / 17)
MsgBox Int(37.4 / 0.34)

Par contre, les lignes ci dessous retournent 110

Code :

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

1
2
MsgBox Evaluate("37.4 * 50 / 17")
MsgBox Evaluate("37.4 / 0.34")

Je n'ai pas d'explications quand à la différence de résultat

[BlueMonkey]

Bonjour,

Les fonctions VBA Int() (tout comme Fix()) fond visiblement des erreurs d'arrondis.

En complément de la solution de JFontaine, pour obtenir un arrondi répétable de la représentation du résultat d'une division sur un entier, il est également possible d'utiliser :
Int(37.4 / 0.34 + 0.5)

[78chris]

Bonjour

J'utilise parfois l'arrondi au nombre de décimales qui convient lors des divisions pour éviter ces écarts dus au calcul en virgule flottante.

[gFZT82]

Bonjour,

C’est d’autant plus cocasse que la fonction ENT renvoie bien 110 avec

Code :

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

=ENT(37.4 * 50 / 17)

Cordialement.

Pour relativiser, on peut quand même remarquer que Int ((37.4 * 50 / 17)+0.00000000000001) renvoie 110 (14eme décimale).

[GOLDINGMAROC]

Bonjour,

Sur mon poste, les 2 instructions retournent 109

Code :

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

1
2
MsgBox Int(37.4 * 50 / 17)
MsgBox Int(37.4 / 0.34)

Par contre, les lignes ci dessous retournent 110

Code :

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

1
2
MsgBox Evaluate("37.4 * 50 / 17")
MsgBox Evaluate("37.4 / 0.34")

Je n'ai pas d'explications quand à la différence de résultat

Essayé de retourner les valeurs des deux expressions sur une feuille EXCEL en créant une fonction personnalisée comme suit :

Code :

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

1
2
3
Function Partie_entiére(x as variant) as variant
    Partie_entiére=Int(x)
End Function

Résultats : Partie_entiére(37.4 * 50 / 17) = 110 ; Partie_entiére(37.4 / 0.34) = 109 ?

[BlueMonkey]

Bonjour,

Ce que veut dire JFontaine, c'est que le résultat sans erreur peut être obtenu avec :

Code :

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

1
2
3
Function Partie_entiére(x As Variant) As Variant
        Partie_entiére = Evaluate("=INT(" & x & ")")  ' et non pas ENT() car nom de fonction Anglais
End Function

P.S : Les accents sont déconseillés pour le nom de fonctions.

[GOLDINGMAROC]

Bonjour,

C’est d’autant plus cocasse que la fonction ENT renvoie bien 110 avec

Code :

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

=ENT(37.4 * 50 / 17)

Cordialement.

Bonjour,
ça marche bien avec VBA mais que faire pour VB ?

[jfontaine]

ça marche bien avec VBA mais que faire pour VB ?

Sur excel VB se nomme VBA

Quelle différence fais tu entre les 2? (a moins que tu ne travailles pas sur excel)

[GOLDINGMAROC]

Pour relativiser, on peut quand même remarquer que Int ((37.4 * 50 / 17)+0.00000000000001) renvoie 110 (14eme décimale).

Bonjour,
Si c'est bien Vraie cela veut dire que :

Code :

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

WorksheetFunction.RoundDown(37.4  / 0.34, 2) = 109,99

et par conséquent;

Code :

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

Int (37.4  / 0.34) = 109

Malheureusement,

Code :

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

WorksheetFunction.RoundDown(37.4  / 0.34, n) = 110,00... pour n = 0 à 14

et,

Code :

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

Int(WorksheetFunction.RoundDown(37.4  / 0.34, n)) = 110 pour n = 0 à 14

Cordialement

Sur excel VB se nomme VBA

Quelle différence fais tu entre les 2? (a moins que tu ne travailles pas sur excel)

Bonjour,
ENT() est une fonction qui s'exécute bien sous EXCEL mais j'arrive pas à l'exécutée en code VB sous EXCEL. Essayé la fonction personnalisée suivante :

Code :

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

1
2
3
Function Partie_entiére(x As Double) As Double
Partie_entiére = ENT(x)
End Function

[jfontaine]

"ENT()" est une fonction (formule) excel (abréviation d'ENTIER). uniquement utilisable dans une cellule

"INT()" est une instruction VBA (abréviation d'INTEGER)

Code :

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

1
2
3
Function Partie_entiére(x As Double) As Double
Partie_entiére = Int(x)
End Function

[gFZT82]

Bonjour,
Si c'est bien Vraie cela veut dire que :

Code :

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

WorksheetFunction.RoundDown(37.4  / 0.34, 2) = 109,99

et par conséquent;

Code :

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

Int (37.4  / 0.34) = 109

Malheureusement,

Code :

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

WorksheetFunction.RoundDown(37.4  / 0.34, n) = 110,00... pour n = 0 à 14

et,

Code :

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

Int(WorksheetFunction.RoundDown(37.4  / 0.34, n)) = 110 pour n = 0 à 14

Cordialement

Et pourtant les faits sont tétus

Code :

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

1
2
int(109.99999999999999)= 109
int(109.999999999999999)= 110

Cordialement.

[BlueMonkey]

Bonjour,

Par erreur j'ai utilisé la fonction VBA INT au sein de la fonction EVALUATE, au lieu de ENT.

La solution qui devrait convenir et corrigée en post #8

Code :

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

1
2
3
Function Partie_entiére(x As Variant) As Variant
    Partie_entiére = Evaluate("=ENT(" & x & ")")
End Function

[GOLDINGMAROC]

Il n'y a pas d'erreur cet bien INT au lieu de ENT

[BlueMonkey]

Re.

Effectivement, comme la solution ne convenait pas, j'ai cru que ça venait de nom de l'appel de la fonction.
Mais il est vrai qu'il faut traduire le nom des fonctions dans l'Evaluate.

Du coup, je ne vois pas pourquoi l'utilisation de l'Evaluate ne répond pas au problème d'arrondi ?

[GOLDINGMAROC]

"ENT()" est une fonction (formule) excel (abréviation d'ENTIER). uniquement utilisable dans une cellule

"INT()" est une instruction VBA (abréviation d'INTEGER)

Code :

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

1
2
3
Function Partie_entiére(x As Double) As Double
Partie_entiére = Int(x)
End Function

Bonjour,
Les fonctions (formules) d'EXCEL ne sont pas toutes prises en charge pour une utilisation sous VBA. Par exemple les formules MIN et MAX d'EXCEL peuvent être appelées par VBA moyennant les instructions suivantes :

Code :

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

WorksheetFunction.MIN() et WorksheetFunction.MAX()

et il y a d'autres dans la liste (voir Aide VBA)
A remarquer que : les fonctions appelantes de la liste en question ne sont pas définie par VBA c.à.d il n'existe pas de fonctions équivalentes spécifiques pour VBA comme ENT et INT au moins à ma connaissance.
Cordialement

Re.

Effectivement, comme la solution ne convenait pas, j'ai cru que ça venait de nom de l'appel de la fonction.
Mais il est vrai qu'il faut traduire le nom des fonctions dans l'Evaluate.

Du coup, je ne vois pas pourquoi l'utilisation de l'Evaluate ne répond pas au problème d'arrondi ?

Bonjour,
Si votre proposition répond bien au problème de l'arrondi

Code :

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

1
2
3
Function Partie_entiére(x As Variant) As Variant
    Partie_entiére = Evaluate("=INT(" & x & ")")
End Function

Partie_entiére = 110 pour x = 37.4*50/17 et x = 37.4/0.34

je vois pas où est ce qu'il est le problème ?

[BlueMonkey]

Bonjour,

L'utilisation de la fonction Evaluate pour faire appel à Excel (plûtot qu'aux fonctions VB) pour le calcul résout le problème d'arrondi.

Si le problème restant est de comprendre pourquoi est-ce qu'a avec les instructions de code VB on a des erreurs de précision lors de la récupération
de la partie entière. Ca doit être lié à la représentation binaire des nombres flottants.
La valeur <110> en flottant ne correspond pas à <110> exactement , mais à la représentation binaire en puissance de 2 la plus proche.
La valeur la plus proche pouvant majoré ou minoré la valeur recherchée.

Pour 110. la valeur binaire doit être du type 109.9999999999. Du coup la partie entière donne 109.
Si la représentation binaire de 110 était plutôt 110.00000000001, Int(110) retournerait bien 110.
Mais là on atteint les limites du principe même de la représentation de valeur réelle sur un ordinateur.

La fonction ENT d'Excel doit probablement faire des opérations supplémentaires à la simple récupération de la partie entière, pour corriger le problème d'arrondi.

[jp014]

Bonjour

Pour compléter le message de BlueMonkey, quand on utilise des nombres il est préférable de déclarer la variable qui contient le nombre car les opérations réalisées donneront des résultats qui peuvent être différents. Le type qui pose le moins de problème est Currency mais il est limité par le nombre chiffre significatif .
Le format double ou single sont des formats en notation scientifique
documentation VBA

Les variables de type Double (à virgule flottante en double précision) sont stockées sous la forme de nombres à virgule flottante de 64 bits (8 octets) IEEE dont la valeur est comprise entre -1,79769313486231E308 et -4,94065645841247E-324 pour les nombres négatifs et entre 4,94065645841247E-324 et 1,79769313486231E308 pour les positifs. Le caractère de déclaration de type Double est le signe #

on observe que le nombre de chiffre significatif sera automatiquement limité.
Code à tester

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub UserForm_Initialize()
Dim nb1 As Double
Dim nb2 As Double
nb1 = 1222222222
nb2 = 2
TextBox1 = nb1 * nb1 - nb1 ^ nb2
End Sub

Les calculettes dans les années 80 avaient le même défaut 12*12-12^2 ne donnait pas 0.
JP

[GOLDINGMAROC]

Bonjour

Pour compléter le message de BlueMonkey, quand on utilise des nombres il est préférable de déclarer la variable qui contient le nombre car les opérations réalisées donneront des résultats qui peuvent être différents. Le type qui pose le moins de problème est Currency mais il est limité par le nombre chiffre significatif .
Le format double ou single sont des formats en notation scientifique
documentation VBA

on observe que le nombre de chiffre significatif sera automatiquement limité.
Code à tester

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub UserForm_Initialize()
Dim nb1 As Double
Dim nb2 As Double
nb1 = 1222222222
nb2 = 2
TextBox1 = nb1 * nb1 - nb1 ^ nb2
End Sub

Les calculettes dans les années 80 avaient le même défaut 12*12-12^2 ne donnait pas 0.
JP

Bonjour,
Les doubles sont représentées par 15 chiffres après la virgule comme suit :

Les variables de type Double (à virgule flottante en double précision) sont stockées sous la forme de nombres à virgule flottante de 64 bits (8 octets) IEEE dont la valeur est comprise entre -1,797693134862315E308 et -4,94066E-324 pour les nombres négatifs et entre 4,94066E-324 et 1,797693134862315E308 pour les positifs. Le caractère de déclaration de type Double est le signe #

c'est ce que j'ai trouvé dans un manuel VB est ce Vraie ?
de plus le 15éme chiffre est toujours arrondi automatiquement au 14éme chiffre par VB dans une feuille de code.

par exemple si vous Ecrivez zaza = 1,797693134862315 dans VB automatiquement zaza est rectifier par = 1,79769313486232