OVH Cloud OVH Cloud

Enlever une Chaine de caracteres

9 réponses
Avatar
Charles Tosi
Bonjour,

Je nettoie une liste de 8000 lignes.
Je voudrais éffacer de quelques centaines de cellules des bouts de texte qui
sont tous compris entre des parenthèses. Y a t-il un moyen de faire ça
automatiquement?

Merci d'avance

Charles

9 réponses

Avatar
AV
A1 contient l'étiquette de colonne
Qques réserves possibles sur des éventuels espaces avant/après les parenthèses
ou/et la présence de plusieurs (())

Sub zz_Sup_Chaîn()
Application.ScreenUpdating = False
derL = [A8000].End(3).Row
[A1:A8000].AutoFilter Field:=1, Criteria1:="=*(*"
For Each c In Range("A2:A" & derL).SpecialCells(xlCellTypeVisible)
c.Value = Left(c, Application.Find("(", c) - 1) & Mid(c,
Application.Find(")", c) + 1, 9 ^ 9)
Next
[A1].AutoFilter
End Sub

AV
Avatar
Daniel
Bonjour.
S'il n'y a qu'une chaîne de texte entre parenthèses par cellule, essaie :
=SI(ESTERREUR(OU(TROUVE("(";A1;1);TROUVE(")";A1;1)));A1;GAUCHE(A1;TROUVE("(";A1;1)-1)&DROITE(A1;NBCAR(A1)-TROUVE(")";A1;1)))
Cordialement.
Daiel
"Charles Tosi" a écrit dans le message de news:
eS$
Bonjour,

Je nettoie une liste de 8000 lignes.
Je voudrais éffacer de quelques centaines de cellules des bouts de texte
qui sont tous compris entre des parenthèses. Y a t-il un moyen de faire ça
automatiquement?

Merci d'avance

Charles



Avatar
JièL Goubert
Bonjoir(c) Charles Tosi

allez, juste pour la provoc et parceque ça m'amuse ;-)

copier/coller dans Word, menu Edition, Remplacer.
Dans "Rechercher" taper
(*)
Clic sur "Plus" cocher "Utiliser les caractères"
Clic sur "Remplacer tout" (moins d'une seconde de temps d'éxécution)
Copier/coller dans Excel

dommage qu'excel ne sache pas utiliser les caractères génériques comme
Word, le R/R est d'une efficacité redoutable
;-))))))))

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Le 19/06/2005 00:16 vous avez écrit ceci :
Bonjour,

Je nettoie une liste de 8000 lignes.
Je voudrais éffacer de quelques centaines de cellules des bouts de texte qui
sont tous compris entre des parenthèses. Y a t-il un moyen de faire ça
automatiquement?

Merci d'avance

Charles


Avatar
Patrick BASTARD
Bonjour, *JièL Goubert*
J'ai lu ton post
avec le plus grand intéret :

S'il n'y a pas de formules dans la zone à nettoyer, et via Excelédition,
rechercher, "(*)", remplacer par "" (sans les guillemets) ne fonctionne-t-il
pas ?
--
Bien amicordialement,
P. Bastard

Bonjoir(c) Charles Tosi

allez, juste pour la provoc et parceque ça m'amuse ;-)

copier/coller dans Word, menu Edition, Remplacer.
Dans "Rechercher" taper
(*)
Clic sur "Plus" cocher "Utiliser les caractères"
Clic sur "Remplacer tout" (moins d'une seconde de temps d'éxécution)
Copier/coller dans Excel

dommage qu'excel ne sache pas utiliser les caractères génériques comme
Word, le R/R est d'une efficacité redoutable
;-))))))))


Le 19/06/2005 00:16 vous avez écrit ceci :
Bonjour,

Je nettoie une liste de 8000 lignes.
Je voudrais éffacer de quelques centaines de cellules des bouts de
texte qui sont tous compris entre des parenthèses. Y a t-il un moyen
de faire ça automatiquement?

Merci d'avance

Charles




Avatar
Daniel
Bonjour.
Tu as raison. Mais XL sait le faire. remplacer (*) par rien.
Cordialement.
Daniel
"JièL Goubert" a écrit dans le
message de news:
Bonjoir(c) Charles Tosi

allez, juste pour la provoc et parceque ça m'amuse ;-)

copier/coller dans Word, menu Edition, Remplacer.
Dans "Rechercher" taper
(*)
Clic sur "Plus" cocher "Utiliser les caractères"
Clic sur "Remplacer tout" (moins d'une seconde de temps d'éxécution)
Copier/coller dans Excel

dommage qu'excel ne sache pas utiliser les caractères génériques comme
Word, le R/R est d'une efficacité redoutable
;-))))))))

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Le 19/06/2005 00:16 vous avez écrit ceci :
Bonjour,

Je nettoie une liste de 8000 lignes.
Je voudrais éffacer de quelques centaines de cellules des bouts de texte
qui sont tous compris entre des parenthèses. Y a t-il un moyen de faire
ça automatiquement?

Merci d'avance

Charles




Avatar
JièL Goubert
Bonjoir(c) Daniel et Patrick

merci de m'avoir corrigé, vous avez parfaitement raison (avec le bémol sur
les formules), je n'avais pas vérifié avec Excel et actuellement je suis a
donf dans les R/R de Word.

comme quoi y'a pas qu'un seul marteau dans la vie ;-)))

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Le 19/06/2005 11:46 vous avez écrit ceci :
Bonjour.
Tu as raison. Mais XL sait le faire. remplacer (*) par rien.
Cordialement.
Daniel
"JièL Goubert" a écrit dans le
message de news:

Bonjoir(c) Charles Tosi

allez, juste pour la provoc et parceque ça m'amuse ;-)

copier/coller dans Word, menu Edition, Remplacer.
Dans "Rechercher" taper
(*)
Clic sur "Plus" cocher "Utiliser les caractères"
Clic sur "Remplacer tout" (moins d'une seconde de temps d'éxécution)
Copier/coller dans Excel

dommage qu'excel ne sache pas utiliser les caractères génériques comme
Word, le R/R est d'une efficacité redoutable
;-))))))))

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Le 19/06/2005 00:16 vous avez écrit ceci :

Bonjour,

Je nettoie une liste de 8000 lignes.
Je voudrais éffacer de quelques centaines de cellules des bouts de texte
qui sont tous compris entre des parenthèses. Y a t-il un moyen de faire
ça automatiquement?

Merci d'avance

Charles









Avatar
Jean-Claude Arbaut
Le 19/06/2005 00:16, dans eS$, « Charles
Tosi » a écrit :

Bonjour,

Je nettoie une liste de 8000 lignes.
Je voudrais éffacer de quelques centaines de cellules des bouts de texte qui
sont tous compris entre des parenthèses. Y a t-il un moyen de faire ça
automatiquement?


Si ton fichier ne contient que du texte, tu peux exporter en "tab separated"
ou en csv, et faire tes manipulations avec AWK. Ça peut sembler bien
compliqué, mais en même temps ce petit langage est très pratique pour la
manip de texte, et pourra servir dans d'autres situations. Ça m'a déjà
"sauvé la vie" plusieurs fois :-)

Pour Windows, on peut le trouver là: http://cm.bell-labs.com/cm/cs/awkbook/,
et sous MacOSX, il est préinstallé.

Avatar
JpPradier
Bonjour JièL

comme quoi y'a pas qu'un seul marteau dans la vie ;-)))


C'est pas tombé dans l'oreille d'un sourd !
;-))

j-p

Avatar
JièL Goubert
Bonjoir(c) JpPradier

Le 19/06/2005 14:18 vous avez écrit ceci :
C'est pas tombé dans l'oreille d'un sourd !
;-))



Comment t'as fait pour entendre ? t'as un systéme de dictée vocale ? ;-)
En tout cas moi j'ai rien dit ;-)))

JièL Aveugle comme une tombe