supprimer un mot

[IsabelleC]

bonsoir à tous,


j'aimerais supprimer les mots de "liaison" dans une chaine de caractères (le , chez etc...).
J'ai essayé avec replace mais évidemment cela supprime aussi ces caractères faisant partie d'autres mots
les mots à supprimer peuvent être situés à n'importe quel emplacement dans la phrase.

merci d'avance pour vos réponses.

isabelle

 

[wilfried_42]

Re : supprimer un mot

bonjour isabelle

en b1 tu mets =substitue(A1;"Lisaison ";"")

tu subtitues un mot avec rien, ca le retire

 

[Staple1600]

Re : supprimer un mot

Bonsoir

Sub Macro1()
Columns("A:A").Select
Selection.Replace What:="le", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub

Ca semble fonctionner

teste avec ses valeurs
le
vale
alle
le

 

[IsabelleC]

Re : supprimer un mot

Bonsoir,

merci pour vos 2 solutions mais malheureusement cela ne fonctionne pas

avec subsitue j'ai le même pb qu'avec replace: ça n'identifie pas les mots
les caracteres recherchés vont être supprimés même s'ils font partie d'autres mots

pour la macro, je ne sais pas ce que j' ai fait mais apparemment rien ne se passe

isabelle

 

[Staple1600]

Re : supprimer un mot

Re

la macro c'est juste un exemple simple
pour vérifier

qu'il ya bien suppression de le
dans une cellule qui contient le
mais pas de suppression
si la cellule contient par exemple alle ou vallee ou hale etc...

Chez moi ca fonctionne

(il faut que les valeurs soint dans la colonne A)

 

[Catrice]

Re : supprimer un mot

bonsoir,

Dans l'exemple joint, il faut que tous les cas de figures soient prévus.
"Le ", " le ", " le,", "Chez ", " chez"
Les majuscules, les espaces, les virgules etc ...
Puis faire un remplacement en tenant compte de la casse.

Pour que Chez ne remplace pas "vous bouchez" par "vous bou"
et "belle" par "bel" etc ...

Bon courage ...

Voir fichier joint.

 

[Staple1600]

Re : supprimer un mot

Bonsoir

Ton exemple ne fonctione pas chez moi

Rien n'est remplacé

 

[Staple1600]

Re : supprimer un mot

Re

En adaptant ton code (Catrice)

Sub Test()
Dim i
MaVar = Array("Le", "le", "le", "Chez", "chez")

For i = 0 To UBound(MaVar)
Range("A1:A2").Replace MaVar(i), "", xlWhole, xlByRows, True
Next
End Sub

ca ne fonctionne pas non plus

Et je ne comprends pas pourquoi
(dans les deux cas)

 

[wilfried_42]

Re : supprimer un mot

re: bonjour catrice

si c'est un mot complet, substitue(A1;" Liaison ";" ") : n'oublie pas l'espace de devant et de derière

 

[IsabelleC]

Re : supprimer un mot

bonjour à tous,

j'ai le même pb que staple 1600, je n'arrive pas non plus à faire fonctionner la macro.

pour la fonction substitue effectivement cela fonctionne avec un espace sur la droite

merci pour vos réponses
isabelle

 

[Catrice]

Re : supprimer un mot

Bonjour,

Pour qu'elle fonctionne il faut l'enregistrer sur votre machine, ne pas l'executer in-situ dans Internet Explorer.
Testé en XL 2000 et XL2002.

Wilfried, je ne mets pas d'espace devant "Liaison" ou "Chez" car le "L" ou le "C" etant en majuscule je gére le cas.
Ma macro gére le remplacement des ces mots s'ils ont une majuscule.
S'ils ont une majuscule, ils ne peuvent pas etre au milieu d'un autre.
Exemple :
"Vous marchez"
et non pas
"Vous marChez"

différent de :
"Chez vous" là je supprime

Si ma macro marche chez vous, vous verrez qu'elle enlève certains "chez"
Voir ci-joint.

Il faut donc ajouter tous les cas ... bon courage ;-)

 

[wilfried_42]

Re : supprimer un mot

bonjour Catrice

je n'ai jamais dit qu'elle ne fonctionnait pas lol, je l'ai testé hie soir et elle etait ok, neanmoins l'heure du dodo ne m'a pas permis de repondre

bonne journée à tous

 

[Catrice]

Re : supprimer un mot

Wilfried,

Cette partie du Fil ne s'adressait qu'à Isabelle et Staple :
Pour qu'elle fonctionne il faut l'enregistrer sur votre machine, ne pas l'executer in-situ dans Internet Explorer.
Testé en XL 2000 et XL2002.

Le message pour toi ne concernanit que l'histoire des espaces et des majuscules

salutations
A+

 

[Staple1600]

Re : supprimer un mot

Bonjour


Le classeur4.xls fonctionne ce matin chez moi??????

Le code VBA est le meme pourtant que le classer qui ne fonctionnait pas

Et dans les deux cas j'ai enregistré les classeurs sur mon bureau


Pas compris ce qui s'est passé

Pas grave

 

[Staple1600]

Re : supprimer un mot

Re

Je me suis permis de compléter la macro de Catrice pour traiter
la feuille active

Sub Test()
Dim P As Range
Set P = ActiveSheet.UsedRange
MaVar = Array("Le ", " le ", " le,", "Chez ", " chez")

For i = 0 To UBound(MaVar)
   P.Replace What:=MaVar(i), Replacement:=" ", MatchCase:=True
Next
End Sub