Supprimer un texte parteil selon son format

[Bruno02]

Bonjour à tous,
Pour suivre les modifications de texte (libellé) dans une cellule, j'identifie les mots à supprimer en rouge barré.
Afin d'obtenir un fichier propre après correction je souhaiterai automatiser l'effacement de tous les mots en rouge barré.
Je ne sais comment selectionner une partie de texte selon son format.
Merci d'avance pour votre aide.

 

[JYLL]

Re : Supprimer un texte parteil selon son format

bonsoir Bruno02 et le Forum,

une ligne qui permet de supprimer un mot barré :

  If Range("A1").Font.Strikethrough = True Then Range("A1").ClearContents

bon test.

 

[Bruno02]

Re : Supprimer un texte partiel selon son format

Merci Jean Yves,
Cette ligne de code sera la touche finale.
Dur dur d'isoler ou de selectionner les caractères/zones de texte barrés.

A+