Re : Incrémentation intempestive en VBA
Bonjour,
Quelle est ta version d'Excel?
Pourquoi utiliser la propriété "Formula" si tu veux copier la VALEUR d'une cellule?
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1)
Quoi qu'il en soit, je ne vois pas pourquoi tu obtiens une incrémentation.
J'ai fait le test à partir de la version Excel 2010.
Est-ce que la date de la cellule B1 est le résultat d'une formule? Si oui, laquelle?
Peux-tu publier ton fichier avec seulement l'information pertinente? Tu peux effacer tout le reste...
Bonjour MichD
Si j'ai mis formula c'est que c'était ma dernière version test et j'avais "rajouté" formula pensant que peut-être la solution était là.
Ce qui n'était pas le cas
T'adresser le fichier ou essayer de dissocier la feuille n'est pas aisé d'agissant de la comptabilité d'une association.
Quoiqu'il en soit: La date indiquée n'est pas le résultat d'une formule mais bien d'une saisie et seul son contenu est testé par ailleurs.
J'ai fait l'expérience sur un
fichier test et là tout fonctionne normalement la même procédure
ActiveCell.Formula = ActiveCell.Offset(-1, 0)
ActiveCell.Offset(0, 1).Formula = ActiveCell.Offset(-1, 1)
ActiveCell.Offset(0, 2).Activate
En revenant sur mon fichier "comptabilité"
Plus bizarre encore, en testant successivement plusieurs lignes, je constate une incrémentation du jour(+1) mais aussi de l'année(+4)
ainsi j'aurais :
11/09/2011
12/09/2011
13/09/2015
14/09/2019
etc
C'est vraiment un mystère !
Et quand j'applique ma ligne miraculeuse :
ActiveCell.Offset(0, 1).Formula = ActiveCell.Offset(-1, 1) -0
tout fonctionne comme je le souhaite.
Je crois que je vais rester sur cette solution qui répond malgré mes interrogations à mon souhait.
Dernière minute j'enlèverai .formula
Chimel