XL 2010 [RESOLU] Pb date dans UserForm

[Ternoise]

Bonjour à tous

Encore ce maudit problème de date dans un UserForm

J'initialise un UserForm avec ceci :

Private Sub UserForm_Initialize()
TextBox13.Text = (Format(CDate(Now), "dddd dd mmmm yyyy"))
End Sub

J'aimerais récupérer dans "TextBox14" juste le jour

Private Sub TextBox13_Change()
TextBox14.Text = Format(TextBox13.Text, "dddd")
End Sub

Ce n'est pas le bon jour qui s'affiche !

Merci de votre aide

David

 

[Dranreb]

Bonsoir.
Essayez :

Private Sub UserForm_Initialize()
TextBox13.Text = Format(Date, "dddd dd mmmm yyyy")
End Sub

Private Sub TextBox13_Change()
TextBox14.Text = Format(CDate(TextBox13.Text), "dddd")
End Sub

 

[Ternoise]

Bonsoir Dranreb

Merci de cette réponse mais j'ai une incompatibilité de type "erreur 13" sur cette ligne

Private Sub TextBox13_Change()
TextBox14.Text = Format(CDate(TextBox13.Text), "dddd")
End Sub

Bien cordialement

 

[Dranreb]

Private Sub TextBox13_Change()
   if IsDate(TextBox13.Text) Then
      TextBox14.Text = Format(CDate(TextBox13.Text), "dddd")
   ElseIf TextBox13.Texte <> "" Then
      MsgBox """" & TextBox13.Text & """ N'est pas une date valide.", vbExclamation, Me.Caption
   Else
      TextBox14.Text = ""
      End If
   End Sub

 

[Ternoise]

Apparement
TextBox13 "N'est pas une date valide"

Merci de ton aide

 

[Dranreb]

Mais pourquoi le texte du jour de la semaine est il affiché en deux endroits ?
Il est bien probable que ce soit lui qui gène la reconnaissance de la date. Soit il ne faut pas le mettre dans la TextBox13, soit il faut l'en reprendre plutôt par TextBox14.Text = Split(TextBox13.Text)(0)
Attention j'avais oublié un '&' dans mon MsgBox.

 

[Ternoise]

Bonjour

En mettant ce code, cela fonctionne parfaitement.

Private Sub TextBox13_Change()
TextBox14.Text = Split(TextBox13.Text)(0)
End Sub

Merci beaucoup