XL 2019 Garder un texte entre 2 balises

[team18fr]

Bonjour à tous,
Dans un classeur EXCEL en colonne B je colle du texte sous forme : <i>mon texte à garder</i> autre texte.
Et je voudrais via un bouton pouvoir effacer tout sauf "mon texte à garder" qui sera diffèrent sur chaque ligne.
Merci d'avance pour votre aide.

 

[Bernard_XLD]

Bonjour team18fr, le forum

Comme vous n'avez pas mis de fichier test, voici le code pour agir sur la cellule active.

Cordialement, @+

With ActiveCell
    .Value = Left(.Value, InStrRev(.Value, ">"))
End With

 

[TooFatBoy]

Bonjour,

Je crois que ce bout de code n'est pas suffisant, car il va rester les balises, et non uniquement le texte à l'intérieur des balises.

 

[Bernard_XLD]

re, salut marcel32

et voila pour la colonne

Sub Raz_Balises()
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), ">"))
Next i
Range_Ref = Tab_Ref
End Sub

et voila si il faut enlever aussi les balises

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, @+

 

[team18fr]

Merci ca fonctionne bien sur mon fichier de teste, mais j'arrive pas à l'adapter sur mon fichier de saisie.
Je vous tiens au courant.

 

[job75]

Bonjour à tous,

Pourquoi du VBA ? La commande Excel Remplacer suffit.

Sélectionner la colonne B et touches Ctrl+H.

Rechercher : </i>* Remplacer par : ne rien mettre => Remplacer tout

Rechercher : *<i> Remplacer par : ne rien mettre => Remplacer tout.

A+

 

[TooFatBoy]

Pourquoi du VBA ?

Peut-être parce qu'il est demandé que le nettoyage soit effectué par l'appui sur un bouton ?

 

[team18fr]

Oui c'est bien via un bouton, mais aussi cela doit supprimer tout ce qui n'est pas entre les balises.

 

[job75]

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

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

 

[team18fr]

re, salut marcel32

et voila si il faut enlever aussi les balises

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, @+

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)"

Cdt,

 

[job75]

Bonjour, avec le code du post #9 bien sûr aucun souci.

 

[Bernard_XLD]

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)"

Re,

voila pour gérer le cas

Bien cordialement, @+

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

 

[team18fr]

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

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

Merci c'est au top.

 

[team18fr]

Encore merci à tous pour votre aide.

 

[job75]

Notez que la méthode par tableau utilisée par Yeahou est la plus rapide.

Testé avec le texte <i>Bonjour le forum</i>aaaaaaaaaaaaaaaaaaaaaaaaa sur 100 000 lignes :

- macro du post #9 => 3,6 secondes

- macro du post #12 => 0,28 seconde.