Mettre dans des colonnes les caractères d'une cellule séparés par "_"

Dugenou

XLDnaute Barbatruc

• 3 Octobre 2016

• #2

Bonjour,
Sélectionner la colonne, puis cliquer sur données/convertir : choisir "délimité" et indiquer le _ comme séparateur

Cordialement

 

Vote positif 0 Vote négatif

B

bindou

XLDnaute Nouveau

• 3 Octobre 2016

• #3

J'ai fini par trouvé une solution avec :
Colonne 1 =STXT(A67;1;MIN(CHERCHE("_";A67)))
Colonne 2 =STXT(SUBSTITUE(A67;B67😉;1;CHERCHE("_";SUBSTITUE(A67;B67😉))
Colonne 3 =STXT(SUBSTITUE(A67;B67&C67😉;1;CHERCHE("_";SUBSTITUE(A67;B67&C67;"")))
Colonne 4 =SUBSTITUE(A67;B67&C67&D67;"")

De cette manière ça semble fonctionner ; néanmoins, il m'affiche les "_", mais pour mon usage ça ne devrait pas poser problem.

 

Vote positif 0 Vote négatif

B

bindou

XLDnaute Nouveau

• 3 Octobre 2016

• #4

Dugenou à dit:

Bonjour,
Sélectionner la colonne, puis cliquer sur données/convertir : choisir "délimité" et indiquer le _ comme séparateur

Cordialement

Cliquez pour agrandir...

Votre methode semble plus, simple; je vais essayer.
Merci.

 

Vote positif 0 Vote négatif

B

bindou

XLDnaute Nouveau

• 3 Octobre 2016

• #5

En effet c'est tellement plus simple :/
Par contre, de cette manière il supprime/remplace la cellule originelle. Peut-on conserver la cellule de base et choisir ou afficher les colonnes ?

Edit, ok, je viens de voir qu'on peut choisir la destination ; c'est donc parfait ! Merci beaucoup.

Edit2, finalement ça ne va pas, car il faut que cela soit automatique. et je viens de voir qu'il faut faire la manip après chaque insertion de données. Il me faut donc une formule.

 

Dernière édition: 3 Octobre 2016

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 3 Octobre 2016

• #6

Re,
Alors par formule (un peu bourrin mais ça fonctionne) avec une donnée texte en A5 :
emplacement du premier _ : CHERCHE("_";A5)
emplacement du second _ : CHERCHE("_";A5;CHERCHE("_";A5)+1)
emplacement du troisième _ : CHERCHE("_";A5;CHERCHE("_";A5;CHERCHE("_";A5)+1)+1)

du coup
colonne 1 : =GAUCHE(A5;CHERCHE("_";A5)-1)
colonne2 : =STXT(A5;CHERCHE("_";A5)+1;CHERCHE("_";A5;CHERCHE("_";A5)+1)-CHERCHE("_";A5)-1)
colonne3 : =STXT(A5;CHERCHE("_";A5;CHERCHE("_";A5)+1)+1;E4-CHERCHE("_";A5;CHERCHE("_";A5)+1)-1)
colonne 4 : =DROITE(A5;NBCAR(A5)-CHERCHE("_";A5;CHERCHE("_";A5;CHERCHE("_";A5)+1)+1))

Cordialement

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 3 Octobre 2016

• #7

Bonjour,

une manière avec fonction perso:
Option Explicit

Function EXTRACTENTRE(txt As String, s As String, rg As Integer) ' M.FERRAND
Dim ttx
Application.Volatile
ttx = Split(txt, s)
EXTRACTENTRE = Trim(ttx(rg - 1))
End Function

 

Pièces jointes

• ScreenShot117.jpg

  32.3 KB · Affichages: 30

Vote positif 0 Vote négatif

B

bindou

XLDnaute Nouveau

• 4 Octobre 2016

• #8

Super sympa ; merci !

 

Vote positif 0 Vote négatif

B

bindou

XLDnaute Nouveau

• 7 Octobre 2016

• #9

Dugenou à dit:

Re,
du coup
colonne 1 : =GAUCHE(A5;CHERCHE("_";A5)-1)
colonne2 : =STXT(A5;CHERCHE("_";A5)+1;CHERCHE("_";A5;CHERCHE("_";A5)+1)-CHERCHE("_";A5)-1)
colonne3 : =STXT(A5;CHERCHE("_";A5;CHERCHE("_";A5)+1)+1;E4-CHERCHE("_";A5;CHERCHE("_";A5)+1)-1)
colonne 4 : =DROITE(A5;NBCAR(A5)-CHERCHE("_";A5;CHERCHE("_";A5;CHERCHE("_";A5)+1)+1))

Cordialement

Cliquez pour agrandir...

Au cas ou cela interesserait qulqu'un, je signale une petite coquille avec cette solution pour la colonne 3
Elle fonctionnera mieux avec cette formule (je ne sais pas si on peut faire plus simple)
=STXT(A5;CHERCHE("_";A5;CHERCHE("_";A5)+1)+1;(CHERCHE("_";A5;CHERCHE("_";A5;CHERCHE("_";A5)+1)+1))-(CHERCHE("_";A5;CHERCHE("_";A5)+1)+1))

 

Vote positif 0 Vote négatif