Format Date eb quittant le Txt

[maric]

Bonjour,
Je planche sur un petit problème, sûrement tout con

Lorsque je quitte le text box, je souhaiterai que la date se formate
soit on entre 04042003 et lorsqu'on fait tab , cela devient 04.04.2003

derrière le bouton Txt sous Exit, j'ai mis le code
TxtDateAchat.value = format (TxtDateAchat.value, "jj.mm.yyyy")

mais dans le formulaire, c'est ce qui est entre guillement qui apparaît.

De plus, derrière le bouton ajouter données, j'ai mis
cells(ligne, 7).value = CDate(TxtDateAchat.value)

et ça bogue

Pourtant il me semble que je l'ai dèjà fait de cette façon

J'ai pratiqué de la même façon avec le format Currency, et là ça marche.
Help *****Merci***** A+

 

[@+Thierry]

Salut Maric, le Forum

Tiens j'ai récupéré/adapté une mini démo de Ti pour te faire çà "en Live" pendant que tu saisies...

Option Explicit
Dim MaDate As Date

Private Sub TextBox1_Enter()
TextBox1.Text = ""
End Sub

Private Sub TextBox1_Change()
Dim Texte As String 'de Ti 10-01-03 (de notre Forum ;-)
Texte = TextBox1.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "-"
End Select
TextBox1.Text = Texte
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox1) Then
MaDate = TextBox1
TextBox1.Text = Format(TextBox1.Text, "dd-mm-yyyy")
Else
TextBox1.Text = ""
End If
End Sub

Private Sub CommandButton2_Click()
With Cells(1, 1)
.Value = CDate(MaDate)
.NumberFormat = "dd-mm-yyyy"
End With
End Sub

Normalement ta date reste une date sur la feuille aussi... et au Format "DD-MM-YYYY"

Bonne Nuit
@+Thierry

 

[maric]

hello,

C'est super sympa, ça marche ton truc

merci beaucoup

NB : ça m'arrangerai ton savoir afin d'aller plus vite dans l'application que j'essaie de mettre au point
mais avec le peu de vba que j'ai vu, c'est qu'il faut beaucoup piocher

heureusement que le forum est là

A tout bientôt