TEXTBOX FORMAT DATE et ANNEE

[GHISLAIN]

bonjour a tous

voila , dans un textbox1 je rentre une date au format jj/mm/aaaa soit exemple:10/10/2010

du textbox 1 je renvoie la valeur dans le textbox2

je souhaiterai que la valeur une fois rentré dans le textbox2 prenne le format aaaa soit exemple: 2010


je vous remercie de l'aide apporté a mon post .

Amicalement Ghislain [file name=essai_20060522145015.zip size=10521]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060522145015.zip[/file]

 

[ThomasR]

Bonjour,

voici une modification dans ton code

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) < 10 Then
MsgBox ('FORMAT jj/mm/aaaa')
With Me
.TextBox1.Text = ''
End With
Exit Sub
End If
Me.TextBox2.Text = Format(Me.TextBox1.Text, 'yyyy')
End Sub

 

[GHISLAIN]

bonjour thomas

je tien a te remercier pour ta reponse aussi rapide et efficace

je viens de la mettre en oeuvre ça fonctionne impec

merci encore

amicalement

GHISLAIN