Discussion :

[moilou2]

Bonjour, j'ai un UserForm avec un contrôle calendar 11.0 et je voudrais savoir comment lors de l'ouverture le calendrier se mette à la date du jour?

Merci

[-={-_-}=-]

Désolé...
Ce midi le vin était un peu corsé
Essaye donc ca :

Code :

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

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

[allergique]

Bonjour,

Tu peux aussi insérer ce code dans l'userform:

Code :

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

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

[moilou2]

sa marche merci!

A+