XL 2016 Formatage textbox au format date

KTM · 7 Juin 2019

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 · 7 Juin 2019

Bonsoir,

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

Bon week-end

KTM · 7 Juin 2019

Efficace
Merci

job75 · 7 Juin 2019

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+

Hasco · 7 Juin 2019

re,

job75 à dit:
Ce code tient mieux la route

Je veux bien mais il faut nous dire en quoi.

Bonne soirée

job75 · 7 Juin 2019

Roblochon à dit:
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.

XL 2016 Formatage textbox au format date

KTM

XLDnaute Impliqué

Pièces jointes

Hasco

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires