XL 2013 Extraction de mots d'une cellule selon condition

[momo]

Bonjour à tous

J'ai une chaîne de caractère dans une cellule, je voudrais selon un critère (Contient un mot défini), extraire le mot qui contient le critère renvoyé

je vous joins un fichier qui décrit plus en détail ma demande

 

[vgendron]

Bonjour

avec une fonction personnalisée

 Function extrairemotdechaine(cel1 As Range, cel2 As Range)
tablo = Split(cel1, " ")
For i = LBound(tablo) To UBound(tablo)
    If InStr(1, tablo(i), cel2) Then
        extrairemotdechaine = tablo(i)
        Exit For
    End If
Next i
End Function

 

[momo]

Bonjour

avec une fonction personnalisée

Function extrairemotdechaine(cel1 As Range, cel2 As Range)
tablo = Split(cel1, " ")
For i = LBound(tablo) To UBound(tablo)
    If InStr(1, tablo(i), cel2) Then
        extrairemotdechaine = tablo(i)
        Exit For
    End If
Next i
End Function

C'est cooooooool
Ca marche impec!
Merci bcp
Bonne soirée

 

[mapomme]

Bonsoir @momo, @vgendron,

La même chose par formule. Formule en G2 à tirer vers le bas:

=SUPPRESPACE(DROITE(SUBSTITUE(GAUCHE(A2;CHERCHE(" ";A2&" ";CHERCHE(C2;A2))-1);" ";REPT(" ";255));255))

 

[momo]

Bonsoir @momo, @vgendron,

La même chose par formule. Formule en G2 à tirer vers le bas:

=SUPPRESPACE(DROITE(SUBSTITUE(GAUCHE(A2;CHERCHE(" ";A2&" ";CHERCHE(C2;A2))-1);" ";REPT(" ";255));255))

Excellent!

Il marche super Merci mapomme