Extraire des mots spécifiques d'une cellule

Bonjour,

j'aimerais savoir comment faire pour extraire dans des cellules des mots spécifiques.

dans les cases (cf fichier) je souhaite extraire et mettre à part certains mots.... dans mon cas, PS3, PS4, SWITCH, DS, PS2... je suis passé par convertir, mais ça ne me va pas, car le problème c'est que ces mots recherchés ne sont jamais au même endroit dans la cellule... des fois en début de ligne, des fois au milieu, à la fin ...

pouvez vous m'aider ?

merci

Bonjour

Tu devrais nous donner un exemple du résultat souhaité...

Bye !

bonjour GMB, tu as raison, j'ai refais mon fichier pour que cela soit plus explicite...

merci de ton aide

Bonjour,

Une proposition Power Query.
A te relire.
Cdlt.

hello Jean-eric,

je vais devoir me former à power query :)

sur ton tableau je ne vois pas ou est le résultat ?

les 3 cases de mots clés ont quelle action sur la colonne ??

P.S: mon résultat final est d'avoir dans un cellule (sur la même ligne) l'extraction des mots clés choisis :)

merci de ton aide

Re,

Donne un petit exemple de résultat.
Sinon, le dernier tableau (à droite) énumère les libellés du tableau qui contiennent un des mots-clés.
Sélectionne Swirch et DS. Déplace la sélection dans le tableau Mots-Clés et actualise la requête.
A te relire.
Cdlt;

ça n'a pas du tout la forme que j'attendais mais je t'avoue que ça peut m'aider... pour power query et faire ce que tu as fait... un petit tour sur youtube c'est le mieux pour moi ??

cette méthode marchera si je veux que il y ait plusieurs colonnes qui apparaissent avec ma selection ?

exemple une colonne avec le prix pour chaque ligne ?

merci encore

Un essai à tester. Te convient-il ?

Option Explicit

Dim tablo, tabloM, tabloR()
Dim i&, im&

Sub Extraire()

    tablo = Range("B1").CurrentRegion
    tabloM = Range("D1").CurrentRegion
    ReDim tabloR(1 To UBound(tablo, 1), 1 To 2)

    For i = 2 To UBound(tablo, 1)
        For im = 2 To UBound(tabloM, 1)
            If tablo(i, 1) Like "*" & tabloM(im, 1) & "*" Then
                tabloR(i - 1, 1) = Replace(tablo(i, 1), tabloM(im, 1), "")
                tabloR(i - 1, 1) = Replace(tabloR(i - 1, 1), " ()", "")
                tabloR(i - 1, 2) = tabloM(im, 1)
            End If
        Next im
    Next i
    Range("F2").Resize(UBound(tablo, 1), 2).ClearContents
    Range("F2").Resize(UBound(tablo, 1), 2) = tabloR
End Sub

Bye !

Bonjour à tous,

avec une fonction personnalisée
eric

Re,

Je t'ai demandé un exemple de résultat souhaité. Aucun retour !
Maintenant, tu veux inclure des prix !
Alors, on fait comment ?
Cdlt.

Jean -Eric, tu regarderas je t'ai répondu !

j'ai d'ailleurs modifié le fichier ! dans la réponse que je t'avais envoyé !

et oui je demandais si ta méthode fonctionnait avec une deuxième colonne....

Merci GMB et eriic :) :)

je vais tester ce soir :)

Merci beaucoup pour votre aide

Salut Jean Talus,
Salut la fine équipe,

et une autre pour la route...

En [A:A], tu adaptes la liste des mots à rechercher.
Un double-clic sur la feuille démarre la macro.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tTab, iRow%, iIdx%
'
Cancel = True
Columns("D:E").Delete shift:=xlToLeft
iRow = Range("A" & Rows.Count).End(xlUp).Row
tTab = Range("A1:E" & Range("B" & Rows.Count).End(xlUp).Row).Value
'
tTab(1, 4) = "Résultats"
For x = 2 To UBound(tTab, 1)
    iIdx = 0
    For y = 1 To iRow
        If InStr(tTab(x, 2), tTab(y, 1)) > 0 Then
            If iIdx > 0 Then _
                If Len(tTab(y, 1)) > Len(tTab(iIdx, 1)) Then iIdx = y
            If iIdx = 0 Then iIdx = y
        End If
        If iIdx > 0 Then
            tTab(x, 5) = tTab(iIdx, 1)
            tTab(x, 4) = RTrim(Replace(CStr(tTab(x, 2)), CStr(tTab(iIdx, 1)), ""))
            If Right(tTab(x, 4), 2) = "()" Then tTab(x, 4) = RTrim(Split(tTab(x, 4), "()")(0))
        End If
    Next
Next
Range("A1").Resize(UBound(tTab, 1), 5).Value = tTab
Columns.AutoFit
'
End Sub

A+

Excellent Curulis :)

Merci à vous tous, c'est top !!!!