Extraire texte depuis cellule excel se trouvant entre caract.

job75

XLDnaute Barbatruc

• 27 Juin 2017

• #2

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+

 

Vote positif 0 Vote négatif

M

MSijij7929200

XLDnaute Nouveau

• 27 Juin 2017

• #3

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!

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 27 Juin 2017

• #4

Bonjour MSijij7929200 Bonjour Job 🙂

En passant et en attendant mieux.

Cordialement

 

Pièces jointes

• MSijij7929200.xlsx

  8.1 KB · Affichages: 66

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Juin 2017

• #5

Bonsoir Efgé, heureux de te croiser,

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

Code:

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+

 

Pièces jointes

• Extract(1).xlsm

  21.2 KB · Affichages: 32

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Juin 2017

• #6

Re,

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

Code:

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+

 

Pièces jointes

• Extract(2).xlsm

  21.2 KB · Affichages: 41

Dernière édition: 27 Juin 2017

Vote positif 0 Vote négatif

M

MSijij7929200

XLDnaute Nouveau

• 27 Juin 2017

• #7

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

 

Vote positif 0 Vote négatif

M

MSijij7929200

XLDnaute Nouveau

• 27 Juin 2017

• #8

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!

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Juin 2017

• #9

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

 

Pièces jointes

• MSijij7929200(2).xlsx

  8 KB · Affichages: 42

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 1 Juillet 2017

• #10

Bonjour à tous

On peux raccourcir 😉

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

 

Pièces jointes

• MSijij7929200(3).xlsx

  8 KB · Affichages: 47

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2017

• #11

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 :

Code:

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

A+

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 1 Juillet 2017

• #12

Re
Merci Job 🙂

Mais.... ...pourquoi 32767 ?

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2017

• #13

Re,

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

A+

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 1 Juillet 2017

• #14

Merci Job 🙂

 

Vote positif 0 Vote négatif