Rapport de message :*
 

Re: XL Calendar dans TextBox d'un Userform

Titre du sujet : Re: XL Calendar dans TextBox d'un Userform
par myDearFriend! le 07/04/2011 22:48:25

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 :
Private Sub txtPeriodeDEB_Change()
    If txtPeriodeDEB.Text <> "" Then
        'Ferme le calendrier et le réouvre automatiquement pour la date de FIN (par défaut, à la même date)
        With txtPeriodeFIN
            If .Text = "" Then .Text = txtPeriodeDEB.Text
            .SetFocus
            mDFXLcalHide
            mDFXLcalShow CalCtrl:=txtPeriodeFIN, CalFormat:="dd/mm/yyyy", CalLang:="FR"
        End With
    End If
End Sub
... 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,