Discussion :

[dbaxime]

Bonjour,

JE voudrais savoir si vous avez connaissance d'un technique d'automatisation ou une macro pour supprimer d'une cellule les balises html qui se trouve dans le texte.

Je vous joint ci dessous ce qui compose mes cellule en html.

"<span style=""color: rgb(128, 0, 0); font-weight: bold;"">GRANDES PERRUCHES FRUITS EXOTIQUES <EOL></span><br style=""color: rgb(139, 69, 19);"" /> <EOL> <EOL><br style=""color: rgb(139, 69, 19);"" /> <EOL> <EOL> <EOL><span style=""color: rgb(139, 69, 19);"">Les STICKS KIKI EXCELLENT sont <EOL>une manière parfaite de maintenir en forme les oiseaux en cage tout en <EOL>leur apportant un aliment complet et équilibré. </span><br style=""color: rgb(139, 69, 19);"" /> <EOL> <EOL> <EOL><span style=""color: rgb(139, 69, 19);"">Dans leurs habitats naturels ils peuvent trouver une grande quantité de fruits dont ils ont besoin pour être en bonne santé. </span><br style=""color: rgb(139, 69, 19);"" /> <EOL> <EOL><br style=""color: rgb(139, 69, 19);"" /> <EOL> <EOL> <EOL><span style=""color: rgb(139, 69, 19);"">Avec les <EOL> <span style=""color: rgb(128, 0, 0); font-weight: bold;"">STICKS KIKI EXCELLENT</span> vous pouvez être sûr de leur procurer les éléments nutritionnels nécessaires pour améliorer leur qualité de vie. <EOL> <EOL></span><br style=""color: rgb(139, 69, 19);"" /> <EOL> <EOL><br style=""color: rgb(139, 69, 19);"" /> <EOL> <EOL> <EOL><span style=""color: rgb(139, 69, 19);""> <EOL> <span style=""color: rgb(128, 0, 0); font-weight: bold;"">Ingrédients:</span> Graines, céréales, fruits (kiwi, papaye, mangue, banane et ananas), miel, sucre et légumes secs. </span><br style=""color: rgb(139, 69, 19);"" /> <EOL> <EOL><br style=""color: rgb(139, 69, 19); font-weight: bold;"" /> <EOL> <EOL> <EOL><span style=""color: rgb(139, 69, 19);""> <EOL> <span style=""font-weight: bold;"">Analyse: </span>13,4% <EOL>protéine brute, 11% graisse brute, 6,3% fibre brute, 3,1% cendre brute, <EOL>9,5% humidité, 56,7% hydrates de carbone, 1.60% calcium, 0,75% <EOL>phosphore. Vitamines ajoutées/kg: 5.780 U.I. vit. A, 750 U.I. vit. D3, <EOL>60 mg. vit. E. </span><br style=""color: rgb(139, 69, 19);"" /> <EOL> <EOL>"

Membrane de rechange pour <a style="COLOR: #808000" href="http://www.savannah.fr/product/cool-fog.html"><strong>Cool Fog Reptiles-planet</strong></a>. Fourni avec joint d'étanchéité et clé&nbsp;de montage.

Je vous remercie par avance.

Pierre

[mercatog]

Une petite fonction (pas complète)

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
Function Extraxt(ByVal Str As String) As String
Dim Tb, Tbl, Res() As String, i As Long, j As Long
 
Str = "<>" & Str & ">"
Str = Replace(Str, "&nbsp;", " ")
Tb = Split(Str, "<")
 
For i = 0 To UBound(Tb)
    If Len(Tb(i)) > 2 Then
        If InStr(Tb(i), ">") Then
            Tbl = Split(Tb(i), ">")
            If Trim(Tbl(1)) <> "" Then
                ReDim Preserve Res(0 To j)
                Res(j) = Tbl(1)
                j = j + 1
            End If
        End If
    End If
Next i
Extraxt = Join(Res, " ")
End Function

Edit: plus simple et sans vba, tu fais Rechercher <*> Remplacer par vide

[ted the Ors]

Je déterre un peu, je suis tombé sur un article.
Je copie la fonction proposée qui fonctionne parfaitement:

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
' ---
' SUPPRESSION DES BALISES HTML D'UNE CHAINE
' ---
'
Function SupprimerHTML(ByVal strHTML As String) As String
  Dim re As VBScript_RegExp_55.RegExp
 
  ' On crée une expression rationnelle
  Set re = New RegExp
 
  ' On définit le critère qui cherche toute balise HTML
  re.Pattern = "<s*?[^>]+s*?>"
 
  ' On fait en sorte que la casse (majuscules/minuscules)
  ' soit indifférente
  re.IgnoreCase = True
 
  ' Traitement global (récursif)
  re.Global = True
 
  ' La fonction Test renvoie True si la chaîne
  ' respecte le critère
  SupprimerHTML = re.Replace(strHTML, "")
End Function

[patricktoulon]

re
il y a beaucoup plus sur et propre de recupérer le texte sans balisage dans du code html

tu peux simplement récupérer le innertext

exemple

une toute petite fonction de rien du tout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function innertext_only(codehtml)
    With CreateObject("htmlfile"): .body.innerhtml = codehtml: innertext_only = .body.innertext: End With
End Function

et pour la tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
    Dim texte$
    texte = " <font color=""red"">c'est <B>tres</B> simple</font> de <font color=""blue""><I>suprimer</I></font> "
    texte = texte & "<B>le balisage d'un <U>code html</U></B> <font color=""cyan"">sans utiliser de methode string en vb(a,s,.net)</font>"
    MsgBox innertext_only(texte)
End Sub

ca peut pas etre plus net