Discussion :

[jul2012]

Bonjour,

Etant novice en vba, j'aurai vraiment besoin de votre aide.

Je dois effectuer une macro de réconciliation et je dois comparer des prix entre deux cellules, sauf que des fois les prix ne sont pas tout à fait les mêmes, mais à partir de 4 ou 5 décimale.

Comment on pourrait dire en langage VBA, qu'il doit comparer ces nombres et qu'au dela de 5 décimales même si il y a une différence, c'est quand même égal ?

Dans le fichier joint, il y a des exemples de prix.

Cordialement.

Julien.

[casefayere]

Bonjour,
Avec l'aide sur Round

Round, fonction
Voir aussi Exemple Particularités

Description

Renvoie un nombre arrondi à un nombre spécifié de positions décimales.

Syntaxe

Round(expression [,numdecimalplaces])

La syntaxe de la fonction Round comprend les éléments suivants :

Élément Description
expression Expression numérique arrondie.
numdecimalplaces Facultatif. Nombre indiquant combien de positions à droite de la virgule sont incluses dans le nombre arrondi. Si cette valeur est omise, les entiers sont arrondis par la fonction Round.

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Public Function Comparaison(dblVal1 As Double, dblVal2 As Double) As String
 
  If Not Round(dblVal1, 5) = Round(dblVal2, 5) Then
    Comparaison = "PB"
  Else
    Comparaison = "OK"
  End If
 
End Function

[jul2012]

Merci beaucoup pour avoir écrit le code.

Cependant,j'ai jamais utilisé "Function", comment je peux faire appel de cette fonction dans une procédure Sub ?

Cordialement,

Julien

[Invité]

Ci-joint un exemple.

[jul2012]

C'est exactement ce je veux. Merci beaucoup.

Mais je ne comprend pas comment tu as fait pour activer le code, je fais F5 et F8 et rien ne se passe ... ?

Comment je peux la réutiliser ?

Cordialement.

Julien