S SERRANO XLDnaute Nouveau 16 Octobre 2018 #1 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
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 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
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 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
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+
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
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+