Bonjour

[cartouche]

J'ai créer un classeur sur Excel concernant le suivi de la facturation, j'aurais voulu savoir concernant la date de cette dernière s'il été possible de faire un masque de saisie comme Access pour la date. En gros qu'il affiche les / Tous seul.
Est-ce possible?
Merci

 

[Lagache]

Re : Bonjour

Salut Cartouche

Essaie cela , à placer dans le code de l'Userform

Private Sub TextBox1_Change()
Dim Val As Byte
Dim journee As Date
journee = Now
TextBox1.Value = Format(Now, "dd/mm/yyyy")
' autre formule à adapter selon cas -
TextBox1.MaxLength = 10
Val = Len(TextBox1)
If Val = 2 Then TextBox1 = TextBox1 & "/"
If Val = 5 Then TextBox1 = TextBox1 & "/"
End Sub

@+

 

[Pierrot93]

Re : Bonjour

Bonjour Cartouche, Lagache

Attention "Val" est déjà une fonction existante dans VBA, il n'est pas souhaitable d'utiliser les mots réservés VBA, comme variable...

Bonne journée
@+

 

[Lagache]

Re : Bonjour

Salut Pierrot

Autant pour moi et merci à toi Pierrot, on en apprends toujours un peu plus!

@+

 

[Dull]

Re : Bonjour

Salut cartouche, Lagache, Pierrot le Forum,


Ou se trouve cette date?
Si dans une cellule
Click droit sur ta cellule
Format de cellule
Date et Choisi ton Format

Par VBA
si la date est en C7 Par exemple

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("C7")) Is Nothing Then Exit Sub
Range("C7").Value = Format(Range("C7"), "dd/mm/yyyy")
End Sub

Si dans un Userform

Exemple dans TextBox1

Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Format(TextBox1, "dd/mm/yyyy")
End Sub

Si j'ai bien compris
Bonne Journée