VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère

[MJ13]

Bonjour à tous

Je cherche à extraire les carctères d'une cellule contenant un nom de dosssier. Mais je ne voudrais que le dernier dossier.


Ex: "C:\Dossier1\Dossier\Dossier3" Je voudrais trouver Dossier3

Merci d'avance .

 

[Pierrot93]

Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère

Bonjour Michel

regarde peut être ceci :

Dim t As String
t = "C:\Dossier1\Dossier\Dossier3"
MsgBox Split(t, "\")(UBound(Split(t, "\")))

bon après midi
@+

 

[job75]

Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère

Bonjour Michel, Pierrot,

Ou aussi :

Dim t As String
t = "C:\Dossier1\Dossier\Dossier3"
MsgBox Mid(t, InStrRev(t, "\") + 1)

A+

 

[job75]

Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère

Re,

Par formule matricielle, le texte étant en A1 :

=DROITE(A1;NBCAR(A1)-MAX((STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)="\")*LIGNE(INDIRECT("1:"&NBCAR(A1)))))

Edit : on peut bien sûr la simplifier, si le texte n'a jamais plus de 1000 caractères :

=DROITE(A1;NBCAR(A1)-MAX((STXT(A1;LIGNE(1:1000);1)="\")*LIGNE(1:1000)))

A1

 

[MJ13]

Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère

Bonjour Pierrot, Job

Merci beaucoup pour vos codes . C'est super .

 

[tototiti2008]

Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère

Bonsoir Michel, Pierrot, Gérard,

ou formule non matricielle

=STXT(A1;CHERCHE("µ";SUBSTITUE(A1;"\";"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";""))))+1;1000)

 

[MJ13]

Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère

Bonjour Tototiti

Merci aussi pour ta solution .