Discussion :

[marie33000]

bonjour tous le monde,

j'aimerais effectuer un test:

je dispose de données de type double avec 4 chiffres derriere la virgule, j'aimerais les comparés avec celle mesuré avec une précision de 3 chiffres derrière la virgule.

Exemple:

colonne A
12.7777
14.5489
12.3654
19.4567
11.7554


Dans une autre colonne j'ai :

0.9999
12.7779
etc etc


Il y a un test valide car:

12.7777 -> 12.7779

dans ce cas là on met un message box "un test valide"

Voili voilou j'ai juste un problème donc pour faire le test de la précision à trois chiffres derrière la virgule

[Krovax]

val1 et val2 sont tes deux valeurs

Code :

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

1
2
3
if abs(val1-val2)<0.001 then
    msgbox "test valide"
end if

si val1=12.7777 val2=12.7779
abs(val1-val2)=0.0002 qui est plus petit que 0.001 on est bon

remarque : Ce genre de test est très utile car le zéros numérique ne vaut pas 0 1e-N, N est a définir en fonction de la précision, et cette méthode est la seule que j'ai trouvé pour résoudre ce problème

[ucfoutu]

Bonjour,

pas certain d'avoir bien compris ...

Si oui, il me semble que le test pourrait être celui-(ci :

Code :

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

1
2
3
A = 12.7777
B = 12.7779
MsgBox Int(A * 1000) = Int(B * 1000)

[laetitia]

bonjour marie Krovax l'ami ucfoutu le forum un test avec une boucle
variable sur colonne A liste sur colonne B eventuellement resultat sur colonne c a adapter

Code :

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

1
2
3
4
5
6
7
8
9
Sub tri()
Dim c, d As Variant
For Each c In Range("a1", [a65000].End(xlUp))
For Each d In Range("b1", [b65000].End(xlUp))
If Left(c, Len(c) - 1) = Left(d, Len(d) - 1) Then
Range("c65536").End(xlUp)(2) = d
MsgBox Left(c, Len(c) + 1) & "  egal..." & Left(d, Len(d) + 1)
End If: Next d: Next c
End Sub

[marie33000]

merci merci ça marche