Mettre la date automatiquement

[Jack Lethycien]

J'ai encore une question, je suis pas vraiment fort en macro, jusque là en étude,

J'ai enregistré le macro en attache, je voudrais votre aide sur:
1.comment faire pour que la date soit automatiquement et c'est en Jour J-1 (si ns sommes le 22; que la date soit le 21)
2. Comment ameliorer les codes enregistrés?

 

[Modeste geedee]

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

 

[Guest]

Re : Mettre la date automatiquement

Bonjour,

Range("B30:AX173").Copy Range("B6")
   ' Range("D150:AX153").Select '??????? A quoi sert cette sélection?????
    Range("AX150").ClearContents
    Range("B150").FormulaR1C1 = Date  -1 'Je cherche le moyen pour que la date puisse se prendre automatiquement
    Range("D150").Select

A+

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

 

[Jack Lethycien]

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