Autres Modifier automatiquement une suite de cellule selon la date du jour

[Tmdu79]

Bonjour à tous,
J'essai sans succès de créer une macro pour qu'au lancement et à la fermeture du fichier le contenu de la cellule J et K soient copier en "dur" lorsque la donnée date d'après la date du jour.

Cela doit permettre de modifier les cellules de saisi sans qu'il n'y ai d'incidence sur les données passées.

Je travail sous Excel 2007.

Je vous remercie d'avance pour votre aide !

 

[Staple1600]

Bonsoir le fil

Pour info
Seuls les fichiers *.xls, *.xlsm et *.xlsb peuvent contenir des macros.
Donc ton fichier exemple test.xlsx ne peut pas en contenir.

 

[Staple1600]

Re

Voir ci cela peut t'inspirer

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim DerL&
DerL = Cells(Rows.Count, 2).End(3).Row
For i = 2 To DerL
If Cells(i, 2) > Date Then
Cells(i, 10).Resize(, 2) = Cells(i, 10).Resize(, 2).Value
End If
Next
End Sub

 

[Tmdu79]

Bonjour Staple1600,

Merci pour ton message, mais je débute vraiment sur VBA.

Peux tu m'expliquer si tu as un moment la ligne de code que tu as saisi, car en faisant un coller sur mon fichier Excel, je ne voit pas la différence.

 

[Staple1600]

Re

Si tu exécutes la macro sur le fichier exemple que tu as mis ici
Puis que tu vas voir ce qu'il y a dans les colonnes J et K, tu y trouveras quoi?

 

[Tmdu79]

Et bien par exemple si nous somme le 3 janvier 2020, et bien sur la ligne référant au 2 janvier, les formules sur les cellules J7 et K7 ne serait plus une formule mais uniquement une valeur.

 

[Claudy]

Bonsoir le fil

Pour info
Seuls les fichiers *.xls, *.xlsm et *.xlsb peuvent contenir des macros.
Donc ton fichier exemple test.xlsx ne peut pas en contenir.

Bonjour,
c'est quoi la différence entre un *.xls, *.xlsm et *.xlsb ?
Merci,
Claudy

 

[Staple1600]

Re

Tmdu79
Tu n'as répondu à ma question (celle du message#5)

Claudy
Voir la maison mère 😉

 

[Victor21]

Bonjour, Claudy.

Vous qui en êtes à votre 731° message, savez-vous ce qu'est et à quoi sert un moteur de recherche ?

PS : Bonjour le fil, bien entendu 🙂

Edit : @Staple1600 "Du coup", j'ai supprimé les digressions qui suivaient ce post 😉

 

[Staple1600]

Bonjour Victor21

...poteur de recherche

C'est quoi un poteur de recherche ?
Un ami qui cherche ?

 

[Staple1600]

Re

Du coup, ma blague tombe à l'eau (snif)

 

[Staple1600]

Re

Du coup Assailli d'un doute, j'ai relu tout le fil et je vois que j'ai manqué de précision
Le code que j'ai posté doit être mis dans ThisWorkBook
(et non pas dans un module standard)
Et j'ai ajouté quelque commentaires dans le code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'C'est une procédure événementielle 
'(à ne pas placer dans un Module standard comme Module1)
Dim DerL&
DerL = Cells(Rows.Count, 2).End(3).Row
For i = 2 To DerL
If Cells(i, 2) < Date Then ' si inférieur à date du jour
Cells(i, 10).Resize(, 2) = Cells(i, 10).Resize(, 2).Value ' alors valeurs seules en colonne J et K
End If
Next
End Sub

 

[Staple1600]

Re

Au moins, moi j'assume, Monsieur!
Je n'efface pas mon erreur ou ma coquille en mode édition.
😉

PS: J'ai un doute, il n'y a pas une carabistouille avec "Au moins", au moins?

 

[Staple1600]

Re

Si j'osais, je pencherais plus vers faribole.
En attendant, nos digressions ont fait fuir le demandeur. 😉

 

[Tmdu79]

hum fuir non, impressionné oui. merci beaucoup pour ton aide Staple1600, le code fonctionne, cependant comment le faire fonctionner sur cet onglet uniquement lorsque le fichier excel comporte plusieurs onglets ?

- Deuxième question, comment faire si je souhaite intégrer une autre colonne (L) dans la ligne de code ?
Merci d'avance