Discussion :

[cendrine20]

Bonjour,

Sos débutant en détresse !!!

J’ai une liste où se trouvent dans la même cellule plusieurs mots

Ces mots peuvent être :

- Des mots composés
- Des mots accentués ou non
- Des mots comportant des apostrophes
- Des mots séparés par plusieurs espaces

Ma séparation doit impérativement se faire APRES le mot « et »

Exemple : Carpe Diem et La Vallée d'Orange
Je souhaiterai :
« Carpe Diem » dans la cellule A
« et » dans la cellule B
« La Vallée d'Orange » dans la cellule C


Y’a-t-il un code vba qui puisse dire « supprime TOUT ce qu’il y a AVANT « et » ou APRES » ???
(ou autre chose qui puisse me permettre de regler se problème)


Par avance merciiiiiiiiiiiiiiiiiiiii

Cendrine

[ucfoutu]

Bonjour,

même pas besoin de faire les frais de la fonction split dans un tel cas.

Interesse-toi à la fonction Instr, capable de te retourner la position de la chaine " et ". Appelons pos cette position
tout ce qui est avant est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Trim(left(tachaine,pos-1))

" et " est à transformer en "et", tout bêtement (mais uniquement si pos > 0 car sinon, cela veut dire que tachaine ne contient pas de " et "
tout ce qui est après est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Trim(mid(tachaine,pos +¨5))

pourquoi + 5 ? parce que " et " = 4 caractères et que tu reprends au suivant (donc le 5ème après pos).

Mais la lecture, dans ton aide en ligne, des fonctions utilisées (Trim, Left, Instr et Mid) t'en apprendra beaucoup plus.

[Pierre Fauconnier]

Bonjour et bienvenue sur nos forums.

Comme tu dis

(ou autre chose qui puisse me permettre de regler se problème)

Je te propose une solution par formule

En supposant le texte à scinder en A1.

En B1, tu saisis la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ESTERREUR(CHERCHE(" et ";A1));"";GAUCHE(A1;CHERCHE(" et ";A1)))

En C1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SI(ESTERREUR(CHERCHE(" et ";A1));"";" et ")

En D1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ESTERREUR(CHERCHE(" et ";A1));"";DROITE(A1;NBCAR(A1)-CHERCHE(" et ";A1)-3))

Tu tires vers le bas sur les lignes concernées, puis tu réalises un copier/collage spécial valeurs sur B, C et D et tu supprimes A