Re : Garder seulement une partie d'une phrase......
Bonsoir DoubleZero et le forum
Merci pour la formule de la macro
J'ai rajouter d'autres action pour supprimer..voici la macro...
Sub Remplacer()
Columns(2).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Replace What:=" Hippodrome*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns(2).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Replace What:=" Terrain*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns(2).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Replace What:=" Public*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns(2).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Replace What:=" Sp1*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns(2).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Replace What:=" Jp1*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns(17).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Replace What:=" Gc2*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns(17).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Replace What:=" Gct2*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns(26).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Replace What:=" Gc2*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns(26).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Replace What:=" Gct2*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Question y a t'il plus simple comme formule..
Merci
Guido