Effacer plusieurs celulle a une heure precise tous les jours
Résolu/Fermé
A voir également:
- Effacer plusieurs celulle a une heure precise tous les jours
- Effacer les cookies - Guide
- Que doit-il faire pour effacer les traces de sa navigation ? - Guide
- Comment effacer une page sur word - Guide
- Mettre a jour les pilotes - Guide
- Convertir heure en centième excel ✓ - Forum Excel
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
17 déc. 2020 à 16:35
17 déc. 2020 à 16:35
Bonjour,
l'opération va se faire à la 1ère ouverture du classeur.
La date se met à la fermeture et à l'ouverture on vérifie. Si la date est différente on efface.
Faire Alt F11 pour accéder à l'éditeur. En haut à gauche sélectionner ThisWorkbook et coller ceci:
Voilà
l'opération va se faire à la 1ère ouverture du classeur.
La date se met à la fermeture et à l'ouverture on vérifie. Si la date est différente on efface.
Faire Alt F11 pour accéder à l'éditeur. En haut à gauche sélectionner ThisWorkbook et coller ceci:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Feuil2").Range("A1") = Format(Date, "dd/mm/yyyy") 'adapter le nom de la feuille
End Sub
Private Sub Workbook_Open()
If Format(Date, "dd/mm/yyyy") = Worksheets("Feuil2").Range("A1") Then 'adapter le nom de la feuille
Else
Worksheets("Feuil1").Cells.ClearContents 'adapter le nom de la feuille
End If
End Sub
Voilà
Utilisateur anonyme
17 déc. 2020 à 14:44
17 déc. 2020 à 14:44
Tu copié colle trente fois le même fichier vierge dans le dossier pour le mois en cours ?
18 déc. 2020 à 08:49
Merci beaucoup pour cette solution :)
Bonne journée