XL 2013 Extraire

[SERRANO]

Bonjour à tous,

Je souhaiterai extraire de ceci

2017-20210-202646-1
202646

et pour une autre colonne

2018-511427-1
511427

Merci à vous

Valérie

 

[Robert]

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 ?...

 

[job75]

Bonjour SERRANO, bienvenue sur XLD, salut Robert,

Avec cette fonction VBA :

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+

 

[job75]

Re,

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

=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+

 

[SERRANO]

Super merci