MJ13 XLDnaute Barbatruc 11 Mars 2013 #1 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 .
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 XLDnaute Barbatruc 11 Mars 2013 #2 Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère Bonjour Michel regarde peut être ceci : Code: Dim t As String t = "C:\Dossier1\Dossier\Dossier3" MsgBox Split(t, "\")(UBound(Split(t, "\"))) bon après midi @+ Vote positif 0 Vote négatif
Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère Bonjour Michel regarde peut être ceci : Code: Dim t As String t = "C:\Dossier1\Dossier\Dossier3" MsgBox Split(t, "\")(UBound(Split(t, "\"))) bon après midi @+
job75 XLDnaute Barbatruc 11 Mars 2013 #3 Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère Bonjour Michel, Pierrot, Ou aussi : Code: Dim t As String t = "C:\Dossier1\Dossier\Dossier3" MsgBox Mid(t, InStrRev(t, "\") + 1) A+ Vote positif 0 Vote négatif
Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère Bonjour Michel, Pierrot, Ou aussi : Code: Dim t As String t = "C:\Dossier1\Dossier\Dossier3" MsgBox Mid(t, InStrRev(t, "\") + 1) A+
job75 XLDnaute Barbatruc 11 Mars 2013 #4 Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère Re, Par formule matricielle, le texte étant en A1 : Code: =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 : Code: =DROITE(A1;NBCAR(A1)-MAX((STXT(A1;LIGNE(1:1000);1)="\")*LIGNE(1:1000))) A1 Dernière édition: 11 Mars 2013 Vote positif 0 Vote négatif
Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère Re, Par formule matricielle, le texte étant en A1 : Code: =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 : Code: =DROITE(A1;NBCAR(A1)-MAX((STXT(A1;LIGNE(1:1000);1)="\")*LIGNE(1:1000))) A1
MJ13 XLDnaute Barbatruc 11 Mars 2013 #5 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 . Vote positif 0 Vote négatif
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 XLDnaute Barbatruc 11 Mars 2013 #6 Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère Bonsoir Michel, Pierrot, Gérard, ou formule non matricielle Code: =STXT(A1;CHERCHE("µ";SUBSTITUE(A1;"\";"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";""))))+1;1000) Vote positif 0 Vote négatif
Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère Bonsoir Michel, Pierrot, Gérard, ou formule non matricielle Code: =STXT(A1;CHERCHE("µ";SUBSTITUE(A1;"\";"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";""))))+1;1000)
MJ13 XLDnaute Barbatruc 11 Mars 2013 #7 Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère Bonjour Tototiti Merci aussi pour ta solution . Vote positif 0 Vote négatif
Re : VBA: Extraire les derniers caractères d'une cellule par rapport à un caractère Bonjour Tototiti Merci aussi pour ta solution .