BOÎTES DE DIALOGUE STANDARDISÉES

'Module de manipulation de boîtes de messages
'____________________________________________
'
'© Jacques PRESTREAU, 1999
'
Option Explicit

Function Message_Confirmez(Libellé As String) As Integer

Message_Confirmez = MsgBox(Libellé, vbQuestion + vbYesNo, "Veuillez confirmer...")

End Function

Sub Message_Erreur(Libellé As String)
   
MsgBox Libellé, vbCritical, "Erreur"

End Sub

Sub Message_Info_Action_Terminée(Libellé As String)

MsgBox Libellé, vbInformation, "Terminé"

End Sub

Sub Message_Info_importante(Libellé As String)

MsgBox Libellé, vbExclamation, "Remarque importante !"

End Sub

Function Message_Question(Libellé As String) As Integer

Message_Question = MsgBox(Libellé, vbQuestion + vbYesNo, "Veuillez préciser...")

End Function

Sub Message_Info_tres_importante(Libellé As String)

Beep
MsgBox Libellé, vbExclamation, "REMARQUE TRES IMPORTANTE"

End Sub