XL 2010 [Résolu] utilisation de la formule =gauche(B1;trouve(" ";B1;1)-1)

[fanadegra]

Bonjour je suis bloqué sur une formule toute simple, j'ai regardé sur le forum et google mais j'ai pas trouvé la solution. j'ai en colonne B cette liste


CADOR DE BABEL (M/4) CAMPO JOSSELYN (M/4)E1 CHERIF GRIFF (M/4)E2 CEYLAN DAIRPET (H/4) COLORADO BLUE (H/4) CHRISTO (H/4)E1 CHISTOU D'IRATY (H/4) CHOCOLAT DU BOURG (M/4) COLONEL (M/4) CRISTAL RIVER (M/4) CAPTAIN SPARROW (M/4) COW BOY GRIFF (M/4)E2 CRAZY HORSE (M/4) CITIZEN KANE (H/4)

j'ai essayé avec la formule =GAUCHE(B1;TROUVE(" ";B1;1)-1)
ou du type
=GAUCHE(B1;NBCAR(B1)-5)

mais je n'arrive pas au résultat souhaité qui est le suivant

CADOR DE BABEL
CAMPO JOSSELYN
CHERIF GRIFF
CEYLAN DAIRPET
COLORADO BLUE
CHRISTO
CHISTOU D'IRATY
CHOCOLAT DU BOURG
COLONEL
CRISTAL RIVER
CAPTAIN SPARROW
COW BOY GRIFF
CRAZY HORSE
CITIZEN KANE

merci d'avance pour votre aide

 

[Yurperqod]

Bonjour le forum

Dans le cas que tu décris, on peut faire Données/Convertir avec comme séparateur : /
(ou prendre comme séparateur : ( )
Il faut cocher colonne non distribuée pour les colonnes indésirables lors de la conversion.

 

[R@chid]

Bonjour,
essaie comme ça :

=GAUCHE(B1;TROUVE("(";B1)-2)

@ + +

 

[fanadegra]

Bonjour Yurperqod, Bonjour à tous,

je recherche une formule car c'est pour présenter le tout dans une nouvelle feuille.

Merci pour la proposition.

 

[fanadegra]

Bonjour R@chid,

c'est exactement ce que je recherchais.

Merci.

 

[JHA]

Bonjour à tous,

Avec stxt() et cherche()

JHA

 

[R@chid]

Bonjour,
Salut JHA
j'ai pas fait attention aux E? :

=STXT(B1;1+ESTNUM(STXT(B1;2;1)*1)*3;TROUVE("(";B1)-ESTNUM(STXT(B1;2;1)*1)*3-2)

@ + +

 

[fanadegra]

Merci très enrichissant

 

[Staple1600]

Bonjour à tous

Bonjour Yurperqod, Bonjour à tous,
je recherche une formule car c'est pour présenter le tout dans une nouvelle feuille.
Merci pour la proposition.

Je ne vois pas en quoi ce la est un problème ?
Ci-dessous une macro qui est le pendant VBA des manipulations suivantes:
1) Sélection de la colonne B
2) Utilisation de Données/Convertir
3) Edition/Remplacer:E? par rien

sub a()
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, Other:=True, OtherChar:="(", FieldInfo:=Array(Array(1, 1), Array(2, 9))
Selection.Offset(, 1).Replace What:="E? ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
end sub

Ce qui donne le résultat suivant

 

[Staple1600]

Re

La même macro qui inclue la recopie sur l'autre feuille et sans avoir rien à sélectionner

Sub b()
With Intersect([B:B], ActiveSheet.UsedRange.EntireRow) 'merci job75 ;-)
'Données/Comvertir
    .TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, Other:=True, OtherChar:="(", FieldInfo:=Array(Array(1, 1), Array(2, 9))
'Edition/Remplacer
    .Replace What:="E? ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
'Couper/Coller le résultat en feuille2
    .Cut Feuil2.[A1]
End With
End Sub

Ceci dit, tout ceci peut se faire sans macros
Selection de la colonne B
F5->Cellules/Constantes/Texte
Données/Convertir
CTRL+H- > E?espace remplacer par: ici laisser le champ vide
CTRL+X -> activer la feuille de recopie -> CTRL+V

 

[fanadegra]

Bonsoir Staple1600, bonsoir le forum

Merci pour tes propositions, effectivement c'est intéressant.