Formatage du texte dans un MSGBOX

Accueil – Le CFO masqué Forums VBA Formatage du texte dans un MSGBOX

  • Ce sujet contient 4 réponses, 2 participants et a été mis à jour pour la dernière fois par MLagrange, le il y a 1 semaine et 1 jour.
5 sujets de 1 à 5 (sur un total de 5)
  • Auteur
    Articles
  • #122438
    MLagrange
    Participant

    Bonjour,

    Dans un test de validation, j’ai la procédure suivante :

    if ligne = limD then
    MsgBox (“VALIDATION COMPLÉTÉE AVEC SUCCÈS”)
    Else
    Exit Sub
    End if

    J’aimerais modifier la police dans le MsgBox pour que le texte s’affiche :
    1- en Comic Sans MS 20
    2- pendant deux secondes avant de passer à l’étape suivante.

    Comment devrais-je procéder ?

    Je suis en version Microsoft 365, avec version VBA 7.1.

    Merci.
    Michel Lagrange

    #122460
    Stéphane Lorin
    Participant

    Bonjour
    Il me semble qu’il n’est pas possible de modifier la police d’un MsgBox
    Mais vous pouvez piloter par macro une étiquette (contrôle ActiveX du menu développeur) ou une zone de texte (du menu insertion) ou encore insérer un UserForm dans VBA.

    Stéphane

    #122474
    MLagrange
    Participant

    Merci beaucoup pour la réponse.
    Pouvez-vous m’aider pour la question 2 : Le MSGBOX étant surtout à caractère informatif, j’aimerais que le message s’affiche temporairement environ 2 ou 3 secondes puis s’éteigne.

    Pour votre information, j’ai modifié la procédure :

    if LimI = LimS then
    MsgBox (“VALIDATION COM-PLÉTÉE AVEC SUCCÈS !”)
    Else
    Msgbox (“ÉCHEC DE LA VALIDATION !”)
    Exit Sub
    End if

    #122505
    Stéphane Lorin
    Participant

    Bonjour

    Exemple avec un UserForm dans VBA.
    Attention, il faut mettre sa propriété ShowModal à False

    If … Then
    UserForm1.Show
    Application.Wait (Now + TimeValue(“00:00:02”))
    UserForm1.Hide

    Stéphane

    • Cette réponse a été modifiée le il y a 1 semaine et 1 jour par Stéphane Lorin.
    #122507
    MLagrange
    Participant

    Merci.

5 sujets de 1 à 5 (sur un total de 5)
  • Vous devez être connecté pour répondre à ce sujet.