XL 2019 Garder un texte entre 2 balises

job75 à dit:

Pourquoi du VBA ?

Cliquez pour agrandir...

Yeahou à dit:

re, salut marcel32

et voila si il faut enlever aussi les balises

Code:

Sub Raz_Balises2()
Dim Range_Ref As Range, Tab_Ref, i&
Set Range_Ref = Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
Tab_Ref = Range_Ref.Value2
For i = LBound(Tab_Ref, 1) To UBound(Tab_Ref, 1)
    Tab_Ref(i, 1) = Left(Tab_Ref(i, 1), InStrRev(Tab_Ref(i, 1), ">") - 4)
    Tab_Ref(i, 1) = Right(Tab_Ref(i, 1), Len(Tab_Ref(i, 1)) - 3)
Next i
Range_Ref = Tab_Ref
End Sub

Cordialement, @+

Cliquez pour agrandir...

team18fr à dit:

Bonjour et merci de votre aide et comme promis, je reviens vers vous.
Donc le code ci-dessus fonctionne très bien à partir du moment ou j'ai bien : <i>mon texte à garder</i> autre texte mais ci une cellule à déjà été traité cela me met une erreur d'éxécution"5" sur la ligne :
"Tab_Ref(i, 1) = Left(Tab_Ref(i, 1), InStrRev(Tab_Ref(i, 1), ">") - 4)"

Cliquez pour agrandir...

Sub Raz_Balises2()
Dim Range_Ref As Range, Tab_Ref, i&
Set Range_Ref = Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
Tab_Ref = Range_Ref.Value2
For i = LBound(Tab_Ref, 1) To UBound(Tab_Ref, 1)
    If InStrRev(Tab_Ref(i, 1), ">") Then Tab_Ref(i, 1) = Left(Tab_Ref(i, 1), InStrRev(Tab_Ref(i, 1), ">") - 4)
    If InStr(Tab_Ref(i, 1), ">") Then Tab_Ref(i, 1) = Right(Tab_Ref(i, 1), Len(Tab_Ref(i, 1)) - InStr(Tab_Ref(i, 1), ">"))
Next i
Range_Ref = Tab_Ref
End Sub

job75 à dit:

Si l'on veut absolument un bouton on lui affectera cette macro qui fait la même chose :

VB:

Sub Remplacer()
Columns(2).Replace "</i>*", "", xlPart
Columns(2).Replace "*<i>", ""
End Sub

Cliquez pour agrandir...