XL 2016 Formatage textbox au format date

[KTM]

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

 

[Hasco]

Bonsoir,

Essayez: Range("A1") = CDate("1-" & TextBox1.Value)

Bon week-end

 

[KTM]

Efficace
Merci

 

[job75]

Bonjour KTM, Roblochon,

Ce code tient mieux la route :

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+

 

[Hasco]

re,

Ce code tient mieux la route

Je veux bien mais il faut nous dire en quoi.

Bonne soirée

 

[job75]

Je veux bien mais il faut nous dire en quoi.

Pour ceux qui ne savent pas lire le VBA :

- la date est testée

- la cellule est formatée, c'est plus logique que formater la TextBox

- le focus est remis sur la TextBox.