Discussion :

[Ltspitfire]

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ltspitfire]

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 :

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("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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,
Ltspitfire