Calendrier à la date du jour...

[WEIDER]

Bonjour,

J’ai mis un calendrier en USF sur mon document Excel.
Cela dit c’est du repiquage via des exemples pris sur le Net, donc est ce que le code est correct ça ….

Sinon, j’ai deux questions à vous soumettre. Auriez-vous la gentillesse d’y répondre si vous le pouvez ?

Merci beaucoup pour votre aide !

Tout est dit sur mon fichier joint…

Weider.

 

[vgendron]

Re : Calendrier à la date du jour...

Bonjour,

Pour la question 2 c'est simple
dans le Thisworkbook tu places le code suivant

Private Sub Workbook_Open()
Sheets("Sommaire").Activate
End Sub

 

[stefan373]

Re : Calendrier à la date du jour...

Bonjour weider et le forum,

Pour le mettre à la date du jour, placez ce code dans l'userform du calendrier. 🙂

Private Sub UserForm_Initialize()
Calendar1 = Now
End Sub

Edit; Bonjour vgendron réponses complémentaires 🙂

A+ Stéfan

 

[vgendron]

Re : Calendrier à la date du jour...

et dans le code de ton Userform1
ajouter:

Private Sub Calendar1_Enter()
Calendar1.Day = Day(Date)
Calendar1.Month = Month(Date)
Calendar1.Year = Year(Date)
End Sub

Edit: Hello Stefan
bah oui. l'initialize.. ... pourquoi n'y ais je pas pensé...

 

[WEIDER]

Re : Calendrier à la date du jour...

Heuuuuu Merci beaucoup à tous mais...

Ça me mets bien le calendrier à la date du jour, ok, mais lorsque je clic une date pour l'incrémenter dans ma cellule, ça ne le fait pas !?!?

Weider.

 

[vgendron]

Re : Calendrier à la date du jour...

Re.
au hasard. je pense que tu n'as pas placé ce qu'il fallait ou il fallait

Je viens de tester la PJ: et ca fonctionne correctement..
vérifie ;-)

 

[WEIDER]

Re : Calendrier à la date du jour...

Oup's... Oui effectivement, le tien fonctionne vgendron ;-)

Mille excuse.

Weider.