maval
XLDnaute Barbatruc
Bonjour
J'ai un code pour supprimer mot class="st11" mon problème et que je veut changer tous les mots qui ont
Class="01", Class="12", Class="13", ect....
Mon code:
Je vous remercie
Max
J'ai un code pour supprimer mot class="st11" mon problème et que je veut changer tous les mots qui ont
Class="01", Class="12", Class="13", ect....
Mon code:
Code:
Sub SupprimerMot()
Dim Cel As Range, Plage As Range
Dim Mot As String
Set Plage = Range("i5:i200") ' à adapter à la plage à parcourir.
Mot = "class=""st12" '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
Je vous remercie
Max