Extraction et report de termes

Bonjour,

Je souhaiterais trouver une macro qui me permette d'extraire une liste de termes existants dans les cellules d'une colonne vers les cellules correspondantes d'une autre colonne.

Ci-joint un exemple avec le résultat souhaité.

(Sachant que j'ai plus de 30 termes différents, cela bloque avec une simple formule car trop longue.)

En vous remerciant pour vos retours.

Très bonne journée à vous

Pierre

Bonjour,

Ci-joint une proposition à tester, en VBA.

La liste des termes à rechercher est dans une colonne dédiée.

Bouben

Bonjour Bouben,

Super travail, je viens de tester et cela semble très bien fonctionner. Très simple à enrichir par la suite !

Merci beaucoup et très bonne journée,

Je me permet de revenir sur le sujet.

Il me manque un petit détail sur la formule.

Est-il possible de venir chercher le terme exacte ?

Le problème : Je souhaites extraire "Women's" et "Men's", hors dans les cellules "Women's", ce dernier vers m'extraire la fin du mot donc "Men's".

En vous remerciant par avance,

Très bonne journée à vous,

Pierre

Pour rappel, le travail était le suivant :

Option Explicit

Public Sub Recherche()

    Dim iDerLig As Integer
    Dim iLig As Integer
    Dim colTermes As Collection
    Dim vTerme As Variant

    Set colTermes = New Collection

    'liste des termes
    iDerLig = Range("P" & Rows.Count).End(xlUp).Row

    For iLig = 2 To iDerLig
        colTermes.Add Range("P" & iLig).Value
    Next iLig

    iDerLig = Range("C" & Rows.Count).End(xlUp).Row

    'efface le résultat
    Range("D1:D" & iDerLig).ClearContents

    'parcours
    For iLig = 2 To iDerLig
        For Each vTerme In colTermes
            If InStr(1, UCase(Range("C" & iLig).Value), UCase(vTerme)) > 0 Then
                Range("D" & iLig).Value = vTerme
            End If
        Next vTerme
    Next iLig

    Set colTermes = Nothing

End Sub

Bonjour,

Ci-joint une nouvelle version, avec recherche du mot complet.

NB : lorsque plusieurs mots sont trouvés, actuellement, seul un mot est restitué

Bouben