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
- Comment effacer une page sur word - Guide
- Effacer les cookies - Guide
- Effacer les données de navigation - Guide
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. ✓ - Forum Graphisme
2 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
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