Extraire dernier mot (nombre de caracteres aleatoires) d'une cellule

Delux · 30 Novembre 2012

Bonjour a tous,

Desole pour les accents je bosse sur QWERTY.

Je souhaite extraire le dernier mot d'une cellule dont le nombre de caracteres est aleatoire.

Ex: la cellule Z2 contient : "C:\Documents and Settings\clt\Desktop\blabla\Monthly Meeting\Users
Je souhaite extraire en AA2 = "Users".

Cependant, Z2 est succeptible de changer, "C:\Documents and Settings\clt\Desktop\blabla\Monthly Meeting\Archives"

etc...

Auriez vous une solution pour ce probleme?

Merci d'avance.

Cordialement,

Delux

Dugenou · 30 Novembre 2012

Re : Extraire dernier mot (nombre de caracteres aleatoires) d'une cellule

Bonjour,
Si tu travailles toujours dans le même répertoire, le nb de caractères à éliminer est fixe (61 dans ton exemple avec blabla).
Donc avec : =DROITE(Z2;NBCAR(Z2)-61)
Cordialement

Robert · 30 Novembre 2012

Re : Extraire dernier mot (nombre de caracteres aleatoires) d'une cellule

Bonjour Delux, Dugenou, bonjour le forum

Une proposition VBA :

Code:

Sub Macro1()
'la fonction "Split" sépare les parties entre le délimiteur (ici "\") sous forme de tableau
'la fonction Ubound renvoie le nombre du dernier élément d'un tableau
Range("AA2").Value = Split(Range("Z2").Value, "\")(UBound(Split(Range("Z2").Value, "\")))
End Sub

Delux · 30 Novembre 2012

Re : Extraire dernier mot (nombre de caracteres aleatoires) d'une cellule

Duguenou, Robert,

Merci pour vos reponses.
Je pense que je vais garder la solution de Robert vu que je pensais utiliser AA2 dans une macro.

Merci

Delux · 30 Novembre 2012

Re : Extraire dernier mot (nombre de caracteres aleatoires) d'une cellule

Robert à dit:

Bonjour Delux, Dugenou, bonjour le forum

Une proposition VBA :

Code:

Sub Macro1()
'la fonction "Split" sépare les parties entre le délimiteur (ici "\") sous forme de tableau
'la fonction Ubound renvoie le nombre du dernier élément d'un tableau
Range("AA2").Value = Split(Range("Z2").Value, "\")(UBound(Split(Range("Z2").Value, "\")))
End Sub

Robert,

Juste par curiosite, si je veux le dernier mot et le precedent ("Monthly Meeting\Users"), comment modifier votre macro pour y parvenir?

Merci d'avance

Cordialement,

Delux

R@chid · 4 Décembre 2012

Re : Extraire dernier mot (nombre de caracteres aleatoires) d'une cellule

Bonsoir @ tous,
Salut Dugenou , Salut Robert ,

une solution par formule, si les données sont en Colonne A, en B2,

Code:
Formule Classique,

Code:

=DROITE(A2;NBCAR(A2)-TROUVE("*";SUBSTITUE(A2;"\";"*";NBCAR(A2)-NBCAR(SUBSTITUE(A2;"\";"")))))

@ valider par Simple Entree
@ tirer vers le bas

Code:
Formule Matricielle,

Code:

=DROITE(A2;EQUIV("\";STXT(A2;NBCAR(A2)-LIGNE(INDIRECT("1:"&NBCAR(A2)));1);0))

@ valider par Ctrl+Maj+Entree
@ tirer vers le bas

Voir PJ...

Amicalement

bof · 4 Décembre 2012

Re : Extraire dernier mot (nombre de caracteres aleatoires) d'une cellule

Delux à dit:
comment modifier la macro pour obtenir "Monthly Meeting\Users"

Code:

Sub Macro()
tablo = Split([Z2], "\")
i = UBound(tablo)
[AA2] = tablo(i - 1) & "\" & tablo(i)
End Sub

A+

R@chid · 4 Décembre 2012

Re : Extraire dernier mot (nombre de caracteres aleatoires) d'une cellule

Bonsoir @ tous,
Voir PJ
Amicalement

Extraire dernier mot (nombre de caracteres aleatoires) d'une cellule

Delux

XLDnaute Occasionnel

Dugenou

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Delux

XLDnaute Occasionnel

Delux

XLDnaute Occasionnel

R@chid

XLDnaute Barbatruc

Pièces jointes

bof

XLDnaute Occasionnel

R@chid

XLDnaute Barbatruc

Pièces jointes

Discussions similaires