bonjour a tous
dans la lignée de ma collection de boite de dialogue responsive avec Userform je vous propose aujourd'hui le msgbox perso je l'ai un peu mis a jour
et toujours pareil comme le CALENDRIER il suffit d'importer le userform dans votre projet (tout est dedans )
des exemples d'appel en mode message ou responsif sont dans le module dans l'exemple joint
par rapport aux icons j'ai du utiliser des api windows mais rassurez vous elle sont utilisées avec executeExcel4macro et ne nécessitent aucune déclaration donc compatibles (32/64 bits)
' tout les styles de base d'un msgbox sont possibles:
'vbYesNo
'vbOKOnly
'vbOKCancel
'vbAbortRetryIgnore
'vbYesNoCancel
'vbRetryCancel
'
' les icons dispos
'vbCritical
'vbQuestion
'vbExclamation
'vbInformation
possibilités pour le texte
bold
italic
underline
couleur de texte
font name
alignement de texte
le fond du texte en couleur
le fond du userform en couleur
vue de la base du userform
exemple d'appel en mode responsif
tout les Arguments sont optionels sauf le texte du message bien entendu
vue du résultat
dans la lignée de ma collection de boite de dialogue responsive avec Userform je vous propose aujourd'hui le msgbox perso je l'ai un peu mis a jour
et toujours pareil comme le CALENDRIER il suffit d'importer le userform dans votre projet (tout est dedans )
des exemples d'appel en mode message ou responsif sont dans le module dans l'exemple joint
par rapport aux icons j'ai du utiliser des api windows mais rassurez vous elle sont utilisées avec executeExcel4macro et ne nécessitent aucune déclaration donc compatibles (32/64 bits)
' tout les styles de base d'un msgbox sont possibles:
'vbYesNo
'vbOKOnly
'vbOKCancel
'vbAbortRetryIgnore
'vbYesNoCancel
'vbRetryCancel
'
' les icons dispos
'vbCritical
'vbQuestion
'vbExclamation
'vbInformation
possibilités pour le texte
bold
italic
underline
couleur de texte
font name
alignement de texte
le fond du texte en couleur
le fond du userform en couleur
vue de la base du userform
exemple d'appel en mode responsif
tout les Arguments sont optionels sauf le texte du message bien entendu
VB:
Sub test()
X = MsgBoxX.ValueX(vbCrLf & "bonjour les XLdiens ", vbYesNo, "test message", "Algerian", True, True, True, xlCenter, vbYellow, 33, 3, vbInformation)
If X = vbYes Then
MsgBox "vous avez repondu ""oui"""
Else: MsgBox "vous avez repondu ""non"""
End If
End Sub
- Auteur
- patricktoulon
- Version
- 1.1