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
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.
