Les dates avec un userform

[salamanko]

Salut les Exceliens, bonjours à tous

Une interrogation,

Est’il possible de paramétré dans un USF une zone de texte qui contienne déjà les barres de séparation du type JJ / MM / AA afin de saisir que les chiffres ?

Si votre réponse est positive, quelle en n’est la procédure?

Merci pour votre réponse

 

[CBernardT]

Re : Les dates avec un userform

Bonsoir Salamanko,

Un exemple avec deux macros :

1- Pour éviter d'avoir à saisir les / :
Private Sub Tbdate_Change()
Dim Texte As String
Texte = Tbdate
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "/"
End Select
Tbdate = Texte
End Sub
2- Pour vérifier que la saisie est bien une date en sortie :
Private Sub Tbdate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(Tbdate) Then
Tbdate = Format(Tbdate, "dd/mm/yyyy")
Else
Tbdate = ""
End If
End Sub

Cordialement

Bernard

 

[ccpapy]

Re : Les dates avec un userform

bonjour, regarde si ça convient
à+

 

[salamanko]

Re : Les dates avec un userform

Mieux que chez Darty,
Livraison à domicile,
et cela fonctionne très bien

Merci

j'ai autre probleme, je le soumet sur le forum aux Experts de Miami que vous etes.