Extraire une chaine de caractères entre deux tiret

Bonjour à tous,

Dans une cellule Excel, je cherche à extraire une chaîne de caractères de la cellule A1. La chaîne de caractères est situés entre les deux tirets en partant de la droite du texte.

Exemple :

z15D - V1 - 13+34 - 14+65
z110 bis - V2BIS - 87+971 - 88+815
z45C - V1 - 397+975 - 398+250

Les Caractères à extraire sont soulignés et en gras.

Toutes mes tentatives d’extraction à l'aide d'une formule ne sont malheureusement pas satisfaisante.

Merci de bien vouloir me venir en aide ;)

jphflo

Bonjour

Vous ne précisez pas votre version d'Excel.

Avec 365 :

Code:

---

=TEXTE.AVANT(TEXTE.APRES(A1;"-";2);"-")

---

Stéphane

Bonjour

essaye :

Code:

---

=TEXTE.AVANT(TEXTE.APRES(A1;"-";-2);"-")

---

avec peut-être un supprespace en plus...

Bonsoir,

Merci pour vos réponses. Effectivement je n'ai pas précisé la version d'Excel... C'est modifier et je travail avec Excel 2013.

J'ai testé le code mais malheureusement il ne fonctionne pas, message renvoyé #NOM?

Cordialement,

jphflo

Bonsoir,

essayez la formule ci-dessous :

Code:

---

=GAUCHE(SUBSTITUE(SUBSTITUE(A1;GAUCHE(A1;TROUVE(" - ";A1)+2);"");GAUCHE(SUBSTITUE(A1;GAUCHE(A1;TROUVE(" - ";A1)+2);"");TROUVE(" - ";SUBSTITUE(A1;GAUCHE(A1;TROUVE(" - ";A1)+2);""))+2);"");TROUVE(" -";SUBSTITUE(SUBSTITUE(A1;GAUCHE(A1;TROUVE(" - ";A1)+2);"");GAUCHE(SUBSTITUE(A1;GAUCHE(A1;TROUVE(" - ";A1)+2);"");TROUVE(" - ";SUBSTITUE(A1;GAUCHE(A1;TROUVE(" - ";A1)+2);""))+2);""))-1)

---

;)

Bonjour

en regardant les caractères "espace" avant et après les "tirets" vous noterez que vous avez 2 types d'espace.
les espaces "normaux" en caractères 32 et les espaces insécables en 160
il se trouve que le texte que vous voulez extraire se trouve entre les caractères 160

voici les codes de votre texte en A1avec en rouge ce qui vous intéresse.

122 49 53 68 32 45 32 86 49 32 45 160 49 51 43 51 52 160 45 32 49 52 43 54 53


avec votre version d'excel pour devez pouvoir utiliser

Code:

---

=STXT(A1;TROUVE(CAR(160);A1)+1;TROUVE(CAR(160);A1;TROUVE(CAR(160);A1)+1)-TROUVE(CAR(160);A1)-1)

---

ou

Code:

---

=GAUCHE(DROITE(A1;NBCAR(A1)-TROUVE(CAR(160);A1));TROUVE(CAR(160);DROITE(A1;NBCAR(A1)-TROUVE(CAR(160);A1))))

---

Stéphane

Hello,
on peut aussi utiliser une fonction personnalisée (dans module vba) qui emploie les expressions régulières. Exemple (il y a d'autres motifs possibles) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Function ExtraireSousData(Data) As String Dim RE As Object, allMatches As Object Set RE = CreateObject("vbscript.regexp") ExtraireSousData = "ERREUR" RE.Pattern = ".+-.+-(.*)-.+" Set allMatches = RE.Execute(Data) If allMatches.Count = 1 Then ExtraireSousData = Trim(allMatches(0).SubMatches(0)) End If End Function

---

Pièce jointe 633172

Ami calmant, J.P