Microsoft 365 Extraction de données dans Excel

[jeannoelanderruthy]

Bonjour,
J'ai une (seule) colonne avec, dans chaque cellule, des valeurs comme :
bracelet améthyste
collier aigue-marine AA
etc.
Je souhaiterais extraire uniquement les noms des pierres en m'appuyant sur un tableau qui contient la liste complète :
améthyste
aigue-marine
etc.
En bref, c'est une manière de nettoyer la colonne sans en passer par une suppression des données situées avant ou après (le nom de la pierre peut se trouver à n'importe quel endroit de la cellule qui, elle-même peut contenir des informations très différentes).
J'avais l'impression que ça pouvait être fait avec rechercheX mais, d'une certaine manière, la démarche est, dans ce cas, inverse.
Merci pour votre aide ou vos suggestions.

 

[sylvanu]

Bonjour jeannoelanderruthy, et bienvenu sur XLD.
N'auriez vous pas un petit fichier test, cela éviterait de répondre à coté, ou de fournir une solution que vous devriez ré adapter.
D'autre part, acceptez vous le VBA ?

 

[flc13090]

Salut,
Un début de piste.

Sub JeCherche()
Dim xlWbk As Workbook
Dim xlWsh As Worksheet
Dim lastRow As Long
Dim strCrit As Variant
Dim i As Integer, j As Integer

Set xlWbk = ThisWorkbook
Set xlWsh = xlWbk.Worksheets("Feuil1")

lastRow = xlWsh.Cells(xlWsh.Rows.Count, 1).End(xlUp).Row
strCrit = xlWsh.Range("F1")

For i = 2 To lastRow
    If InStr(1, Range("A" & i), strCrit) <> 0 Then
        j = j + 1
        Range("C" & j + 1 & ":C" & j + 1) = Range("A" & i & ":A" & i).Value
    End If
Next i
End Sub