Macro, programmation...âme charitable...

Résolu/Fermé
magmag - 27 sept. 2017 à 21:09
 Magmag - 28 sept. 2017 à 17:59
Bonjour,

J'ai un classeur Excel dans lequel j'ai une feuille 2 qui correspond à une page d'aide de calcul. Je souhaiterais que les infos saisie dans ce tableau s'effacent (sans sauvegarde) à 05:10; 13:10 et 21:10 chaque jour sans modifier les case de formule et d'entête. Le problème que je rencontre c'est que je ne sais absolument pas comment faire!!! j'ai bien trouvé des codes mais je n'arrive pas a activer quoique ce soit...y aurait-il une âme charitable qui aurait la gentilles de me mettre ce code est cette macro en place directement dans mon fichier?

Par avance merci pour vos avis, aides et temps!


A voir également:

3 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 sept. 2017 à 16:11
Bonjour,

05:10; 13:10 et 21:10
Ce fichier est ouvert 24/24 ou .....????
0
Bonjour f894009,

Non il n'est pas ouvert H24. Il est cependant ouvert regulièremet sur différents bureaux. C'est un fichier "aide" qui calcul des totaux de rejets mais qui doit être remis à 0 à chaque changement d'équipe.
0
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
28 sept. 2017 à 17:01
Bonjour

Tu n'as pas joint ton fichier !

Poste un exemple de ton fichier sur cjoint.com, fais créer un lien que tu copies et reviens coller ici en indiquant précisément quelle plage doit être effacée

Cdlmnt
Via
0
Merci pour l'info :-) je me demandais comment vous faisiez pour partager vos fichiers....

Donc cette feuille Excel se trouvera en feuille 13 d'un classeur excel dont les 12 autres feuilles ne devront surtout pas être effacées. Dans ce tableau les cases blanches et vides doivent s'effacer à 5h10, 13h10 et 21h10 afin d'éviter toutes confusions. J'ai réussi à mettre en place une macro avec un raccourci clavier...mais un programmation est bien au dessus de mes compétences!

http://www.cjoint.com/c/GICpBdIrBPu

Merci pour votre aide.

Cdt.
Magmag
0
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
28 sept. 2017 à 17:52
Re,

Alors :

1) Dans This Workbook de l'éditeur VBA mettre la macro suivante :
Private Sub Workbook_Open()
Application.OnTime TimeValue("05:10:00"), "effacer"
Application.OnTime TimeValue("13:10:00"), "effacer"
Application.OnTime TimeValue("21:10:00"), "effacer"
End Sub


2) Inserer un Module et y mettre la macro suivante :
Sub effacer()
Sheets("nomdelafeuille").Activate
Range("D3:J19").ClearContents
End Sub


En remplaçant nomdelafeuille par le vrai nom de la feuille où effacer les données

Fermer le classeur puis le rouvrir (pour lancer la 1ere macro)
Évidemment cela ne fonctionnera que si le classeur est ouvert, par exemple si le classeur était fermé entre 12 h et 14h puis réouvert à 14h l'effacement de 13 h 10 n'aura pas pu avoir lieu et il faudra attendre 21 h 10

Cdlmnt
Via
0
MERCI BEAUCOUP VIA!!!
C'est super!!

Merci à tous pour le temps que vs avez eu la gentillesse de m'accorder.

Cdt.

Magmag
0