Rapport de message :*
 

Re: Calcul de dates dans un USF

Titre du sujet : Re: Calcul de dates dans un USF
par criscris11 le 15/04/2012 18:07:27

Didier,
Merci pour ta franchise et non pas pour te faire de la pub et vu que j'utilise déjà XLcalendar, je vais me contenter de ta version pour l'utilisation dans mon fichier.

Alors dis-moi si je me trompe si j'utilise ce code dans les TextBox où les dates sont à saisir par l'utilisateur :

au lieu de :

Private Sub txtDu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim T As String
    T = FormatDate(txtDu.Text)
    If T <> "" Then
        txtDu.Text = T
        CalculValid     'calcul et autorisation de validation
    Else
        Cancel = True   'le focus reste sur le textbox pour correction
    End If
End Sub
je dois modifier comme tel :

Private Sub txtDu_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = True
    mDFXLcalShow CalCtrl:=txtDu
    CalculValid
End Sub

Merci de bien vouloir me corriger le cas échéant et bonne soirée.
Cordialement.