VBA - Supprimer un mot dans une plage de cellule
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
Ce document intitulé « VBA - Supprimer un mot dans une plage de cellule » issu de Comment Ça Marche (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.