Discussion :

[manime]

Bonjour,

Je n'ai pas trouver sur le forum de réponse à ma question ce qui m'étonne tellement elle semble basique...

Je souhaite dans un userform, insérer une textbox. celle-ci permettra à l'utilisateur de renseigner un date.
Comment faire un masque de saisir "dd/mm/yyyy"...
J'ai essayé avec ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Date_Single_Change()
 
Date_Single.Value = Format(Date_Single.Value, "dd/mm/yyyy")
 
 
End Sub

mais si je rentre par exemple 5, il me mets automatiquement 04/01/1900... ensuite impossible de faire backspace, il me change l'année...

Je suis débutant donc j'imagine qu'il doit y avoir une méthode miracle !

MErci de votre aide soit avec des pistes soit avec un lien d'une conversation qui aurait déjà traité le sujet avec brio !

[rvtoulon]

slt
j'ai mal lu ton message, le code que tu as entré:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "dd-mm-yyyy")
End Sub

formate la textbox afin d'afficher la date sous le format dd/mm/yyyy, ce qui implique de saisir cette date de la même manière.

[laetitia]

bonjour manime rvtoulon le forum tu peus essaye un truc comme cela dans proprietes de la textbox Maxlength =10
puis code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Dim Chge As Boolean
Private Sub TextBox1_Change()
If Not Chge Then
With TextBox1
Select Case Len(.Text)
Case 2, 5
.Text = .Text & "/"
End Select: End With
Else: Chge = False: End If
 End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
 Case Is = 8
 Chge = True
 Case Is = 13, 96 To 105
 Case Else
 KeyCode = 0
 End Select
End Sub

apres il faut affiner par exemple avec le code de rvtoulon en le mettant dans un bouton de validation mais bon sans plus d'infos pas simple!!!

ps rvtoulon pourquoi tu enleves ton code ???

en complement on peut aussi ajouter un code dans ce style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not TextBox1 Like "##/##/####" Then
        MsgBox "entrez  au format jj/mm/aaaa"
        TextBox1 = "": Cancel = True
  End If
End Sub

[manime]

Merci pour vos réponses, je vais essayer avec ca !!!
a+

[casavba]

Bonjour,

La meilleure solution, à mon avis, que l'on puisse donné à ce problème est d'insérer un calendrier de telles sortes que l'utilisateur choisis sa date dans ce dit calendrier. une fois le choix fait, la date s'affiche dans la textbox.

De cette manière on évite les erreurs et on réduit les lignes de codes.

Cdt

[kiki29]

Salut, voir http://excel.developpez.com/faq/?pag...nstallMSCOMCT2