XL 2010 Mois en lettre dans label

cp4 · 23 Octobre 2020

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 · 23 Octobre 2020

Bonjour CP4,
Une solution :

Code:

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 :

Code:

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

sylvanu · 23 Octobre 2020

Bonjour CP4,
Une solution :

Code:

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 :

Code:

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

cp4 · 23 Octobre 2020

sylvanu à dit:

Bonjour CP4,
Une solution :

Code:

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 :

Code:

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.

XL 2010 Mois en lettre dans label

cp4

XLDnaute Barbatruc

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires

XL 2010 Mois en lettre dans label

cp4

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency