Masque saisie date pour Textbox

[NRZvba]

Bonjour

Il est possible de faire s'afficher dans un userform
une textbox (devant recevoir une date) qui contiendrait déjà
les deux /
On saisit les deux chiffres du jour (chiffres autorisés: 01 à 31) et hop
le curseur se place derrière le 1er /
puis on saisit les deux chiffres du mois (chiffres autorisés: 01 à 12)
et le curseur se place alors derrière le 2ème /
enfin on saisit les quatre chiffres de l'année.

Je seche la dessus.

Qui a une idée? Merci à ceux qui pourront m'aider

NRZVba

 

[Robert]

Salut NRZVba, salut le forum,

En pièce jointe une bidouille qui ressemble à ce que tu demandes.

À plus,

Robert

 

[Eric C]

Bonjour le forum
Bonjour NRZVba & Robert

Très fine ta subtilité Robert. Je joint le code que j'utilise et dont le papa n'est autre que l'EXCELlent Ti que je salue au passage (Pour l'année saisir par ex 04 pour obtenir ==> 2004). NRZVba pourra l'améliorer pour interdire les valeurs non autorisées.

Private Sub TextDate_Change()
Dim Texte As String
Texte = TextDate.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "/"
End Select
TextDate.Text = Texte
End Sub
Private Sub TextDate_Enter()
TextDate.Text = ""
End Sub

Private Sub TextDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextDate.Text) Then
TextDate.Text = Format(TextDate.Text, "dd/mm/yyyy")
Else
TextDate.Text = ""
End If
End Sub

Bon dimanche
@ ++ Eric C