Supprimer la partie barré du texte dans toutes les cellules Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
o
olfal
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 20 juin 2016
Version d'Excel : Excel 2010

Message par olfal » 7 février 2017, 12:01

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.
Modifié en dernier par olfal le 7 février 2017, 14:12, modifié 1 fois.
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'171
Appréciations reçues : 448
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 7 février 2017, 12:04

Bonjour,

Fichier requis !...
o
olfal
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 20 juin 2016
Version d'Excel : Excel 2010

Message par olfal » 7 février 2017, 14:11

Et voilà
Fichier exemple.xlsx
(27.33 Kio) Téléchargé 61 fois
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'171
Appréciations reçues : 448
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 7 février 2017, 15:53

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.
olfal_Fichier exemple.xlsm
(41.21 Kio) Téléchargé 133 fois
o
olfal
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 20 juin 2016
Version d'Excel : Excel 2010

Message par olfal » 7 février 2017, 16:09

C'est parfait ! merci beaucoup.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message