Figer des valeurs pour historiser Résolu/Fermé

Question

Bonjour, 

Bonjour la communauté
Je m'adresse à vous une nouvelle fois pour un petit coup de main.

J'ai besoin d'historiser certaines valeurs, à récupérer dans un TCD qui existe déjà.
Ces valeurs évoluent au jour-le-jour, et idéalement j'aurais besoin de récupérer ces valeurs au dernier jour du mois. Mais le fichier n'est pas forcément ouvert chaque dernier jour du mois, pour peu qu'il tombe un dimanche 31.
Donc j'ai pensé recopier systématiquement, à chaque ouverture de mon fichier, le contenu des 4 cellules qui m'intéressent, et ceci jusqu'à ce que le mois change, puis stop.

Je récupère facilement mes valeurs avec la formule :
=SI(MOIS(AUJOURDHUI())<MOIS(C4);"Pas de modif";SI(MOIS(AUJOURDHUI())>MOIS(C4);"Pas de modif2";LIREDONNEESTABCROISDYNAMIQUE("TitreCOL";Stats!$A$3;"Equipes";"Equipe1")))
Mais dans ce cas, bien sûr, la formule SI(Condition ; MaFormule;NeRienFaire ) ne permet pas  de ne PAS modifier la valeur numérique si la condition est fausse. Je doute de pouvoir me passer d'une macro dans ce cas.
Avez-vous une idée lumineuse ?

Un exemple de fichier sur : https://www.cjoint.com/c/EBylcBLYSQc

Merci d'avance du coup de main !


Configuration: Windows 7 / Excel 2010

eriiic · Answer

Bonjour,

Pas de TCD dans ton classeur donc en supposant qu'il ne change pas de taille, à mettre dans ThisWorbook :
Private Sub Workbook_Open()
    If Month([D10]) <> Month(Date) Then
        [D11:D14] = [D3:D6].Value
        [D10] = Date - 1
    End If
End Sub
La date mémorisée est celle de la veille de l'ouverture.

eric

touroul · Answer

Bonjour Eric

Merci bien.
En effet pas de TCD dans mon fichier Exemple, mais peu importe la source des données pour le moment.
Je ne suis pas sûr d'avoir tout compris ...
Tu utilises la cellule D10 pour revenir d'1 jour, pourquoi ?
Ou peut-être que tu voulais plutôt dire D2 ?
Ensuite : je dois refaire le même type de code pour les autres mois, c'est bien ça ?
Enfin, comment spécifier que les cellules auxquelles on fait référence se trouvent sur une autre feuille : puis-je écrire    If Month(['Historique'!D10]) = Month(Date) Then   ?

Merci pour le SAV

touroul · Answer

Bonjour

Après adaptation du code d'Eric, j'obtiens ceci :
Private Sub Workbook_Open()'Historisation    With Sheets("Histo")        If Month(.[D2]) = Month(Date) Then            .[D3:D6] = Sheets("Histo").[D11:D14].Value            .[A1] = Date        End If    End WithEnd Sub

Par contre ce code ne fonctionne que pour le mois de février (D2).
Je pourrais recopier ce code pour chaque mois, mais ce n'est pas très joli. Y aurait-il possibilité de l'adapter pour qu'il recherche le mois actuel dans C2:N2 et qu'il recopie la plage D11:D14 sur les lignes 3 à 6 du mois correspondant ?

Enfin, dans la boucle If, il n'y a pas de Else : donc au changement de mois, les valeurs du mois précédent seront-elles conservées ?

Le fichier modifié : https://www.cjoint.com/c/EBzkuI4zjVA

Mes remerciements pour l'adaptation ...

touroul · Answer

Bonjour Eric Je ne te voyais pas sur le forum ce matin, d'où la formulation généraliste. Mon travail m'empêche d'être présent les après-midi sur le forum. Même si tu ne veux pas donner suite, je renouvèle mes remerciements ainsi que toute l'admiration sincère que j'ai pour tes compétences et ton sens de l'aide. En aucun cas je n'ai voulu te blesser, excuse-moi. Je reprends donc ton code d'origine que je ne semble pas avoir compris : Le stockage de la date actuelle se fait en A1. Dans l'expression If Month(.[A1]) <> Month(Date) par exemple je ne comprends pas pourquoi tu poses la condition <> car on recherche bien le mois en cours dans le tableau ... Merci d'avance

touroul · Answer

Merci d'avoir répondu, merci bien.

Je veux vraiment comprendre, ne serait-ce que pour progresser.
Je comprends que ton code sert à figer les valeurs D3:D6 si on ne se trouve pas dans le mois en cours.
Puis-je te demander encore quelques explications ?
Pourquoi passer par A2:A5 qui restent vides après exécution de la macro à l'ouverture ?
Dans le fichier :     https://www.cjoint.com/c/EBzmmOtAJkm       D11:D14 ne se recopient pas en D3:D6

Mes remerciement anticipés Eric

Figer des valeurs pour historiser

5 réponses

Discussions similaires