Formater Variable Date dans Userform

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:

---

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

Bonjour,

Citation:

---

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

---

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

Code:

---

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

---

Citation:

---

Envoyé par BlueMonkey

Bonjour,



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

Code:

---

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:

---

1 2 3

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

---

Bonsoir,

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

Code:

---

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.

Bonsoir,

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

Code:

---

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.