Signaler

Macro, programmation...âme charitable... [Résolu]

Posez votre question magmag - Dernière réponse le 28 sept. 2017 à 17:59 par Magmag
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!


Utile
+0
plus moins
Bonjour,

05:10; 13:10 et 21:10
Ce fichier est ouvert 24/24 ou .....????
Magmag- 28 sept. 2017 à 16:41
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.
Répondre
Donnez votre avis
Utile
+0
plus moins
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
magmag- 28 sept. 2017 à 17:31
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
Répondre
Donnez votre avis
Utile
+0
plus moins
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
Magmag- 28 sept. 2017 à 17:59
MERCI BEAUCOUP VIA!!!
C'est super!!

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

Cdt.

Magmag
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !