OVH Cloud OVH Cloud

Macro possible ?

3 réponses
Avatar
christophe L
Bonjour =E0 tous,
j'ai un fichier de 5000 ou 6000 lignes contenant des=20
donn=E9es ordonnanc=E9es comme suit :

r=E9collets','19125','0');

Pensez-vous qu'il soit possible de cr=E9er une macro=20
pouvant effacer automatiquement tout ce qui se trouve =E0=20
la droite de la premi=E8re apostrophe ? Si oui, comment=20
proc=E9deriez-vous ?
Avec mes remerciements,
Christophe

3 réponses

Avatar
Pierre Fauconnier
Bonjour

Sans macro, tu peux utiliser =GAUCHE(A1;CHERCHE("'";A1)-1)

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"christophe L" a écrit dans le message
de news:211a01c4a4aa$15c1bb30$
Bonjour à tous,
j'ai un fichier de 5000 ou 6000 lignes contenant des
données ordonnancées comme suit :

récollets','19125','0');

Pensez-vous qu'il soit possible de créer une macro
pouvant effacer automatiquement tout ce qui se trouve à
la droite de la première apostrophe ? Si oui, comment
procéderiez-vous ?
Avec mes remerciements,
Christophe
Avatar
jps
bonjour christophe
peut-être pourrais-tu essayer Données/Validation/ largeur fixe
ce qui aura pour effet de te permettre de séparer ton texte et de mettre
dans une colonne qui se créera pour les besoins de la cause la partie du
texte dont tu ne veux plus, colonne que tu pourras donc annuler par la
suite...
jps

"christophe L" a écrit dans le message
de news:211a01c4a4aa$15c1bb30$
Bonjour à tous,
j'ai un fichier de 5000 ou 6000 lignes contenant des
données ordonnancées comme suit :

récollets','19125','0');

Pensez-vous qu'il soit possible de créer une macro
pouvant effacer automatiquement tout ce qui se trouve à
la droite de la première apostrophe ? Si oui, comment
procéderiez-vous ?
Avec mes remerciements,
Christophe
Avatar
AV
Selection de la plage puis :
Sub zzz()
For Each c In Selection
MsgBox Left(c, Application.Find("'", c) - 1)
Next
End Sub