Macro avec résultat non pertinent

Résolu
neofithe Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -  
neofithe Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   646
 
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 ?

0
neofithe Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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é"
0
neofithe Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
Merci 1000 fois Patrice33740 ta suggestion a résolu mon problème.
Cordialement
0