Bonjour,

Voici mon problème :

J'ai une userform avec une textbox dans laquel l'utilisateur doit entrer une date dans le format mois/ans ( soit mm/aa soit mm/aaaa)
Lorsque je récupère la date je la fait passer dans la fonction suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
If TextBoxFinPro.Value <> "" Then
        If Not IsDate(TextBoxFinPro.Value) Then
            MsgBox "Date incorrecte.", vbCritical + vbOKOnly, "Erreur"
            TextBoxFinPro.Value = ""
            TextBoxFinPro.SetFocus
            Exit Sub
        Else
            TextBoxFinPro.Value = Format(TextBoxFinPro.Value, "MM/YYYY")
        End If
End If
Cependant,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Format(TextBoxFinPro.Value, "MM/YYYY")
transforme la date mm/aa en format jj/mm/2014.
Lorsque l'utilisateur entre la date en format mm/aaaa il n'y a pas de soucis.

J'ai essayé avec :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Format(TextBoxFinPro.Value, "MM/YY")
Ca ne marche pas non plus.

De plus la cellule dans laquel j'écris le résultat est au format mm/aa donc même en enlevant la ligne "Format", la date n'apparait pas dans le format que je souhaite.

Merci d'avance pour toute aide.
Ltspitfire