Macro vider une feuille chaque soir

Résolu

maroche Messages postés 35 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2254 Statut Membre - 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

Afficher la suite

2 réponses

Réponse 1 / 2
Frenchie83 Messages postés 2254 Statut Membre 339
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
1. maroche Messages postés 35 Date d'inscription Statut Membre Dernière intervention 1
  
  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
Réponse 2 / 2
Frenchie83 Messages postés 2254 Statut Membre 339
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

Macro vider une feuille chaque soir

2 réponses

Discussions similaires

Newsletters