XL 2010 Mois en lettre dans label

[cp4]

Bonsoir,

C'est peut-être simple à trouver. Cependant, moi je sèche dessus depuis un moment.
Et, toutes mes recherches sont restées vaines.
Merci d'avance pour le coup de main.

Bonne soirée.

 

[sylvanu]

Bonjour CP4,
Une solution :

Tout minuscules :
Me.Label1.Caption = Format(Date, "mmmm")
Idem mais première lettre majuscule :
Me.Label1.Caption = UCase(Mid(Format(Date, "mmmm"), 1, 1)) & Mid(Format(Date, "mmmm"), 2)

Donc dans l'userform cela donne :

Private Sub UserForm_Initialize()
Me.Label1.Caption = UCase(Mid(Format(Date, "mmmm"), 1, 1)) & Mid(Format(Date, "mmmm"), 2)
End Sub

 

[cp4]

Bonjour CP4,
Une solution :

Tout minuscules :
Me.Label1.Caption = Format(Date, "mmmm")
Idem mais première lettre majuscule :
Me.Label1.Caption = UCase(Mid(Format(Date, "mmmm"), 1, 1)) & Mid(Format(Date, "mmmm"), 2)

Donc dans l'userform cela donne :

Private Sub UserForm_Initialize()
Me.Label1.Caption = UCase(Mid(Format(Date, "mmmm"), 1, 1)) & Mid(Format(Date, "mmmm"), 2)
End Sub

Merci beaucoup Sylvanu, je n'ai décelé la subtilité.
Je suis resté bloqué sur Format(Month(Date), "mmm") qui me renvoyait "janv" (pour date=23/10/2020).
Encore merci.
Bonne soirée.