USF qui pose problème

[PyranaS9]

Bonsoir,

Je reviens sur un sujet ; Macro liste déroulante calendrier (lien ci-dessous)
excel/macro-liste-deroulante-calendrier-t14296.html

Car je l'avais noté en résolu. Oui mais en partie ou temporairement. Car en effet, avec l'avancée je me suis rendu compte, que l'USF (le calendrier en question) ne se mettait pas à jour. Je m'explique, il reste à jeudi 26 novembre 2009. Or, je souhaite, que lorsque je fait un double clic en E, pour ajouter une date butoir, il démarre au pire à la date d'aujourd'hui, et non pas à une date passé, car elle ne peut être < à une occurence passé. Donc, aujourd'hui au minimum.

Merci par avance, revoir l'ancien topic dans le pire des cas, sinon, ce fichier et les explications qu'il contient peut vous satisfaire.

[galopin01]

bonsoir,
rajoute ce code dans le module de ton USF :

Code: Tout sélectionner

Private Sub UserForm_Initialize()
Calendar1.Value = Now
End Sub

Tu peux également supprimer la Value des propriétées du Calendar
A+
Nota si tu veux une date décalée tu peux mettre

Code: Tout sélectionner

Private Sub UserForm_Initialize()
Calendar1.Value = Now +1 'par exemple
End Sub

[PyranaS9]

Merci à toi galopin01.

Il marche (le code que tu m'a fournit).

Bonne continuation!