Sub Message()
msg = "Voulez-vous continuer ?"

' Définit le message.

Style = vbYesNo + vbDefaultButton1

'Définit les boutons.

Title = "Bonjour !"

' Définit les titres.

Réponse = MsgBox(msg, Style, Title)
If Réponse = vbYes Then

' Vous avez choisi le bouton « Oui ».

Set MaSélection = Application.ActiveCell
MaSélection.Value = 100
Else

'Vous avez choisi le bouton Non.

Range("A1:b2").Select ' Accomplit une autre chose.
End If
End Sub

Inscrit un message dans la barre d'état pendant l'exécution d'une macro

Sub MsgBarreEtat()
barreEtatEnregistrée = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Création du tarif catalogue.....Veuillez patienter, SVP....."

'....exécution d'une macro (généralement long).....

Application.Wait Now + TimeValue("00:00:04")
Application.StatusBar = False
Application.DisplayStatusBar = barreEtatEnregistrée
End Sub

Donne l'heure

Sub MsgHeure()
mheure = Time
MsgBox ("Il est: " & mheure)
End Sub

Quelques trucs sur les boutons des messages

'Indique un message d'information

Sub msg1()
MsgBox "Test MSG1", vbInformation, "Information fichier"
End Sub

'Idem avec la valeur 64

Sub msg11()
MsgBox "Test MSG11", 64, "Information fichier"
End Sub

'Indique un message d'exclamation

Sub msg2()
MsgBox "Test MSG2", vbExclamation, "Information fichier"
End Sub

'Idem avec la valeur 48

Sub msg22()
MsgBox "Test MSG22", 48, "Information fichier"
End Sub

'En plus clair

Sub msg3()
MsgBox prompt:="Il est l'heure de votre RDV", _
Buttons:=vbExclamation, Title:="ATTENTION"
End Sub

Tableau des valeurs renvoyées

Comment faire un saut de ligne ?

Sub msg3()
MsgBox "Après ceci... " & Chr(13) & "un saut de ligne"

'ou bien avec la constante

'Quelques constantes