Supprimer balise <IMG> avec une macro & expression régulière

[ismael]

Bonjour

J'ai une colonne dans laquel j'ai que du code html, j'aimerais supprimer toutes les balise images <IMG> par exemple:
<img alt="iPhone 5 32GB" src="http://img.domaine.com/images/upload/SKU45254755/20111219150204368.jpg" />

Je pense que c'est possibe avec une macro utilisant les expressions régulière.

Pouvez vous m'aider s'il vous plait?

 

[BOISGONTIER]

Re : Supprimer balise <IMG> avec une macro & expression régulière

Bonjour,

Sub essai()
   chaine = Application.Trim([A1])
   p1 = InStr(chaine, "<img alt=")
   If p1 > 0 Then
     P2 = InStr(p1 + 1, chaine, "/>")
     chaine = Left(chaine, p1 - 1) & Mid(chaine, P2 + 2)
   End If
   MsgBox chaine
End Sub

JB