Macro avec résultat non pertinent Résolu/Fermé

Question

Bonjour, 
J'ai construit une macro VBA excel comme plus bas:
Le range "a1" est en chiffre dur c'est à dire sans formule.
Le range "C1" est le produit d'une formule : =somme(c2:c8000)-2600

Lors de la comparaison des deux cellules soit avec un résultat identique ou non le msgbox reste 
 "Procédez à la réconciliation des soldes "

If Range("c1") <> Range("a1").End(xlDown) Then
[/contents/1176-vbscript-les-boites-de-dialogue MsgBox] "Procédez à la réconciliation des soldes "
Else
Range("a1").End(xlDown).Clear

Merci de votre aide
Cordialement

pilas31 · Answer

Bonjour,

Range("a1").End(xlDown) 
va chercher la valeur de la dernière cellule non vide de la colonne A juste avant la première cellule vide.

En clair ce n'est pas la valeur de la cellule A1 qui est retournée et si il y a une cellule vide dans la colonne A il donne la valeur de la cellule juste avant.

C’est bien cela qui est voulu ?

neofithe · Answer

Rebonsoir

Merci pilas31, je confirme, c'est bien la dernière cellule non vide  au bas de la  colonne A qui est retournée.

En complément, la macro fonctionne en test dans un autre classeur  mais avec un nombre réduit de cellules additionnées en C1 soit une dizaine au lieu de plus de 9000.C'est la seule différence entre celle qui fonctionne et l'autre qui ne fonctionne pas.  

Merci de votre aide
Cordialement

Patrice33740 · Answer

Bonjour,

C'est peut-être à cause du fait que les deux valeurs ne sont pas rigoureusement identiques (problème de représentation des nombres en virgule flottante)

Essaie de calculer avec la précision du format affiché :
Option/ Options avancées / Lors du calcul de ce classeur : cocher " Definir le calcul avec la précision auformat affiché"

Macro avec résultat non pertinent

3 réponses

Discussions similaires