Extraire partie de cellule

Bonjour à tous,

La réponse a ma question est certainement très simple, mais je bloque.

En cellule A1 j'ai par exemple 150/RENAME/COULEUR/JAUNE

J'aimerais extraire en B1 par une formule que le mot JAUNE.

Merci d'avance

Bonjour Damsa17

Non ce n'est pas si simple que ça, le terme se trouvant à la fin de la chaine

On peut passer par plusieurs étapes dans plusieurs colonnes ou créer une petite fonction VBA

@+

Bonjour à tous,

Pour relever le petit défi lancé par BrunoM45, je tente un essai en supposant qu'il y aura toujours 3 séparateurs "/" :

=STXT(A1;CHERCHE("/";A1;CHERCHE("/";A1;CHERCHE("/";A1)+1)+1)+1;NBCAR(A1))

Sinon, je pense en effet que la fonction personnalisée s'imposera.

Cdlt,

Bonjour tout le monde,

Un essai par vba,

Sub test()
 Dim c
  c = Split(Range("A1"), "/")
  Range("B1") = c(UBound(c))
End Sub

Cordialement,

Merci 3GB d'être passé par ici

3GB a écrit :

Pour relever le petit défi lancé par BrunoM45, je tente un essai en supposant qu'il y aura toujours 3 séparateurs "/" :

=STXT(A1;CHERCHE("/";A1;CHERCHE("/";A1;CHERCHE("/";A1)+1)+1)+1;NBCAR(A1))

Sinon, je pense en effet que la fonction personnalisée s'imposera.

Que je peux être bête parfois

Noooon, tu n'es pas bête ! Et il est vrai qu'avec plus de 3 séparateurs, ça commencerait à faire long la formule...

Comme toi, je serais plutôt d'avis d'utiliser une fonction personnalisée, inspirée de la macro de xorsankukai :

function EXTRACT$(chaine$, optional separateur$, optional part as integer)
if separateur = "" then separateur = "/"
t = application.transpose(application.transpose(split(chaine, separateur)))
if part <= 0 or part > ubound(t) then part = ubound(t)
EXTRACT = t(part)
end function

Cdlt,

Merci à tous,

Ne voulant pas passer par de macro pour cette partie,

J'ai opté pour une autre solution.

Mais je garde vos précieux message sous le coude, On ne sait jamais