date figée dans une formule Fermé

Question

Bonjour, à tout le monde 
si quelqu'un connait la réponse à ma question ça me ferais plaisir car je galère grave .
Comment mettre la date d'aujourdhui fixe sur une feuille dans une cellule par formule ,car quand je met "aujourdhui" elle se met a jour et je veux qu'elle reste fixe le jour de la création .
Merci

sof26110 · Answer

Bas tu la tape a la main mdr.
exemple tu veut mettre 10 aout 2005
et bien tu va la ou tu veux écrire ta date et tu tape :"10 aout 2005"

Mike-31 · Answer

Salut,

Tu ne peux pas par formule, AUJOURDHUI () actualisera automatiquement la date.

manuellement Ctrl et ; en même temps ou avec un code VBA

A+

sof26110 · Answer

a la place de AUJOURD'HUI() tu marque 10/02/2002

cocotehier · Answer

Bonjour,
Except copier collage special valeur, la formule fait ce qu'elle est censé faire....time !

virgile84 · Answer

bonsoir et merci de me répondre 
par bva comment je peux figer la date de création?

cocotehier · Answer

OOooops !
Voici le truc qui va te redonner...bonne humeur,
tu fais outils/macro/nouvelle macro/ tu nommes : CopyandPast/ dans ce classeur suelement....et maintenant tu as une boite de dialogue avec un bouton arret, tu sélectionne la cellule où se trouve ta date =aujourdhui() et tu fais copier collage spécial valeur puis tu cliques sur arret macro.
Now tu fais outils/macro/macro/ tu sélectionne la macro nommée CopyandPast et tu fais modifier..voila la réponse à ta question...ca va ?

virgile84 · Answer

Merci je teste de suite et je vois demain si elle et fixe

Mike-31 · Answer

Re,

en partant sur l'idée primaire que tu obtiennes cellule A1 la date par formule, places ce code dans la thisworkbook
Clic droit sur onglet de ta feuille/visualiser le code sur la colonne de droite tu trouveras Thiswokbook, double clic et colles le code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
       Range("A1") = Range("A1").Value
End Sub

Pour fixer une plage

Private Sub Workbook_BeforeClose(Cancel As Boolean)
       Range("A1:A10") = Range("A1:A10").Value
End Sub

Dans ce cas et pour plus de sécurité il conviendrait de nommer dans le code le nom de la feuille ou mieux nommer la plage ou sont les dates à fixer et le code devient

Private Sub Workbook_BeforeClose(Cancel As Boolean)
        Range("Date") = Range("Date").Value
End Sub

ou automatiquement en plaçant le code dans le code Feuill, mais il faut connaitre un peu mieux la structure de ton fichier


A+

virgile84 · Answer

pourquoi Range
("A1:A10") = Range("A1:A10").Value
       A10                       A10

Mike-31 · Answer

Re, 

si tu veux traiter une plage par exemple de A1 à A 10


Si ton fichier ne contient pas de donnée confidentielles, mets le sur le forum avec ce lien et quelques annotations que l'on comprenne tes attentes 

https://www.cjoint.com/

A+

virgile84 · Answer

Ma date est en C4
pourquoi tu écris :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1:A10") = Range("A1:A10").Value
End Sub 

donc A1 pour moi c'est C4 et A10 c'est quoi ?

virgile84 · Answer

Je reformule ma question :
j'ai la formule "aujourdhui" dans une cellule comment faire pour qu'elle ne se mette pas à jour car je dois faire une copie de cette feuille et la sauvegarder, sous cette ligne j'ai de nouveau la même formule dans une autre cellule pour une sauvegarde des que j'aurais fait les saisies le lendemain ou un autre jour.
Voila ce que je souhaite faire

cocotehier · Answer

En fait c'est un exemple que tu dois adapter à ton cas, c'est à dire ceci :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("C4") = Range("C4").Value 
End Sub

virgile84 · Answer

donc si j'ajoute ça sur la feuille concernée ça fige la date ,c'est ça ?

Mike-31 · Answer

Re,

Maintenant que tu nous en dis un peu plus, ta formule est 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
      Range("C4") = Range("C4").Value 
End Sub 


Je t'ai bien dis que si tu devais fixer la date sur plusieurs cellules par exemple A1 à A10 alors le code serait... mais dans ton cas il s'agit que de la cellule C4, pour une cellule tu aurais pu saisir la date manuellement ou avec Ctrl et ;

Enfin c'est toi qui vois

A+

Mike-31 · Answer

Attention feuille concernée, cette formule est à coller dans la Thisworkbook comme je te l’ai expliqué dans le post 8 et lorsque tu fermeras ton fichier, la cellule C4 de la feuille active se fixera, donc il est impératif de fermer ton fichier sur la feuille concernée

Ou alors comme je te le proposais également nommes la cellule C4 exemple Date et reprends ma formule avec date ou prends le code ci-dessous qui fait référence à la feuille 3 si c’est la feuille concernée

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil3").Range("C4") = Sheets("Feuil3").Range("C4").Value
End Sub

A+

virgile84 · Answer

c'est que j'ai 140 lignes toutes pretes à recevoir des infos donc quand je remplis ces cellules ça me renvoi à une feuille vierge qui se remplie avec les infos et à chaque commande je dois sauvegarder la commande du jour precis.

si ce n'est pas trop abuser de ton temps 
comment enregistrer sous la feuille active et non pas le classeur avec toutes les données importées ?
merci encore ton aide

Date figée dans une formule

17 réponses

Discussions similaires