Bonsoir,
J'utilise depuis peu mDF Xlcalendar v1.1 dans deux TextBox d'un Userform avec Excel 2003 et Excel 2007 et c'est Génial.
Ma prémière TextBox est pour indiquer la date du début de période de congé et la seconde la fin de la période de congé qui peuvent être le même jour (1journée).
Pour celà j'utilise la macro fournie et c'est ok:
Private Sub PériodeF_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = True
    mDFXLcalShow CalCtrl:=PériodeD, CalFormat:="dd/mm/yyyy", CalLang:="FR"

Ma question est de savoir si on peu ajouter d'autre commandes dans la macro afin d'avoir toutes les options de XLcalendar lors de son appel en cliquant dans la TextBox (ex: rappel du dernier mois).

Par ailleurs, lorsque je choisi une date de début dans ma première TextBox j'aimerai que dans la TextBox de fin de période XLcalendar puisse se positioner sur le dernier mois saisis et mieux encore le dernier jour saisi . Le summum serait même en plus que XLcalendar se lance seul dans la 2ème TextBox à partir du moment ou la date de début est choisie dans la première TextBox.

Bon ok c'est pas très clair mon histoire ;-(

Merci à tous pour votre lecture

Bonsoir Philmfr, bienvenue sur XLpages.com
Bonsoir le Forum,

Tu trouveras en pièce jointe peut-être une façon d'obtenir l'effet souhaité ou, au moins, une piste à creuser.

J'ai pris pour base la FAQ expliquant l'utilisation du mDF XLcalendar dans un Userform, puis repris le classeur exemple donné auquel j'ai ajouté 2 contrôles TextBox dont le code évènementiel est le suivant :


Voir dans l'exemple joint l'effet obtenu qui devrait répondre à ton besoin je pense...
Cordialement,

Bonjour,
C'est génial, ça marche exactement comme je le voulais
Mais la commande sur la T2 me pose maintenant un bug ailleus.
Je vais chercher par moi même demain après dodo et je reviens vous voir.
Déjà merci et à demain.
Philippe

Bonjour,
Alors voilà quand je lance ma commande de néttoyage de mon Userform, il néttoie/vide bien tout sauf qu'il lance XlCalendar en Textbox "PériodeF"

Private Sub Annuler_Click()
'vérifie que le classeur Bertille est le classeur actif
'sinon l'initialisation échoue
Workbooks("Bertille.xls").Activate
'Vide les Combobox, vide les éléments de texte...
    agents = ""
    annule = ""
    PériodeD = ""
    PériodeF = ""
    gpa = ""
    commentaire = ""
    'positionne sur "Faux" les cases à cocher
    matin = False
    aprèsmidi = False
    journée = False
    urgence = False
   
End Sub

Je pense que cela est normal car dans ce que tu as (très bien fait),
Private Sub PériodeD_Change()
    'Ferme le calendrier et le réouvre automatiquement pour la date de FIN (par défaut, à la même date)
    With PériodeF
        If .Text = "" Then .Text = PériodeD.Text
etc....

Comment puis je éviter celà? changer ma méthode de néttoyage? y ajouter la fermeture de XLcalendar?
Bien merci,
Philippe

Bonsoir Philmfr,

Cher Philippe, j'ai comme l'impression que tu devrais prendre un peu de recul par rapport à ton projet car il me semble que la solution à ton nouveau problème était quand même à ta portée... (ou alors, il y a d'autres surprises non encore annoncées...)

Plusieurs solutions peuvent être possibles ici, mais la plus simple je pense, est de modifier la procédure txtPeriodeDEB_Change() comme suit :
... un simple IF ... THEN et on contourne le soucis.

Voir l'effet obtenu dans l'exemple joint.

Si cela répond à ta question, je te remercie de mettre en pratique ce qui est inscrit au bas de ma signature.

Cordialement,

Bonsoir,
En effet, c'était évident mais je ne cherchais pas de ce côté
Je ne reste qu'un amateur.
Encore bien merci pour cette réussite.
Philippe