Recherche de plusieurs chaînes de caractère...

[wolfens77]

Bonjour

Après moulte recherche et test, je me tourne vers vous. L'explication est simple mais je ne sais pas si avec excel cela est possible, je m'explique:

sur la Feuil1 en colonne A j'ai 800 lignes avec du texte.

sur la Feuil2 en colonne A j'ai 10 lignes avec des mots et en B les Mots modifié selon mon besoin.


j'aimerai rechercher si dans ma Colonne A de la feuil1 un des 10 mots et présent et si oui mettre en colonne B(de la feuil1) le mot modifié.

j'ai essayé avec recherchev mais comme il s'agit plutôt de chaîne de caractère cela ne fonctionne pas.

je met un fichier pour être plus clair encore.

 

[GeoTrouvePas]

Re : Recherche de plusieurs chaînes de caractère...

Bonjour,

La macro suivante devrait convenir :

Sub Test()
    j = 1
    While ThisWorkbook.Sheets("Sheet1").Cells(j, 1) <> ""
        i = 1
        While ThisWorkbook.Sheets("Sheet2").Cells(i, 1) <> ""
            If ThisWorkbook.Sheets("Sheet1").Cells(j, 1) <> Replace(ThisWorkbook.Sheets("Sheet1").Cells(j, 1), ThisWorkbook.Sheets("Sheet2").Cells(i, 1), ThisWorkbook.Sheets("Sheet2").Cells(i, 2)) Then
                ThisWorkbook.Sheets("Sheet1").Cells(j, 2) = ThisWorkbook.Sheets("Sheet2").Cells(i, 2)
            End If
            i = i + 1
        Wend
        j = j + 1
    Wend
End Sub

 

[wolfens77]

Re : Recherche de plusieurs chaînes de caractère...

Merci pour ton retour rapide,

j'ai testé ta macro et tout marche nikel merci encore de ton aide.

 

[GeoTrouvePas]

Re : Recherche de plusieurs chaînes de caractère...

Mais de rien voyons !

Bonne journée !