[XL-2007] Problème avec fonction Int()

Problème avec fonction Int()

Bonjour,
voici le code qui me pose problème :
Code:

1 2 3 4 5 6 7 8 9 ligne = 0 Dim x As Double For x = 1 To 2 Step 0.001 If (x * 1000 = Int(x * 1000)) Then Cells(ligne, 1).Value = x ligne = ligne + 1 End If Next
Ce code donne comme premiers résultats :
1
1,002
1,004
1,006
...
1,024
1,025
1,026
...

Pourquoi entre 1 et 1,024 le résultat va-t-il de 0,002 en 0,002 (au lieu de 0,001 en 0,001) alors qu'à partir de 1,025 ça fonctionne normalement ???

(ce code ne semble pas avoir de sens mais c'est parce que je l'ai simplifié. J'ai besoin de faire ce test : If (x * 1000 = Int(x * 1000)) car mon but est de récupérer les valeurs qui n'ont que 3 décimales alors si vous avez d'autres suggestions...)

Merci pour votre aide !

PS : on peut résumer le problème ainsi : pourquoi Int(1.009*1000)=1008 ?

Ce truc de fou... Peut-être un problème d'arrondi. Pour contourner le problème, mieux vaut faire la différence inférieure à un nombre proche de zéro:
Citation:
Envoyé par jgfa9
Bonjour,
voici le code qui me pose problème :
Code:

1 2 3 4 5 6 7 8 9 10 ligne = 0 Dim x As Double For x = 1 To 2 Step 0.001 'On prend 0.00001 mais on pourrait prendre 0.001 If (x * 1000 - Int(x * 1000) <= 0.00001) Then Cells(ligne, 1).Value = x ligne = ligne + 1 End If Next

Merci pour la réponse mais ça ne fonctionne pas car :

x * 1000 - Int(x * 1000) vaut 0,9999999999...89 pour x=1.001

Comment explique-t-on un tel fonctionnement ??

à essayer

Code:

1
2
3
4
5
6
7
8
9
Dim x As Double, y As Double
Dim Ligne As Integer
For x = 0 To 1000
    y = 1 + x / 1000
    If (1000 * y - Int(1000 * y)) < 1 Then  'au
        Ligne = Ligne + 1
        Cells(Ligne, 1).Value = y
     End If
Next

Désolé, je n'ai pas le numéro de Bill Gates...:P
De toutes les manières le code que j'ai donné n'est pas vraiment juste... Il faut mettre la différence en valeur absolue évidemment. Après c'est un problème d'arrondi avec Int qui donne 1000 au lieu de 1001!!! Il vaut mieux utiliser la fonction val à la place:
Code:

1 2 3 4 5 6 7 8 9 10 Dim x As Double, ligne As Integer ligne = 1 For x = 1 To 2 Step 0.001 If (Abs((x * 1000) - Val(x * 1000)) < 0.0001) Then Cells(ligne, 1).Value = x ligne = ligne + 1 End If Next

salut

Excel a quelquefois besoin de se faire forcer la main...
Exemple ;

Code:

1
2
3
4
5
6
Dim x As Double, x1 As Double
x = 1.001
x1 = Val(Format(x * 1000, "#0")) ' on force ici la main
MsgBox "x1 " & x1
MsgBox (x1 * 1000) - Int(x1 * 1000)
MsgBox x1 * 1000 - Int(x1 * 1000)

Bonsoir.

Il y a souvent des valeurs approchées dans les opérations avec les variables de type réel. Ici il est probable que 0,001 s'exprime en base 2 par un très grand nombre de décimales.
Si bien que si tu écris

Code:

1-(0.001 * 1000)

tu obtiens un résultat du genre 2,08 10^-17
Une solution est de modifier ainsi
Code:

1 2 3 4 5 6 7 8 ligne = 0 Dim x As Double For x = 1 To 2 Step 0.001 If (Round(x * 1000, 6) = Int(Round(x * 1000, 6))) Then Cells(ligne, 1).Value = x ligne = ligne + 1 End If Next
J'ai pris 6 sans raison particulière.Ceci dit, ton exemple est tellement simplifié, qu'on ne voit plus l'intérêt du calcul, et, du coup, cela ne répond peut-être pas au besoin.

Cordialement,

PGZ

D'abord merci à tous pour vos réponses.
Voici l'énoncé exact de mon problème : je connais 2 points (représentés par leurs coordonnées x et y) par lesquels passent un segment de droite. Je cherche tous les points de ce segment dont les coordonnées ont, au plus, 3 décimales.
Voici donc l'ensemble de mon code :
Code:

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 Dim x1 As Double Dim x2 As Double Dim y1 As Double Dim y2 As Double Dim a As Double Dim b As Double Dim x As Double x1 = 2559 x2 = 2598 y1 = 24127 y2 = 24175 'on calcule a et b tels que y = a*x + b a = (y1 - y2) / (x1 - x2) b = (x1 * y2 - x2 * y1) / (x1 - x2) Dim y As Double Dim ligne As Integer ligne = 5 For x = x1 To x2 Step 0.001 'je suis déjà obligée d'arrondir pour éviter un nombre important de décimales de type ,00000000033 xArr = Round(x, 3) y = a * xArr + b If (y * 1000 = Val(Format(y * 1000, "#0"))) Then Cells(ligne, 1).Value = x Cells(ligne, 2).Value = y ligne = ligne + 1 End If Next
En utilisant la solution de babaothe, ça ne fonctionne pas tout le temps : exemple pour x=2570.427, on obtient y=24141.064 mais y * 1000 != Val(Format(y * 1000, "#0")) !!

J'utilise donc la solution suggérée par pgz qui consiste à utiliser les valeurs arrondies.

Je trouve quand même étonnant tant d'imprécision de la part d'un système (professionnel) de calcul...

Bonjour,

Citation:

Je trouve quand même étonnant tant d'imprécision de la part d'un système (professionnel) de calcul...

c'est un peu plus complexe que ça, et il faut voir la définition précise de ces fonctions...

Code:

?Cint(1.009*1000)

retournera 1009 ;)

un peu de lecture :

http://msdn.microsoft.com/fr-fr/libr...8VS.80%29.aspx

http://support.microsoft.com/kb/196652

http://access.developpez.com/faq/?page=ManipDATA

cordialement,

Didier

Citation:

?Cint(1.009*1000) retournera 1009

Oui, mais moi je veux la partie entière. Or, si j'en crois la doc du 1er lien, "CInt est arrondi à l'entier le plus proche au lieu de tronquer la partie fractionnaire des nombres". Le problème n'est pas tant ici une question d'arrondi qu'un problème de partie entière : par exemple si j'ai 8.999 je veux une fonction qui me retourne 8 et non 9...

Il te faut un certain équivalent de Tronque / Feuille, mais qui n'est pas portable en vba pur via Application.WorksheetFunction...(toutes ne le sont pas).

Il faut donc construire sa propre fonction en faisant appel au forum :

Trunc() en VBA

vois la solution de bbil à 17h10 qui s'applique à ton cas :
Code:

1 2 3 4 Sub gogo() MsgBox tronque(1.009 * 1000, 0) End Sub
retourne 1009 et
Code:

1 2 3 4 Sub gogo() MsgBox tronque(8.999, 0) End Sub
retourne 8

cordialement,

Didier

Merci à tous, j'ai les éléments qu'il me faut.
Bien à vous.