VBA Forcer une date au format JJ/MM/AAAA dans une cellule

Bonjour,

Je cherche une formule pour mettre sous : Private Sub Worksheet_Change(ByVal Target As Range)

qui pour la cellule D8 et D10 transforme automatiquement le

JJMMAAAA en JJ/MM/AAAA

L'utilisateur qui taperait par exemple 07012015 se transforme automatiquement en 07/01/2015.

Le format de ma cellule est en date *14/03/2001

Une idée SVP.

Merci d'avance.

Bonsoir,

Tu passes par un un userforme ou pas .

Si c'est un userform donc exp: dans ta textbox1 tu tapes

Private Sub TextBox1_Change()

'Code permettant de mettre une date au format 00/00/0000 dans une textbox

Dim valeur As Byte

TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox

valeur = Len(TextBox1)

If valeur = 2 Or valeur = 5 Then TextBox1 = TextBox1 & "/"

End Sub

Bonjour. Merci pour ton aide.

Hélas ce n'est un userform.

Mais en tout cas ça me servira.

Merci.

Bonjour,

Si ton objectif est de contrôler la saisie des utilisateurs ... pourquoi ne pas utiliser la validation des données ....Dates ...

C'est vrai je n'y ai pas songé

Mais je ne dois pas me mettre en format texte sur la cellule D8 et D10 ?

Et inverser en VBA par mm/dd/YYYY

comme c'est un language Anglo saxon.

Re,

Concernant le format, il faut simplement que tu appliques le format que tu désires dans la cellule qui contient la validation ...