- '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
-
'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