Objet Calendrier Excel s'affiche à la date de création

[Pierrick1910]

[RESOLU] Objet Calendrier Excel s'affiche à la date de création

Bonjour,
J'ai créé un petit fichier Excel.
Lorsqu'on clique sur certaines cellules le calendrier s'affiche, et ensuite en cliquant sur la date souhaitée sur le calendrier, la date s'affiche dans la cellule.

Tout marche très bien excepté que lorsque le calendrier s'ouvre, il affiche toujours le mois où j'ai créé le calendrier !

Je ne sais pas comment lui dire d'afficher le mois en cours.

Voilà mon Code :
Au niveau du formulaire

Private Sub Calendrier_DateClick(ByVal DateClicked As Date)
ActiveSheet.Unprotect
ActiveCell = DateClicked
ActiveSheet.Protect
Unload UserForm1
End Sub

Au niveau de la page d'appel du calendrier :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Call Calendrier
End If
End Sub

Je ne sais pas où et quoi rentrer pour afficher le calendrier à la date du jour...

Merci de votre aide.

Pierrick

 

[gfortin9]

Re : Objet Calendrier Excel s'affiche à la date de création

Allô!

Je ne suis pas en mesure de vérifer, mais je dirais quelque chose comme :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Call Calendrier
[COLOR="Purple"]Calendrier = today[/COLOR]
End If
End Sub

GFortin

 

[tdenfert]

Re : Objet Calendrier Excel s'affiche à la date de création

http://www.fontstuff.com/vba/vbatut07.html


Ci joint un lien qui traite du sujet.

Je pense Que gfortin9 t'as donner la solution

 

[jms31]

Re : Objet Calendrier Excel s'affiche à la date de création

Bonjour,

Tout dépend du control calendrier que tu as sur ta form, mais si c'est un "Monthview", tu as les propriétés suivantes pour initialiser le control avant l'appel de ta UserForm

Calendrier.Day
Calendrier.Month
Calendrier.Year

Sur un DatePicker aussi d'ailleurs

Oops ! désole Gfortin9 et tdenfert pas rafraichi avant de poster

 

[coco1969]

Re : Objet Calendrier Excel s'affiche à la date de création

essai cette macro que tu dois copier dans
C:\Documents and Settings\"ton répertoireXXXXXX"\Application Data\Microsoft\AddIns
Pour EXCEL 2003
Ensuite tu va dans Tools ==> Add-ins.. et tu tick calendar
lorsque tu te mettras sur n'importe quelle cellule, tu clique droit et tu as le calendar

 

[Pierrick1910]

Re : Objet Calendrier Excel s'affiche à la date de création

Bonjour à tous,

Désolé gfortin9, mais ta solution ne fonctionne pas.
tdenfert ton lien ne marche pas non plus.
jms31 c'est peut-être la solution, mais je ne comprends pas comment la mettre en place.
coco1969, je ne cherche pas une solution de Calendrier, j'en ai déjà une qui marche très bien sans rajout ou autre, mais juste à afficher le calendrier à la date du jour plutot qu'à la date de création.

Je vous joins mon fichier pour que vous puissiez peut-être mieux comprendre.
Pour faire afficher le calendrier il faut cliquer dans n'importe quelle case de la colonne Date.

Merci beaucoup de votre aide.

 

[jms31]

Re : Objet Calendrier Excel s'affiche à la date de création

Désolé Pierrick, je n'ai pas le control calendrier que tu utilises sur ma machine, donc je ne peut pas mettre à jour ton code et te le renvoyer.

Mais a priori vu le code que tu as écrit, dans ta procédure Calendrier, il suffit que tu ajoutes le code suivant avant l'appel à userform1.show (en espérant que ton contrôle ait bien ses propriétés. Sinon cherche dans VBE et l'explorateur d'objet les propriétés de ton contrôle qui te permetront d'initialiser la date avant l'affichage)

UserForm1.<NomDuControle>.Day= Day(now())
UserForm1.<NomDuControle>.month = Month(now())
UserForm1.<NomDuControle>.Year= Year(now())
UserForm1.Show

 

[Pierrick1910]

Re : Objet Calendrier Excel s'affiche à la date de création

Merci nickel jms31.