Saisie ce type de format date dans userform

[ianis]

Bonjour à tous,

Je souhaiterais avoir ce type de format date dans mon userform : dd/mm/ yyyy pour chaque saisie.
Cependant je souhaiterais que lorsque la personne saisira les 2 premiers chiffres il apparaisse automatiquement le / puis après les 2 autres chiffres de nouveau automatiquement /. Bien entendu il faut que cette saisie reconnue comme un format date.
Est-il possible SVP de faire ceci à l'aide de VBA.?


Merci de votre précieuse aide

Ianis

 

[Pierrot93]

Re : Saisie ce type de format date dans userform

Bonjour Ianis

pour mettre les "/", essaye comme ci dessous :

Private Sub InvDat_Change()
    If Len(InvDat) = 2 Or Len(InvDat) = 5 Then _
        InvDat = InvDat & "/"
End Sub

bon après midi
@+

 

[ianis]

Re : Saisie ce type de format date dans userform

Merci Pierrot !
Je vais essayer ton code.
A plus .
Ianis

 

[jp14]

Re : Saisie ce type de format date dans userform

Bonjour
Bonjour Pierrot93

En utilisant éventuellement le code ci dessous

Private Sub InvDat_Change()
If Len(InvDat.Value) = 1 And InvDat.Value > 3 Then InvDat.Value = 0 & InvDat.Value
If Len(InvDat.Value) = 2 Then InvDat.Value = InvDat.Value & "/"
If Len(InvDat.Value) = 5 Then InvDat.Value = InvDat.Value & "/"
End Sub

Mais comment faire pour détecter une date comme 1/2/2008 ?
Le plus simple serait d'utiliser le contrôle DTPicker la personne qui saisie sélectionne une date.

JP

 

[ianis]

Re : Saisie ce type de format date dans userform

Bonjour JP

Merci de votre réponse.
Effectivement vous avez raison je vais utiliser le contrôle DTPicker cela évitera les erreurs de date.

A bientôt et à plus sur le forum