IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Texte HTML vers texte enrichi sur EXCEL


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mars 2025
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : Conseil

    Informations forums :
    Inscription : Mars 2025
    Messages : 4
    Par défaut Texte HTML vers texte enrichi sur EXCEL
    Bonjour à tous,

    Je suis très novice dans le milieu de la programmation HTML.
    Je cherche un remplacer un texte HTML avec balises de la case A1 en texte enrichi sur des cellules fusionnées A4:C4.
    En m'aidant de tout ce que j'ai trouvé en ligne j'ai réussi à transformer les balises pour un saut de ligne et du gras ou italique.
    J'ai quand même une erreur quand il me mets en gras une partie du texte qu'il ne devrait pas
    Et en voulant pousser plus loin en rajoutant du souligné, ou taille/couleur des polices, je n'ai que des messages d'erreur et impossible de m'en dépatouiller.
    Vous trouverez ci-joint mon fichier excel avec seulement le macro pour saut de ligne et gras/italique.
    Si vous pouvez m'aider ce serait vraiment sympa.
    Merci!
    Jon
    Fichiers attachés Fichiers attachés

  2. #2
    Membre à l'essai
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mars 2025
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : Conseil

    Informations forums :
    Inscription : Mars 2025
    Messages : 4
    Par défaut
    Re,
    Comme je me suis inspiré de plein d'information trouvé en ligne, mon programme n'est surement pas très propre et nécessite d’être cleané/modifé/simplifié voir de recommencer d'une page propre.
    N'hésitez pas à me le dire!
    Merci

  3. #3
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  4. #4
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    993
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 993
    Par défaut
    Bonjour, voilà qui devrait t'aider. Cependant il subsiste un problème, nativement VBA ne permet pas de surligner du texte mais uniquement une cellule, je ne vois pas comment contourner le problème, donc j'ai omis la partie surlignage dans le code.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    Sub FormatHTMLInExcel()
        Dim cell As Range
        Set cell = Range("A4")
        cell.Clear
     
        ' Récupérer le texte HTML depuis A1
        html = Range("A1").Value
        If Trim(html) = "" Then
            MsgBox "Veuillez entrer du texte HTML dans A1.", vbExclamation
            Exit Sub
        End If
        ' Pré-traitement : remplacer <br> par vbCrLf et supprimer <p> et </p>
        html = Replace(html, "<br>", vbCrLf)
        Dim regex As Object
        Set regex = CreateObject("VBScript.RegExp")
        regex.Global = True
        regex.IgnoreCase = True
        regex.Pattern = "<p>|</p>"
        html = regex.Replace(html, "")
     
        ' Expression régulière pour capturer balises et texte
        regex.Pattern = "(<b>|</b>|<i>|</i>|<u>|</u>|<font [^>]*>|</font>|<strike>|</strike>)|([^<>]+)"
        Dim matches As Object
        Set matches = regex.Execute(html)
     
        Dim fullText As String
        fullText = ""
        Dim formatRanges As Collection
        Set formatRanges = New Collection
     
        Dim pos As Long
        pos = 1
        Dim isBold As Boolean, isItalic As Boolean, isUnderline As Boolean, isStrike As Boolean
        Dim fontColor As String, fontSize As Long
        Dim startPos As Long
     
        Dim textPart As String, match As Object
        For Each match In matches
            textPart = match.Value
     
            If Left(textPart, 1) = "<" Then
                Select Case LCase(textPart)
                    Case "<b>"
                        isBold = True
                    Case "</b>"
                        isBold = False
                    Case "<i>"
                        isItalic = True
                    Case "</i>"
                        isItalic = False
                    Case "<u>"
                        isUnderline = True
                    Case "</u>"
                        isUnderline = False
                    Case "<strike>"
                        isStrike = True
                    Case "</strike>"
                        isStrike = False
                    Case Else
                        If Left(LCase(textPart), 5) = "<font" Then
                            ' Extraire couleur
                            Dim colorRegex As Object
                            Set colorRegex = CreateObject("VBScript.RegExp")
                            colorRegex.Pattern = "color=[""']?(#[0-9A-Fa-f]{6}|[a-zA-Z]+)[""']?"
                            Dim colorMatch As Object
                            Set colorMatch = colorRegex.Execute(textPart)
                            If colorMatch.Count > 0 Then
                                fontColor = Mid(colorMatch(0).Value, InStr(colorMatch(0).Value, "=") + 1)
                                fontColor = Replace(Replace(fontColor, """", ""), "'", "")
                            End If
                            ' Extraire taille
                            Dim sizeRegex As Object
                            Set sizeRegex = CreateObject("VBScript.RegExp")
                            sizeRegex.Pattern = "size=[""']?([0-7])[""']?"
                            Dim sizeMatch As Object
                            Set sizeMatch = sizeRegex.Execute(textPart)
                            If sizeMatch.Count > 0 Then
                                Dim sizeValue As String
                                sizeValue = Mid(sizeMatch(0).Value, InStr(sizeMatch(0).Value, "=") + 1)
                                sizeValue = Replace(Replace(sizeValue, """", ""), "'", "") ' Supprimer les guillemets
                                fontSize = CInt(sizeValue)
                            End If
                        ElseIf LCase(textPart) = "</font>" Then
                            fontColor = ""
                            fontSize = 0
                        End If
                End Select
            Else
                ' Ajouter le texte à fullText
                fullText = fullText & textPart
                startPos = pos
                pos = pos + Len(textPart)
                ' Enregistrer la mise en forme pour cette portion de texte
                formatRanges.Add Array(startPos, Len(textPart), isBold, isItalic, isUnderline, isStrike, fontColor, fontSize)
            End If
        Next match
     
        ' Insérer tout le texte dans la cellule
        cell.Value = fullText
        cell.WrapText = True
     
        ' Appliquer les mises en forme
        Dim formatRange As Variant
        For Each formatRange In formatRanges
            Dim start As Long, length As Long
            start = formatRange(0)
            length = formatRange(1)
            With cell.Characters(start, length).Font
                .Bold = formatRange(2)
                .Italic = formatRange(3)
                .Underline = IIf(formatRange(4), xlUnderlineStyleSingle, xlUnderlineStyleNone)
                .Strikethrough = formatRange(5)
                If formatRange(6) <> "" Then
                    Select Case LCase(formatRange(6))
                        Case "red"
                            .Color = RGB(255, 0, 0)
                        Case "green"
                            .Color = RGB(0, 128, 0)
                        Case "blue"
                            .Color = RGB(0, 112, 198)
                        Case "black"
                            .Color = RGB(0, 0, 0)
                        Case "yellow"
                            .Color = RGB(255, 255, 0)
                        ' Ajouter d'autres couleurs si nécessaire
                    End Select
                End If
                If formatRange(7) > 0 Then
                    Select Case formatRange(7)
                        Case 1: .Size = 8
                        Case 2: .Size = 10
                        Case 3: .Size = 12
                        Case 4: .Size = 14
                        Case 5: .Size = 18
                    End Select
                End If
            End With
        Next formatRange
     
        cell.Rows.AutoFit
        Range("A4:C4").Merge
    End Sub
    [EDIT] Oups, pas vu que Philippe avait répondu, je n'avais pas rafraîchi le post.

  5. #5
    Membre à l'essai
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mars 2025
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : Conseil

    Informations forums :
    Inscription : Mars 2025
    Messages : 4
    Par défaut
    Bonjour,

    Merci beaucoup à tous les deux pour vos réponses.
    Pas de problème pour le surligne, je peux faire sans.

    Franc, j'ai recopier votre code mais j'ai le message d'erreur suivant: Erreur 1004, cette action ne peut pas être appliquée à une cellule fusionnée. Ca concerne la 4e ligne: cell.Clear
    Pour information, dans mon fichier les cellules A4:C4 sont déjà fusionnées.
    Pouvez-vous m'indiquer la modification à faire dans le code?


    Enfin, si cela ne vous dérange pas et afin d’être sur d'utiliser toutes les balises correctement, pourriez-vous me donner un texte HTML qui contient toutes ces balises, notamment le changement de taille/couleur de police?

    Merci encore,
    Jon

  6. #6
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    993
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 993
    Par défaut
    en début de macro, juste avant cell.Clear, insère la ligne If cell.MergeCells Then cell.MergeArea.UnMerge
    Dans le fichier que tu as fourni, il y a un texte avec les balises couleur et taille de police.

  7. #7
    Membre à l'essai
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mars 2025
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : Conseil

    Informations forums :
    Inscription : Mars 2025
    Messages : 4
    Par défaut
    Super, tout marche.
    Je n'étais pas sur de mon utilisation des balises dans l'exemple dans mon fichier mais tout fonctionne parfaitement.
    Je vous remercie énormément!!
    je vous souhaite une bonne journée!
    Jon

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2007] Exporter le résultat d'une requete Acces 2007 vers une cellule sur Excel 2007
    Par wapwinter dans le forum Requêtes et SQL.
    Réponses: 1
    Dernier message: 26/05/2014, 15h17
  2. [Access 2007] Problème Texte enrichi vers Excel
    Par amrod93 dans le forum Access
    Réponses: 2
    Dernier message: 25/09/2013, 14h10
  3. Enregistrement Feuil 1 vers Feuil 2 sur excel
    Par PyMon dans le forum Excel
    Réponses: 18
    Dernier message: 16/07/2007, 15h39
  4. Export Texte sur Excel
    Par Damien1969 dans le forum Access
    Réponses: 1
    Dernier message: 06/10/2005, 13h17
  5. forcer date sans texte sur excel
    Par scully2501 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 19/09/2005, 13h45

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo