Menu
Donnez votre avis

VBA - Supprimer un mot dans une plage de cellule

Posez votre question

Si on veut supprimer un mot dans une phrase il suffit de faire une petite macro qui supprime le mot recherché.
Là où ça se corse c'est que le mot recherché pourrait être, par exemple "LEMOT" ou "LeMot" ou "lemot" ou encore "LeMot" etc..
Cette petite macro résoud ce petit problème.

'A mettre en tête du module
Option Explicit
Option Compare Text


Sub SupprimerMot()
Dim Cel As Range, Plage As Range
Dim Mot As String
    Set Plage = Range("B2:B20") ' à adapter à la plage à parcourir.
    Mot = "LeMot" 'adapter au mot à rechercher et à supprimer
    'Pas nécessaire si le plage est petite
    Application.ScreenUpdating = False
    For Each Cel In Plage
        If Cel Like "*" & Mot & "*" Then
            Cel = Replace(Cel, Mot, "")
            'Pour enlever le double espace qui en résulte..
            Cel = Replace(Cel, "  ", " ")
        End If
    Next Cel
    Application.ScreenUpdating = True
End Sub
Jean-François Pillou

Cet article est régulièrement mis à jour par des experts sous la direction de Jean-François Pillou, fondateur de CommentCaMarche et directeur délégué au développement numérique du groupe Figaro.

En savoir plus sur l'équipe CCM

A voir également

Publié par lermite222. Dernière mise à jour le 24 octobre 2018 à 08:43 par pijaku.

Ce document intitulé «  VBA - Supprimer un mot dans une plage de cellule  » issu de CommentCaMarche (https://www.commentcamarche.net/) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme