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)
Private Sub UserForm_Initialize()
Me.Label1.Caption = UCase(Mid(Format(Date, "mmmm"), 1, 1)) & Mid(Format(Date, "mmmm"), 2)
End Sub
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)
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é.Bonjour CP4,
Une solution :
Donc dans l'userform cela donne :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)
Code:Private Sub UserForm_Initialize() Me.Label1.Caption = UCase(Mid(Format(Date, "mmmm"), 1, 1)) & Mid(Format(Date, "mmmm"), 2) End Sub