Discussion :

[cairnoc]

Bonjour,

J'ai un calendrier qui s'affiche directement lorsque je clique sur une cellule donnée, c'est cool

Par contre la date par défaut de ce calendrier est celle de la création du userform, que je dois changer manuellement pour plus de lisibilité/
Ex: lorsque le calendrier s'affiche, il me propose la date de 12 Juin 2010 alors que nous somme le 12 Avril 2013. Certes je change la date mais ça fait cliquer sur plusieurs onglet (année, mois et jours).
Je voudrais savoir s'il existe une ligne de code à rajouter pour que par défaut le calendrier affiche la date d'aujourd'hui.

Voila les lignes de code que j'ai déjà :
L'affichage du calendrier dans la plage de cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("E5:F10")) Is Nothing Then UserForm1.Show
End Sub

Le code du userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub
 
Private Sub UserForm_Initialize()
With UserForm1
 .Left = ActiveCell.Offset(0, 1).Left + 25
 .Top = ActiveCell.Offset(0, 1).Top + 100
End With
End Sub

Merci de votre aide

[QuestVba]

Bonjour

Avec cecic, cela pourrait fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Calendar1.Value = Date

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
  Calendar1.Value = Date 
End Sub

[cairnoc]

Super c'est exactement ça.
Merci beaucoup

[cairnoc]

J'ai un nouveau pb qui est apparu !

Mon calendrier est prévu de s'afficher sur plusieurs colonnes. Lorsqu'il s'affiche à partir de cellules de certaines colonnes, il se positionne dans un coin de la fenêtre, le rendant invisible. Je suis obligé d'aller le chercher (par un clique et glisse) et de le ramener dans le tableau.
Il y aurait une soluce pour qu'il s'affiche a coté de la cellule sélectionnée ?

Merci