Supprimer la partie barré du texte dans toutes les cellules

Bonjour à tous,

Je cherche une solution pour supprimer dans une colonne de cellules toutes les portions de texte barrées, en ne laissant subsister que le texte non barré dans chaque cellule traitée.

J'ai par exemple des cellules de B2 à B1001 contenant chacune du texte, dont une centaine comportent une partie de texte barré. Je voudrais "simplement" supprimer la partie barrée des 1000 cellules concernées.

Le mieux que j'ai trouvé jusqu'ici, c'est une macro qui supprime purement et simplement les cellules contenant du texte barré. Ce n'est hélas pas ce que je cherche.

Merci d'avance pour votre aide.

Bonjour,

Fichier requis !...

Et voilà

212fichier-exemple.xlsx (27.33 Ko)

Sous forme de fonction personnalisée :

Function TXNONBARRE(tx As Range) As String
    Dim i%, c$, txnb$
    Application.Volatile
    For i = 1 To tx.Characters.Count
        c = Mid(tx, i, 1)
        If Not tx.Characters(i, 1).Font.Strikethrough Then txnb = txnb & c
    Next i
    txnb = Trim(Replace(txnb, "  ", " "))
    TXNONBARRE = txnb
End Function

On peut aussi le faire sous forme de macro classique à lancer, qui fera le remplacement dans les cellules mêmes...

Cordialement.

C'est parfait ! merci beaucoup.

Rechercher des sujets similaires à "supprimer partie barre texte toutes"