Taille' de police dans un message

Bonjour à tous,

Je viens à nouveau solliciter votre savoir, pour modifier la police dans un Msg,

j'ai penser passer par un UserForm, mais je bloque sur la procédure.

Merci de jeter un œil sur ce msg

Voici le code à écrire dans le classeur

Private Sub Workbook_open()

' UserForm5.Show

MsgBox ("Bonne journée !" & Chr(10) & "Nous sommes le " & Format(Date, "dddd d mmmm yyyy"))

End Sub

Je souhaite que le msg s'affiche sur l'UserFom5.

Un grand merci à tous

Papy Pierrot

Bonjour,

tu peu mettre un label sur le userform5:

Private Sub UserForm5_Initialize()
Me.Label1.Caption = "Bonne journée! " & Chr(10) & "Nous sommes le " & Format(Date, "dddd d mmmm yyyy")
End Sub

la police du label est donc modifiable

Salut, Zongo 86

C'est exactement ce qu'il m' fallait, un tout grand merci

Papy Pierrot

Cher Zongo 86,

Je n'arrive pas à clôturer ce message .

Je te joins un fichier exemple pour insérer le message dans un UserForm existant qui s'ouvre automatiquement

Amicalement,

Papy Pierrot

Bonjour,

Private Sub UserForm_Initialize()
'excuse, userform simple sans le numéro
Me.Label1.Caption = "Bonne journée! " & Chr(10) & "Nous sommes le " & Format(Date, "dddd d mmmm yyyy")
End Sub

Cher Zongo 86

merci énormément, c'est parfait

a charge de revanche

Amicalement

Papy Pierrot