VBA ss Excel, Probleme avec DateRésolu

Question

Toujours débutant mais je me soigne,
J'aimerais lors d'une ouverture d'une nouvelle feuille (suite à une macro déja faite) que la date du jour s'inscrive dans la cellule B4 et qu'elle ne change plus jamais chaque jour ! Et aussi que la cellule D4 s'incrémente de 1 (à chaque nouvelle feuille) et ne change jamais aussi !
C'est tout simple pour vous alors aidez moi SVP ?  Merci

PCPT · Accepted Answer

rempli la cellule par macro, pas par une formule dans la cellulle elle-même.

PCPT · Answer

salut,
pour qu'elle ne change "plus jamais" (la date), suffit de tester avant si la cellule est vide

pareil ou presque pour le compteur : si vide : 1 sinon : valeur +1

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

chapaleufu · Answer

pour que la date ne change pas il suffit d'assigner la date du jour au cell voulu : cells(4,2)=date

apres je suis un peu perdu: a l'ouverture d'une nouvelle feuille on met la date en (4,2) et a chaque nouvelle feuille on incremente de 1, est-ce:
a l'ouvertur d'un nouveau workbook, la premiere feuille recoit la date du jour en (4,2) et chaque nouvelle feuille ajoutee a ce workbook doit recevoir la date qui est en (4,2) incrementee de un jour de la feuille precedente ?

PCPT · Answer

chapaleufu
 -> B4<>D4 ;)

tntdesign · Answer

Ok mais le probleme c'est que lorsque j'ouvre cet meme page le lendemain, celle ci est a la date du nouveau jour ! J'aimerai qu'elle reste au jour ou je l'ai crée !

PCPT · Answer

normal, tu ne fais pas le test SI que j'ai indiqué.

tntdesign · Answer

Je ne peux pas faire le test car ma feuille copié n'est pas vierge, elle a déja la date !
merci

tntdesign · Answer

OK je te remercie j'essayerai plus tard, je dois quitter la becanne pour aujourd' hui, encore merci !

mortalino · Answer

Salut,

c'est sur que si tu mets   = Maintenant()  dans la cellule, chaque jour ça se modifie.

Dans VB, et le Module du classeur ThisWorkBook, fait apparaitre la procédure ThisWorkBook_Open
et met  Range("D4").Value = CStr(Date) 

@++ 

<hr width ="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

tntdesign · Answer

Probleme résolu, Merci à Toi !

tntdesign · Answer

Salut,
Le probleme n'était pas là. Par contre tu m'apprends un nouveau code: =Maintenant, je vais tester ca dans un autre programme ! Merci à Toi ooo Chevalier !!!

VBA ss Excel, Probleme avec Date

11 réponses

Votre réponse

Discussions similaires