Icône de la ressource

collection fausse boite de dialogue (Patricktoulon) episode 3 un vrai faux msgbox personalisable 1.2

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
Capture.JPG



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
vue du résultat
Capture.JPG
Auteur
patricktoulon
Version
1.1
  • J'aime
Réactions: bambi

Dernières mises à jour

  1. correction sur le texte alignement et ajout de la possibilité de mettre des boutons perso

    Bonjour a tous j'ai corrigé un bug bloquant provoqué par le text alignement j'ai ajouté la...
Haut Bas