Effacement de cellule

Bonjour a ts,

petite question qui va paraitre simple pour certains (du moins je l'espere...)

Comment faire pour que toutes mes cellules contenues dans une feuille s'effacent à partir d'une certaine date?

Est-il possible de faire une MFC?

Bonjour

Comment faire pour que toutes mes cellules contenues dans une feuille s'effacent à partir d'une certaine date?

Est-il possible de faire une MFC

Au choix, à toi de préciser. Un fichier xls pourraît aussi aider.

Une MFC change la couleur de l'affichage suivant le ou les critères choisis et rend donc invisible si besoin, mais n'efface rien.

Une formule peut afficher un résultat ou ne rien afficher suivant un critère défini

Seule une Macro peut effacer

Cordialement

Re

par exemple sur le fichier qui suit, j'aimerais par exemple que si on passe à la prochaine année (avec une date du 01/01/10 par exemple),

toutes les cases s'effacent(revenir à une feuille vierge).

https://www.excel-pratique.com/~files/doc2/suivi_pannes_cantenac.xls

Je ne vois pas vraiment comment cela est possible avec une macro...

Cordialement

Bonjour,

personnellement, ce n'est pas ce que je ferai....

J'enregistrerai un classeur vierge, au format "modèle"

ce classeur s'appelerait alors "Suivi_pannes_cantenac.xlt"

Remarque bien le .xlt à la fin..

en 2009, tu l'ouvres, et tu es obligé de l'enregistrer sous un autre nom, exemple :

suivi_pannes_cantenac_2009.xls (ici, c'est .xls, qui sera proposé par défaut)

en 2010, tu ouvres le .xlt, et.......

Ainsi, tu gardes trace de tes interventions

Et pas de macros, juste un fichier vierge, enregistré en tant que modèle

Quand tu enregistres le fichier vierge, tu fais :

Fichier/Enregistrer sous...

Tu mets le nom

Et dans type de fichier, tu sélectionnes "Modèle (*.xlt)" (6 ème choix)

et c'est tout....

Justement, le but est d'effacer le fichier.

Une seule personne garderait une copie du fichier apres une certaine date,

et le fichier (qui est sur un serveur) "s'effacerait".

Bonjour

La date choisie pour l'effacement en A1

Code dans thisWorkBook

Private Sub Workbook_Open()
        Dim today As Date
        today = Date
        If [a1] = Date Then
            Call Effacer
        End If
End Sub

Code dans Module1

Sub Effacer()
    Sheets("Feuil1").Select
    Range("B9:Z150").ClearContents
    Range("B8").Select
End Sub

Attention, si tu testes en mettant la date d'aujourdhui en A1, fais une copie de sauvegarde car il n'y a pas de retour en arrière.Les experts VBA pourront améliorer..

Cordialement

Re-,

Perso, j'aime pas ces manières cavalières.....

Un PC fait ce qu'on lui dit, lorsqu'il est devant nous.....

Tellement de Bugs d'interface Clavier/Dossier que je ne donne plus de ces solutions....

Si tu veux protéger efficacement tes données (le nombre de lampes, de fusibles.......), tu prends ton fichier, tu le conçois un peu mieux, style tu ne peux entrer des données que dans des zones bien définies, qui seront effacées au bout de 30 secondes (nan, là, je rigole, quoique.....), et que le 1er janvier, tu effaces tout.....

Bref, pas glop, ta façon de voir les choses....

merci a vous pour vos suggestions.

La solutions à Amadéus me permet d'avoir un esprit un peu plus pédagogique, car je ne suis pas trop calé en VBA.

A bientot et merci encore