suppression de caractères

[gregorio]

Bonjour à tous,

j'ai dans l'onglet 1 une liste,et je dois supprimer toute les raisons sociale plus les articles pour arriver au premier mat du Nom complet.

par exemple :
SAS sur le chemin vert -->doit devenir Chemin vert ...

si joint un fichier exemple...

Merci d'avance à ceux qui prendront le temps de répondre.

 

[Modeste geedee]

Re : suppression de caractères

Bonsour®
- mettre la liste des termes à supprimer dans une seule colonne sans doublons
- appliquer la formule en B1 :
=SUPPRESPACE(A1) a toute la colonne
-faire une copie spéciale valeur en A1
nommer cette plage : "TERMES"

puis
mettre cette macro dans un module standard
et l'exécuter ...

Sub Macro1()
Dim mot As Range
For Each mot In Range("Termes")
'---------- ne pas oublier ci-dessous : & " " après le mot à remplacer
    Sheets("liste").[C1].CurrentRegion.Replace What:=mot & " ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Next
End Sub

restera à traiter manuellement le cas : "de l'"

 

[gregorio]

Re : suppression de caractères

Salut Geedee,
Merci de ta réponse, mais j'ai mis a jour ma question je m'étais mal exprimé et donc ta réponse ne correspond pas...
en tout cas merci quand même.