suppression de caractères

gregorio · 28 Avril 2016

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 · 28 Avril 2016

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

VB:

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 · 28 Avril 2016

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.

suppression de caractères

gregorio

XLDnaute Nouveau

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

gregorio

XLDnaute Nouveau

Discussions similaires