Fonction Droite Fermé

Question

Bonjour, 


J'ai les chaines de caractères suivantes :
/location_voiture_sport_C143
/location_voiture_tourisme_familial_BM1430
/vente_camping_car_tourisme_EU1


Je souhaite extraire que la référence qui se situe après le dernier _
C143
BM1430
EU1

J'ai tenté plusieurs choses sans succès

Si vous aviez une piste à me communiquer...

Merci
Christophe

Gyrus · Answer

Bonjour,

Tu peux utiliser cette fonction personnelle
Function TrouveRef(Cel As Range) As StringDim Tablo    Tablo = Split(Cel, "_")    TrouveRef = Tablo(UBound(Tablo))End Function

A+

tontong · Answer

Bonjour,
Sans macro:
On cherche le nombre d'underscores _
=NBCAR(A1)-NBCAR(SUBSTITUE(A1;"_";""))

On remplace le dernier par le caractère §
=SUBSTITUE(A1;"_";"§";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"_";"")))

Avec Stxt on récupère les 99 caractères qui suivent § (localisé avec Cherche)
=STXT(A1;CHERCHE("§";SUBSTITUE(A1;"_";"§";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"_";""))))+1;99)

foo · Answer

Bonjour

avec une macro

Sub TestSplit1()
Dim Ref
   For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
      Ref = Split(Cells(L, 1), "_")
      Cells(L, 2).Value = Ref(UBound(Ref))
   Next
End Sub

A+
Maurice

Fonction Droite

3 réponses

Discussions similaires