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

Signaler
Messages postés
12
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
17 mai 2020
-
Messages postés
12
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
17 mai 2020
-
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

3 réponses

Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
588
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 ?

Messages postés
12
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
17 mai 2020

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
Messages postés
8274
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
4 décembre 2020
1 535
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é"
Messages postés
12
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
17 mai 2020

Merci 1000 fois Patrice33740 ta suggestion a résolu mon problème.
Cordialement