XL 2010 [RESOLU] Pb date dans UserForm

Ternoise

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
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.
 

Discussions similaires

  • Résolu(e)
Microsoft 365 userform
Réponses
4
Affichages
283

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG