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

Messages postés
15
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
18 septembre 2019
-
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
Afficher la suite 

3 réponses

Messages postés
1857
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
12 juillet 2019
532
0
Merci
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 ?

Commenter la réponse de pilas31
Messages postés
15
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
18 septembre 2019
0
Merci
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
Commenter la réponse de neofithe
Messages postés
7846
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
11 novembre 2019
1236
0
Merci
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é"
neofithe
Messages postés
15
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
18 septembre 2019
-
Merci 1000 fois Patrice33740 ta suggestion a résolu mon problème.
Cordialement
Commenter la réponse de Patrice33740