Macro vider une feuille chaque soir

Résolu/Fermé
maroche Messages postés 35 Date d'inscription dimanche 11 novembre 2007 Statut Membre Dernière intervention 5 octobre 2016 - Modifié par maroche le 11/02/2016 à 22:25
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 12 févr. 2016 à 10:15
Bonjour,

Je cherche une macro qui effacerait les données d'une feuille tous les soirs à minuit.

Auriez-vous la solution?

Merci par avance
A voir également:

2 réponses

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
12 févr. 2016 à 02:43
Bonjour
A copier dans le module ThisWorkbook
Private Sub Workbook_Open()
    Application.OnTime TimeValue("00:00:00"), Procedure:="Effacement"
End Sub


A copier dans un module classique, (mettez la cellules à effacer à la place de "A10:C10")
Sub Effacement()
    Sheets("Feuil1").Range("A10:C10").ClearContents
End Sub

Cdlt
0
maroche Messages postés 35 Date d'inscription dimanche 11 novembre 2007 Statut Membre Dernière intervention 5 octobre 2016 1
12 févr. 2016 à 08:35
La macro à insérer dans "Thisworkbook" effacera t'elle toutes les feuilles du classeur? Car je ne souhaite en effacer qu'une bien précise
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
12 févr. 2016 à 10:15
Bonjour
Dans le cas présent, il n'efface que la feuille 1
Sheets("Feuil1")

A vous de mettre le nom de votre feuille ainsi que les plages à effacer.

Rappel: la macro "Sub Effacement" est à mettre dans un module classique (pas dans ThisWorkbook ni dans un module de feuille).
Cdlt
0