XL 2013 Extraire

Robert

XLDnaute Barbatruc

Repose en paix

• 16 Octobre 2018

• #2

Bonjour Valérie, bonjour le forum,

Une seule donnée ne nous permettra pas de te donner une solution fiable. Est-ce que les données de chaque colonne ont la même structure que dans ton exemple ?...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2018

• #3

Bonjour SERRANO, bienvenue sur XLD, salut Robert,

Avec cette fonction VBA :

Code:

Function Extract$(t$)
If InStr(t, "-") = 0 Then Exit Function
Dim s
s = Split(t, "-")
Extract = s(UBound(s) - 1)
End Function

Le code est à placer dans un module standard pour pouvoir être utilisé dans une feuille de calcul.

Fichier joint.

A+

 

Pièces jointes

• Extract par VBA(1).xlsm

  19 KB · Affichages: 16

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2018

• #4

Re,

On peut faire avec une formule Excel mais c'est un peu lourdingue :

Code:

=SIERREUR(STXT(A2;TROUVE("µ";SUBSTITUE(A2;"-";"µ";NBCAR(A2)-NBCAR(SUBSTITUE(A2;"-";))-1))+1;TROUVE("µ";SUBSTITUE(A2;"-";"µ";NBCAR(A2)-NBCAR(SUBSTITUE(A2;"-";))))-TROUVE("µ";SUBSTITUE(A2;"-";"µ";NBCAR(A2)-NBCAR(SUBSTITUE(A2;"-";))-1))-1);"")

Fichier joint.

A+

 

Pièces jointes

• Extract par formule(1).xlsx

  14.4 KB · Affichages: 15

Vote positif 0 Vote négatif

S

SERRANO

XLDnaute Nouveau

• 16 Octobre 2018

• #5

Super merci

 

Vote positif 0 Vote négatif