Discussion :

[Toison]

Bonjour,
Je voudrais que le calendrier indique la date du jour lorsque le masque "Saisir un rendez-vous s'affiche"
Merci !
Toison

[ouskel'n'or]

Sans plus de précision... En supposant que tu places la sélection d'une date dans Textbox2...

Code :

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

1
2
3
4
Private Sub Calendar1_Click()
    TextBox2 = Calendar1.Value
    Calendar1.Value = Now()
End Sub

[Toison]

Bonjour Ouskel'n'or et le forum,
L'emplacement de l'afficage n'est pas un "TextBox".
Le calendrier (CLD_Date) est un élément solidaire du userform "Saisir un rendez-vous" (voir l'image jointe dansmon précédent message).
J'ai implémenté la petite routine que tu m'as envoyée en remplaçant Calendar1 par CLD_Date, mais ça n'a pas fonctionné.
Je joins à nouveau mon fichier.
Merci !
Toison

[tomy7]

tiens regardeAgenda%20April10th(1).rar

j ai ajouter un petit code dans thisworkbook

[ouskel'n'or]

Tu peux simplement le mettre dans Userform_Initialize ou Activate

Code :

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

1
2
3
4
5
Private Sub UserForm_Activate()
    Dim Dernier As String
    CLD_date.Value = Now 'ici, ça fonctionne !
    Worksheets("Parametres").Select
    '.......

Pour que ça fonctionne, tu dois ouvrir ton userform depuis le bouton de ta feuille. C'est tout !

[Toison]

Un grand merci à Tomy7, à ouskel'n'or et le forum pour l'aide précieuse!
Merci!
Toison

[Magnum8760]

tiens regardeAgenda%20April10th(1).rar

j ai ajouter un petit code dans thisworkbook

Mais c'est mon prof ça !

[patricktoulon]

re
sacré déterrage et en plus ca ne marche pas ton open et ca ne peut certainement pas fonctionner

pour la simple et bonne raison qu'a l' initialise de l'userform les contrôles sont initialisés aux valeurs inscrites dans les propriétés dans l'editeur VBE
essaie encore
ajouter simplement dans le activate de l'userform

Code :

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

CLD_date = Now()