XL 2013 Extraire

SERRANO

XLDnaute Nouveau
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
 

job75

XLDnaute Barbatruc
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

job75

XLDnaute Barbatruc
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

Membres actuellement en ligne

Statistiques des forums

Discussions
312 248
Messages
2 086 593
Membres
103 248
dernier inscrit
Happycat