Format date (oct-10) liste déroulante

[Everlast03]

Bonjour,

Comme l'indique le titre de mon post je souhaiterai pouvoir obtenir une liste déroulante (ComboBox) dans laquelle seraient présent les différents mois de l'années.

Ex : Jan-10 / Fev-10 / Mars-10 ....

Pour l'instant je n'arrive qu'à obtenir des valeurs du type : 01/01/2010 ...

Merci d'avance 🙄

 

[joss56]

Re : Format date (oct-10) liste déroulante

Bonjour le forum, Everlast

Comme ça peut-être?
Dis nous.

Bonne journée

Jocelyn

 

[Pierrot93]

Re : Format date (oct-10) liste déroulante

Bonjour,

une autre solutaion ainsi :

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 12
    ComboBox1.AddItem MonthName(i, True) & "-" & Format(Date, "yy")
Next i
End Sub

bonne journée
@+

 

[Everlast03]

Re : Format date (oct-10) liste déroulante

Bonjour à tous,

Merci pour vos réponses mais ça ne correspond pas vraiment à ce que j'attend, voyez la pièce jointe.

Cordialement 😱

 

[Dull]

Re : Format date (oct-10) liste déroulante

Salut Evelast, Pierrot🙂, Joss🙂, le Forum

Je me doutait qu'il s'agissait de Combobox sur la Feuille

essaye ça mais tu aurais pu t'inspirer du Code de Pierrot🙂

Private Sub ComboBox3_Change()
ComboBox3 = [B]Format(ComboBox3, "mmm-yy")[/B]
Range("A50") = CDate(ComboBox3.Value)
End Sub

Bonne Journée

 

[hoerwind]

Re : Format date (oct-10) liste déroulante

Bonjour, salut les autres,

Par le menu Données - Validation cela ne pose aucun problème, vois le pièce jointe.

 

[Everlast03]

Re : Format date (oct-10) liste déroulante

Super ! J'ai utilisé le code :

Private Sub ComboBox3_Change()
ComboBox3 = Format(ComboBox3, "mmm-yy")
Range("A50") = CDate(ComboBox3.Value)
End Sub

Merci à tous 😀