Extraire texte depuis cellule excel se trouvant entre caract.

[MSijij7929200]

Bonjour,
je me casse la tête à trouver une formule (en anglais ce serait top! pour extraire une partie de texte depuis une cellule.

Je ne peux pas utiliser GAUCHE ou DROITE car mes BDD varient à souhait, ni les CHERCHE, je ne peux pas compter à parti d'un certain nombre de caractères et surtout la chaine s'arrête après d'autres caractères.

Un exemple sera plus concret:
RT CHFR 3-30j Produits [**:Tucroisquecamarche][sg:TG][ca:RC][st:blablabli][dv:uiouinon][la:FR][pa:CH][ob:camarcheencore]

Je voudrais extraire de ceci "Tucroisquecamarche" dans une autre cellule, puis "blablabli" dans une autre cellule puis "camarcheencore" dans une autre cellule etc...

Merciiiii d'avance pour votre si précieuse aide!

 

[job75]

Bonjour MSijij7929200, bienvenue sur XLD,

A partir de quel(s) critère(s) voulez-vous extraire les textes ?

Vous seul pouvez répondre, pas nous !

A+

 

[MSijij7929200]

Hello

voici mes critères:
- extraire ce qui se trouve entre [**: et ] => ici "Tucroisquecamarche"
- extraire ce qui se trouve entre [sg: et ] => ici "TG"
- extraire ce qui se trouve entre [ca: et ] => ici "RC"

Mercii!

 

[Efgé]

Bonjour MSijij7929200 Bonjour Job

En passant et en attendant mieux.

Cordialement

 

[job75]

Bonsoir Efgé, heureux de te croiser,

Si l'on veut toujours extraire les 1er, 4ème, 8ème textes entre crochets :

Function Extract$(t$, n%)
Dim critere, i%, j%
critere = Array(1, 4, 8) 'liste des critères, à adapter
For i = 1 To Len(t)
  If Mid(t, i, 1) = "[" Then j = j + 1
  If j = critere(n - 1) Then
    If Mid(t, i + 1, 1) = "]" Then Exit Function
    For j = i + 2 To Len(t)
      If Mid(t, j, 1) = "]" Then Exit For
    Next
    t = Mid(t, i + 1, j - i - 1)
    j = InStr(t, ":")
    Extract = Trim(Mid(t, j + 1))
    Exit Function
  End If
Next
End Function

Cette fonction doit être placée dans un module standard pour pouvoir être utilisée dans la feuille.

Fichier joint.

A+

 

[job75]

Re,

Avec les critères choisis dans des listes de validation en B1 C1 D1 c'est plus simple :

Function Extract$(t$, critere%)
If critere = 0 Then Exit Function
Dim i%, j%
For i = 1 To Len(t)
  If Mid(t, i, 1) = "[" Then j = j + 1
  If j = critere Then
    If Mid(t, i + 1, 1) = "]" Then Exit Function
    For j = i + 2 To Len(t)
      If Mid(t, j, 1) = "]" Then Exit For
    Next
    t = Mid(t, i + 1, j - i - 1)
    j = InStr(t, ":")
    Extract = Trim(Mid(t, j + 1))
    Exit Function
  End If
Next
End Function

Fichier (2).

A+

 

[MSijij7929200]

On ne joue pas dans la même cour! Merci pour la réponse je vais (tenter) de comprendre ceci et je reviens vers vous asap)

Merci merci

 

[MSijij7929200]

Hello

J ai pris celui de Efgé car plus accessible pour moi je vais transformer tout ceci en pivot table et je souhaite savoir si la colone B2 [**: peut être renommée pour que cela fasse plus sens lors de la construction du pivot table. par exemple [**: signifie "achat", comment puis je le renommer en conservant la même formule? merci encore!

 

[Efgé]

Bonjour à tous, le fil, le forum

On peux se passer de la ligne 1 au prix d'un allongement de la formule.
A toi de voir

Cordialement

 

[Efgé]

Bonjour à tous

On peux raccourcir

Si quelqu'un a mieux, ça m'interresse
Cordialement

 

[job75]

Bonjour Fred,

Les ;1 dans chacun des 2 TROUVE sont inutiles, en les supprimant on gagne 6 octets en mémoire.

En remplaçant NBCAR($A2) par 32767 on gagne encore 5 octets.

Au total cette formule fait donc gagner 11 octets :

=SIERREUR(STXT($A2;TROUVE("@";SUBSTITUE($A2;"[";"@";COLONNES($A:A)))+4;TROUVE("]";STXT($A2;TROUVE("@";SUBSTITUE($A2;"[";"@";COLONNES($A:A)))+4;32767))-1);"")

A+

 

[Efgé]

Re
Merci Job

Mais.... ...pourquoi 32767 ?

Cordialement

 

[job75]

Re,

32767 est le nombre maximum de caractères acceptés dans une cellule, c'est un entier court (2 octets).

A+

 

[Efgé]

Merci Job