Bonjour,
Pourriez vous me dire comment mettre le format date dans TextBox.
J'ai mis le code suivant et il sort le format comme ceci :40194 pour me donner "16/01/2010".
je m'explique j'ai un formulaire avec une listbox ou je DClick sur un item pour ouvrir un autre formulaire "fiche client" dans se deuxième formulaire ou userform comme on veut, j'ai des textbox donc un pour la date "TextBox4" et je n'arrive pas a obtenir une date normale.
Merci d'avance
Bien cordialement
Max
Pourriez vous me dire comment mettre le format date dans TextBox.
J'ai mis le code suivant et il sort le format comme ceci :40194 pour me donner "16/01/2010".
Code:
Private Sub UserForm_Initialize()
Sheets("Feuil1").Select ' aller à la page active
Me.TextBox1.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 0) ' Ref
Me.TextBox3.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 1) ' Nom=
Me.TextBox4.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) ' Date
Me.TextBox7.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 6) ' Ville
Me.TextBox2.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 3) ' N° Ligne
Me.TextBox6.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 4) ' Adresse
Me.TextBox5.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 5) ' CP
Me.TextBox9.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 9) ' Mobile
Me.TextBox10.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 8) 'Fax
Me.TextBox8.Value = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 7) 'Tel
Label151.Caption = " " & Range("B65536").End(xlUp).Row ' N° de la derniere ligne non vide
End Sub
Private Sub TextBox4_Change()
If Len(TextBox4) = 2 Or Len(TextBox4) = 5 Then _
TextBox4 = TextBox4 & "/"
End Subje m'explique j'ai un formulaire avec une listbox ou je DClick sur un item pour ouvrir un autre formulaire "fiche client" dans se deuxième formulaire ou userform comme on veut, j'ai des textbox donc un pour la date "TextBox4" et je n'arrive pas a obtenir une date normale.
Merci d'avance
Bien cordialement
Max