Mise en forme du texte dans messagebox excel Vba

J'ai mis en place une solution aussi complète que possible, et a passé un effort considérable pour elle. Lors du transfert de clsFmsgBox, frmFmsgBox, et modFmsgBox de FmsgBox.xlsm Classeur le code ci-dessous conduit à ce type de boîte de message peut être géré avec un niveau comparable, peu d'effort. Le Classeur ci-dessus fournit des exemples de code.

 With cFmsgBox
    .Title = "Message Box supporting formatted text. Example 1"
    .Msg = "This is the first " & _
     .b("Test ") & "message spanning over several lines and paragraphs. The default margins, spaces, and font size had been used. " & _
                   "No need to say that the form width had been adjusted manually in order to have an optimum appearance." & _
     .Lf & _
     .Lf & "The formats " & _
     .b("bold") & ", " & _
     .u("underline") & ", and " & _
     .i("italic ") & "and may be combined with any of the colours " & _
     .b(.i(.u(.red("red")))) & ", " & _
     .b(.i(.u(.blue("blue")))) & ", and " & _
     .b(.i(.u(.green("green")))) & "." & _
     .Lf & .Lf & _
           "5 different links may be included in the message text, either in the full form like " & _
     .link("www.google.com") & " or with a friendly name like " & .link("www.google.com", "google.com") & ", which masks the url behind it." & _
     .Lf & _
     .Lf & _
        "Also it shows 2 of the 6 possible reply buttons and that they may contain any text. Since the number of lines is maximized to 3 their width will be adjusted " & _
        "automatically - but will remain the same for all buttons. The string returned by the display call is identical with the string of the clicked reply button."

    .Reply1 = "Click this reply to continue with the next example"
    .Reply2 = "Click this reply to finish with the Message Box solution's features"
    .Dsply 318

    If .Reply = .Reply1 Then Example2
End With

Le message est affiché dans un UserForm avec créé dynamiquement des étiquettes pour chaque formatage de chaîne de texte et de créer dynamiquement (jusqu'à 6) boutons de commande. La clé de la mise en forme des messages sont les propriétés de format .b("xxx") pour le gras .j'("xxx") pour l'italique et ainsi de suite, qui peuvent tous être imbriquées comme .b(.j'("xxx")) pour obtenir une italique,le texte en gras par exemple.

Alternativement, au lieu d'un concatenaed chaîne le texte du message peut être fourni avec RTF/HTML comme les balises de formatage de laquelle l'ouverture/fermeture de la Balise de caractères par défaut {}, mais peut aussi bien être changé en <>. À titre d'exemple: "{b}gras{/b) {i}italique{/i}." s'affiche: gras italique.

OriginalL'auteur Walter Rauschenberger

Je vous conseille d'utiliser un "userform". Titre de votre projet VBA dans l'éditeur VBA, cliquez droit et sélectionnez "insérer /userform" (ou utiliser le menu "insertion /objet userform")

À partir de là, vous verrez un certain nombre de contrôles ActiveX dans une "boîte à outils" (ou cliquez sur "affichage/boîte à outils") qui peuvent vous aider à construire ce que vous êtes après: on dirait que vous êtes après une "zone de liste", vous devriez le trouver dans la boîte à outils (passez la souris sur les éléments et les "listbox" apparaît dans une info-bulle)

Avec votre zone de liste sélectionné, vous pouvez définir le nombre de colonnes, plus la largeur des colonnes dans la fenêtre de propriétés (cliquez sur "afficher/propriétés de la fenêtre" si vous ne pouvez pas le voir)

Voir comment vous allez, beaucoup de bonnes infos sur le web sur VBA userform et zones de liste ou heureux de répondre à plus de questions.

Acclamations, Si

[MODIFIER] Viens de penser à quelque code que j'ai qui devrait vous obtenir a commencé (à partir d'un petit outil que j'ai écrit pour activer Office 2010 références à Office 2003 références): dans mon code principal module je viens de l':

Sub FixReferences() 'Ctrl-Shift-F

    ufWorkbooks.Show

    If ufWorkbooks.blCancel = False Then
        With ufWorkbooks.lbWorkbooks
            For intindex = 0 To .ListCount - 1
                If .Selected(intindex) Then
                    SwapReferences Workbooks(.List(intindex))
                End If
            Next
        End With
    End If
End Sub

Cette charge mon userform (appelé ufWorkbooks) dans la ligne ufWorkbooks.Spectacle. L'exécution passe à qui se font à ce point: lors de l'exécution de revient, une variable de la forme est vérifié pour voir si la résiliation a été poussé, alors vous pouvez voir que j'ai une fonction sur chaque élément de ma liste sur le formulaire appelé "lbWorkbooks". Le code dans mon userform ressemble à ceci:

Public blCancel As Boolean

Private Sub cbCancel_Click()
    blCancel = True
    Me.Hide
End Sub

Private Sub cbOK_Click()
    Me.Hide
End Sub

Private Sub UserForm_Activate()
    blCancel = False

    FillWorkbooks
End Sub

Sub FillWorkbooks()
    Dim wbBook As Workbook

    lbWorkbooks.Clear

    For Each wbBook In Workbooks
        lbWorkbooks.AddItem wbBook.Name
    Next

End Sub

Ici vous pouvez le voir, je suis à l'aide de différents "événements" pour déclencher certains morceaux de code. En bas, vous pouvez voir mon "FillWorkbooks" sous est d'abord de compensation de ma listbox (qui ive nommé lbWorkbooks) et puis je suis ajoutant des éléments. C'est bon pour une colonne de listes déroulantes. Dans votre cas, vous pourriez utiliser .AddItem ensuite .Liste(0, 1) = "whatever" (ligne 0 dans la zone de liste, colonne 1). Je ne me souviens pas si AddItem va ajouter une ligne vide au dessus pour vous de référence .Liste(0... ou si vous aurez besoin d'ajouter un compteur .AddItem ensuite .Liste(je...

Alternativement, vous pouvez utiliser la zone de liste.ListFillRange pour utiliser une plage de cellules dans votre feuille de calcul en tant que source de données pour votre listbox.

OriginalL'auteur Simon