XL 2016 Liste des noms de mois

[TURKEY]

Pour la lune = EoMonth + 1 To EoMonth + 12
Me.ComboBox2.AddItem Mois
Le mois prochain

J'ai besoin d'un code qui ne peut pas aimer les mois 1, 2, 3, mais comme janvier, février et mars. Pouvez-vous m'aider si je demande

 

[ChTi160]

BonjourTURKEY
Je pense que tu devrais mettre un fichier exemple de ce que tu as et ce que tu veux.
Jean marie

 

[TURKEY]

cher jean marie
Le fichier est joint pour votre information.
-------------------------------------------------- ----------
Je souhaite importer les noms de mois dans la combobox2 sous forme de noms plutôt que de nombres
Pas comme 1,2,3, comme janvier février mars donc

 

[sylvanu]

Bonjour Turkey,ChTi,
Avec une simple macro :

Sub Mois()
For i = 1 To 12
    Cells(i, 1) = i
    Cells(i, 2) = Format("1/" & i & "/2020", "mmmm")
Next i
End Sub

Le mois en lettres se récupère par :

 Format("1/" & i & "/2020", "mmmm")

 

[TURKEY]

Cher Sylvanu
Merci de votre aide.

Comment pouvons-nous lier ce code dans combobox2?

 

[sylvanu]

Avez vous au moins ouvert le fichier que j'ai envoyé ? 😡
Le Combobox2 est déjà rempli.

Private Sub UserForm_Initialize()
For Ay = 1 To 12
    Me.ComboBox2.AddItem Format("1/" & Ay & "/2020", "mmmm")
Next Ay
End Sub

En cadeau, avec des valeurs affichées par défaut :

Private Sub UserForm_Initialize()
' Years
For Ay = 2020 To 2030
    Me.ComboBox1.AddItem Ay
Next Ay
' Months
For Ay = 1 To 12
    Me.ComboBox2.AddItem Format("1/" & Ay & "/2020", "mmmm")
Next Ay
' Default value
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
End Sub

 

[TURKEY]

Merci beaucoup. Merci

 

[ChTi160]

Bonsoir TURKEY
Bonsoir sylvanu ,le Forum
Ma contribution (rien a voir mais bon !)
jean marie

 

[TURKEY]

La santé entre vos mains. Merci beaucoup.

 

[ChTi160]

Re
merci Lol
reste des petits problèmes de Coloration de ComboBox (en fonction de la Période) mais Bon !
jean marie

 

[job75]

Bonjour TURKEY, salut sylvanu, ChTi160,

Au cas où vous ne connaîtriez pas la méthode List :

Sub Düðme1_Týkla()
[A1:A12] = "=ROW()"
[B1:B12] = "=PROPER(TEXT(""1/""&RC[-1],""mmmm""))"
With UserForm2
    .ComboBox1.List = [A1:A12].Value
    .ComboBox2.List = [B1:B12].Value
    .Show
End With
End Sub

A+

 

[sylvanu]

Bonsoir Job,
[A1:A12] et [B1:B12] n'existent pas dans le fichier de Turkey.
Je les ai créé pour illustrer le format mois en lettres.

 

[ChTi160]

Bonsoir job
mdr !
jean marie