Mettre la date automatiquement

Re : Mettre la date automatiquement

Bonsour®

peut-être :

Range("B30:AX173").Select
Selection.Copy

Range("B6").Select
ActiveSheet.Paste

Range("D150:AX153").Select
Range("AX150").Activate
Selection.ClearContents
Range("B150").Select
ActiveCell = Date - 1

Cliquez pour agrandir...

Re : Mettre la date automatiquement

Bonjour,


A+

P.S. ne pas oublier de dire 'bonjour'!

Re : Mettre la date automatiquement

Salut Madeste and Hasco;

Merci beaucoup vous m'avez aidez et je veux gagner du temps dans mon travail
Dear Hasco, La valeur ' Range("D150:AX153").Select '??????? A quoi sert cette sélection?????, je voulait effacer 3 ligne de la date actuel pour le distinguer avec les autres. Avec les codes que vous m'avez envoyer ça n'efface pas.

J'ai aussi une question, est-ce possible de faire un macro parreil qui peut me permettre :
1.si je suis un lundi, le macro s'excute pour 3 Jours càd Vendredi, samedi et le derière dimanche donc 3 dates à modifier
2. et pour les autres jours ça s'execute seulement pour un jour. Par, le mardi; seulement une date à modifier