Option Explicit
'---------------------------------------------------------------------------------------
' Author : Didier FOURGEOT (myDearFriend!) - [URL="http://www.mdf-xlpages.com"]mon Univers Excel... : myDearFriend! Excel Pages[/URL]
' Date : 12/12/2008
' Topic : mDF MsgBoxPerso et boutons personnalisés v1.2
'---------------------------------------------------------------------------------------
' Exemples d'utilisation de la mDF MsgBoxPerso
'
Sub TestMsgBoxPerso()
Dim vRet As Integer
Dim N As Byte
Const T1 As String = "ATTENTION"
Const T2 As String = "/1)"
N = 1
vRet = MsgBoxPerso("AVERTISSEMENT AVANT L'EXPLOSION !" & vbLf & "___________________________________" & vbLf & "" & vbLf & "Votre planning est bien vérifié ? Complet ?" & vbLf & vbLf & " C'est sur ? Vraiment ?" & vbLf & vbLf & " Et hop ! on clique sur 'Valider'", T1 & N & T2, vInformation, "Quitter|Valider|Se droguer")
If vRet = 2 Then Call LancerMOISCOURANT
End Sub
Sub TestMsgBoxPerso1()
Dim vRet As Integer
Dim N As Byte
Const T1 As String = "ATTENTION"
Const T2 As String = "/1)"
N = 1
vRet = MsgBoxPerso("AVERTISSEMENT AVANT L'EXTASE !" & vbLf & "___________________________________" & vbLf & " " & vbLf & " Bien réveillé(e) ?" & vbLf & " Vraiment ?" & vbLf & vbLf & "ATTENTION : à ne lancer qu'une fois pas mois traité !" & vbLf & vbLf & " Alors on sauvegarde sous le nom du mois traité" & vbLf & " Allé, on commence ! Cliquez sur 'Valider'" & vbLf & vbLf & "En Tunisie : Goutez la tarte à l'oignon du chef !", T1 & N & T2, vInformation, "Quitter|Valider|S'endormir")
If vRet = 2 Then Call EnregistrerSous
End Sub