Rapport de message :*
 

Format date MDF Xlcalendar dans Userform

Titre du sujet : Format date MDF Xlcalendar dans Userform
par Alragorn le 18/08/2009 00:34:04

Merci beaucoup pour votre utilitaire qui est fantastique.

Voici mes 2 problèmes :
1. Format de date incorrect de Userform à feuille Excel
2. Saisie date sans faire double clic

1.
J'utilise mdf Xlcalendar V1.1 dans un Userform (textbox) pour effectuer une saisie dans une mini base excel.

Le code initial associé a ma textbox était
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = True
    mDFXLcalShow CalCtrl:=TextBox1, CalFormat:="dddd dd/mm/yyyy", CalLang:="FR"
End Sub

Je l'ai modifié par :
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = True
    mDFXLcalShow CalCtrl:=TextBox1, CalFormat:="dd/mm/yyyy", CalLang:="FR"
End Sub
Effectivement cela fonctionne parfaitement dans la userform, cependant lorsque le champ se déverse dans ma feuille excel, le format n'est plus dd/mm/yyyy mais mm/dd/yyyy.
Si je conserve le format fourni dans la FAQ alors la date est correcte, mais le format de ma cellule d'arrivée n'est plus bon (La cellule d'arrivée est utilisée pour généré automatiquement un planning).

2.
J'ai effectué une tentative pour faire apparaître le calendrier par un simple clic, mais cette dernière s'est avérée infructueuse.
Private Sub TextBox1_Click(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = True
    mDFXLcalShow CalCtrl:=TextBox1, CalFormat:="dd/mm/yyyy", CalLang:="FR"
End Sub

Je vous joins mon fichier excel et vous remercie par avance pour vos réponse