XL 2013 Extraction de mots d'une cellule selon condition

momo · 21 Janvier 2019

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 · 21 Janvier 2019

Bonjour

avec une fonction personnalisée

VB:

 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 · 21 Janvier 2019

vgendron à dit:

Bonjour

avec une fonction personnalisée

VB:

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 · 21 Janvier 2019

Bonsoir @momo, @vgendron,

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

VB:

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

momo · 22 Janvier 2019

mapomme à dit:
Bonsoir @momo, @vgendron,

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

VB:

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

Excellent!

Il marche super Merci mapomme

XL 2013 Extraction de mots d'une cellule selon condition

momo

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

momo

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

momo

XLDnaute Occasionnel

Discussions similaires