Ajouter une date format mm/aa dans une cellule a partir d"une textbox

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:

---

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:

---

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:

---

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

Code:

---

"'" & Format(TextBoxFinPro.Value, "MM/YY")

---

Bonjour,

Merci de ta réponse, je n'avais pas pensé à cela, c'est une bonne idée.

Ce que j'ai utilisé pour résoudre ce problème :

Code:

---

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("01/" & TextBoxFinPro.Value, "MM/YYYY") End If End If

---

puis lors de la récupération de la valeur de la cellule dans la textbox :

Code:

---

TextBoxFinPro.Value = Format(Range("D" & l).Value, "MM/YY")

---

Cordialement,
Ltspitfire