XL pour MAC extraire les caractères avant une occurence pas toujours présente

sousou

XLDnaute Barbatruc

• 26 Avril 2023

• #2

Une fonction perso ferait l'affaire

=f(lacellule)

Function f(c)
rangt = InStrRev(c, "-", -1)
f = Left(c, rangt - 1)
End Function

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 26 Avril 2023

• #3

Bonjour à tous,

Assez facile avec Power Query

JHA

 

Pièces jointes

• Cloum1.xlsx

  17 KB · Affichages: 9

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 26 Avril 2023

• #4

Bonjour,
Solution par le biais de Power Query
Bonne journée

 

Pièces jointes

• PQ_Conserver 3 délimiteurs.xlsx

  16.4 KB · Affichages: 6

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 26 Avril 2023

• #5

Bonjour à tous,

Avec une formule mais moins facile à mettre en oeuvre

VB:

=GAUCHE($A2;CHERCHE("£";SUBSTITUE(Tableau1[@Données];"-";"£";SOMMEPROD(--((STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))="-"))))-1)

JHA

 

Pièces jointes

• Cloum1 bis.xlsx

  17.9 KB · Affichages: 4

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 26 Avril 2023

• #6

Hello
une autre solution par fonction personnalisée

VB:

Function SupprimerIndice(textinit As Range) As String

fin = Split(textinit, "-")(UBound(Split(textinit, "-")))
If IsNumeric(fin) Then
    SupprimerIndice = WorksheetFunction.Substitute(textinit, "-" & fin, "")
Else
    SupprimerIndice = textinit
End If
End Function

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 26 Avril 2023

• #7

Bonjour à tous,

Suite remarque de @Cousinhub (que je salue), j'ai modifié la formule.

VB:

=SI(ESTNUM(DROITE(Tableau1[@Données];1)*1);GAUCHE($A2;CHERCHE("£";SUBSTITUE(Tableau1[@Données];"-";"£";SOMMEPROD(--((STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))="-"))))-1);Tableau1[@Données])

JHA

 

Pièces jointes

• Cloum1 bis.xlsx

  18 KB · Affichages: 6

Vote positif 0 Vote négatif

C

cloum1

XLDnaute Nouveau

• 26 Avril 2023

• #8

JHA à dit:

Bonjour à tous,

Assez facile avec Power Query

JHA

Cliquez pour agrandir...

Merci ! Ca a l'air de fonctionner pas mal sur ton fichier. Mais je ne connais pas Power Query. Je ne sais pas comment me servir de ton exemple, cette fonction n'est pas installé sur mon Excel j'ai l'impression. je vais me renseigner . Merci beaucoup en tout cas !

 

Vote positif 0 Vote négatif

C

cloum1

XLDnaute Nouveau

• 26 Avril 2023

• #9

oh merci !!

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 26 Avril 2023

• #10

Bonjour à tous ,

Oups ! J'avais oublié le fait que le texte pouvait ne pas finir par un chiffre...

Voici la formule corrigée :
Une petite formule matricielle en B1 à recopier vers le bas :

VB:

=SI(A1="";"";SI(ESTNUM(--DROITE(A1;1));GAUCHE(A1;MAX(SI(STXT(A1;LIGNE($1:$99);1)="-";LIGNE($1:$99)-1;"")));A1))

Remarque : 99 doit un nombre supérieur à la longueur maximum des chaines en colonne A. On pourrait le paramétrer mais ça alourdit la formule.

Formule matricielle (sur Apple, la touche contrôle doit correspondre à la touche "pomme") :

 

Pièces jointes

• cloum1- avant le dernier tiret- v1a.xlsx

  10 KB · Affichages: 4

Dernière édition: 26 Avril 2023

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Avril 2023

• #11

Bonsoir le fil

Test OK sur Office 365 (mais sur Windows)
(avec le jeu de données du message#1)
=JOINDRE.TEXTE("-";VRAI;TRANSPOSE(FILTRE.XML("<t><s>"&SUBSTITUE(A1;"-";"</s><s>")&"</s></t>";"//s[last()]/preceding::*")))
Avec les données en colonne A, saisir la formule ci-dessus en B1 puis recopier vers le bas

 

Vote positif 0 Vote négatif