XL 2010 [RESOLU] Pb date dans UserForm

Ternoise · 25 Décembre 2019

Bonjour à tous

Encore ce maudit problème de date dans un UserForm

J'initialise un UserForm avec ceci :

VB:

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

Code:

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 · 25 Décembre 2019

Bonsoir.
Essayez :

VB:

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

VB:

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

Ternoise · 25 Décembre 2019

Bonsoir Dranreb

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

VB:

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

Bien cordialement

Dranreb · 25 Décembre 2019

VB:

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 · 25 Décembre 2019

Apparement
TextBox13 "N'est pas une date valide"

Merci de ton aide

Dranreb · 25 Décembre 2019

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 · 26 Décembre 2019

Bonjour

En mettant ce code, cela fonctionne parfaitement.

VB:

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

Merci beaucoup

XL 2010 [RESOLU] Pb date dans UserForm

Ternoise

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Ternoise

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Ternoise

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Ternoise

XLDnaute Occasionnel

Discussions similaires