Salut,

voilà pour msgbox REM ***** BASIC *****

Sub Main
dim repMsgBox as String
'0 - seulement ok
'1 - ok + annuler
'2 - interromptre + réessayer + annuler
'3 - oui + non + annuler
'4 - oui + non
'5 - réessayer + annuler
'6 - ok

'les icônes
' 0 aucune
' 16 message critique X
' 32 Question ?
' 48 Avertissement !
' 64 Information i

' choix du bouton par défaut
' 0 le premier
' 256 le 2ème
' 512 le dernier

' le type du message c'est la somme de 3 valeurs au choix

'Ex : le type 3 avec question et le 2ème par défaut
' 3 + 32 + 256 = 291
repMsgBox=msgbox("Hello, je suis MsgBox",291)

' ici je récupere le retour de msgbox
msgbox repMsgBox


End Sublami20j