Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Formatage textbox au format date

KTM

XLDnaute Impliqué
Bonjour cher Forum
Jai un petit soucis avec le formatage de ma textbox
Je veux récupérer la date insérée dans ma textbox1 dans ma cellule A1
Je procede comme suit :

TextBox1.Value = Format(TextBox1, "mmm-yy")
Range("A1") = CDate(TextBox1.Value)


Mais mon soucis
quand je saisie et valide par exemple
2/19 je reçois 19/02/2019 au lieu de 01/02/19 (Fevrier-19)
9/19 je reçois 19/09/2019 au lieu de 01/09/19 (Septembre-19)

J'ai l'impression d'avoir mal paramétré ma Textbox
 

Pièces jointes

  • Classeur1.xlsm
    16.7 KB · Affichages: 13

job75

XLDnaute Barbatruc
Bonjour KTM, Roblochon,

Ce code tient mieux la route :
VB:
Private Sub CommandButton1_Click()
If IsDate(TextBox1) Then
    If TextBox1 Like "*#/##" Or TextBox1 Like "*#-##" Then TextBox1 = "1/" & TextBox1
    [A1].NumberFormat = "mmm-yy"
    [A1] = CDate(TextBox1)
End If
TextBox1 = ""
TextBox1.SetFocus
End Sub
A+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…