Discussion :

[FouJP]

Bonjour,
J'ai une variable de type date qui s'affiche dans une comboBox (userform).
Le format d'affichage est le suivant 01/04/2012
Par création de liste (ComboBox) à partir de données sous Excel

Code :

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

1
2
        SDate = FormatDateTime(Sheets(NomFeuille).Cells(3, numcol + I).Value, vbShortDate)
        MoisRef706.AddItem SDate

Je souhaierai pouvoir afficher "avr.-12" à la place de "01/04/2012".
Auriez-vous une bonne recette ?

Merci par avance

[BlueMonkey]

Bonjour,

Je souhaiterais pouvoir afficher "avr.-12" à la place de "01/14/2012".

Avec : Format(<la date>, "mmm.-yy").

Code :

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

SDate = Format(Sheets(NomFeuille).Cells(3, numcol + I).Value, "mmm.-yy")

[FouJP]

Bonjour,



Avec : Format(<la date>, "mmm.-yy").

Code :

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

SDate = Format(Sheets(NomFeuille).Cells(3, numcol + I).Value, "mmm.-yy")

C'set pas mieux, le système prend les dates en entrée au format US.
12/04/2012 au lieu de la bonne valeur qui est 01/04/2012
Ce que j'avais déjà essayé avec

Code :

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

1
2
3
Private Sub MoisRefSCF_Change()
    MoisRefSCF.Text = Format(MoisRefSCF.Value, "mmm-yy")
End Sub

[BlueMonkey]

Bonsoir,

C'est assez étrange.
Lorsque en <A1> vaut "12/04/2012" ou "1/04/2012",

Code :

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

Call MsgBox("Date = " & Format(Cells(1, 1).Value, "mmm.yy"))

le code affiche "avr. 12" chez moi. (XLS2003)

Peut être lié aux paramètres régionaux.
Sinon en faisant un décodage de la chaîne de caractères en repérant les "/",
(avec la fonction split par exemple),
puis en recontruisant la date en inversant le premier et 2ème champs.

[gFZT82]

Bonsoir,

J’ai fait ce petit test avec un Userform, 2 Textbox et 1 CommandButton.

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
    TextBox1 = FormatDateTime(Now, vbShortDate)
    TextBox2 = Format(Now, "mmm.-yy")
End Sub 
Private Sub CommandButton1_Click()
    Range("A1") = CDate(TextBox1)
    Range("A2") = CDate(TextBox2)
End Sub

L’affichage est correct dans la Textbox1 et la cellule A1 (19/07/2012).
L’affichage est correct dans la Textbox2 (juil.-12) mais dans la cellule A2 on obtient 12/07/2012, ce qui ne me surprend pas puisqu’on demande à Excel d’inventer le jour qui correspond à la date "mmm.-yy".

Cordialement.