Rechercher une valeur et coller dans la colonne suivante

Bonjour tout le monde,

Je souhaite faire une recherche d'un mot dans la colonne A puis la copier dans la cellule correspondante de la colonne B comme dans le fichier joint.

Merci d'avance pour votre précieuse aide.

Voici un début de script:

Salut Brodyeva,

comme ça peut être?

Sub CopieTexte()
Dim LastRow As Long
Dim val As String
LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
        val = Cells(i, 1).value
        Cells(i, 2).value = Right(val, Len(val) - (InStrRev(val, " ")))
    Next i
End Sub

Bonjour m3ellem1,

Merci beaucoup pour ta réponse mais ça ne répond pas à ma préoccupation parce que ton code copie les données dans une nouvelle colonne.

Je cherche plutôt à faire une recherche d'une liste de valeur (test1,test2, test3...,test20) dans la colonne A et si trouver, la copier dans la colonne B.

...

Merci.

Sorry Brodyeva,

j'ai mal compris ta demande.

à tester

Sub Sub CopieTexte()
    Dim myarray As Variant, r As Variant
    Dim LastRow, i As Long

    myarray = Array("test1", "test2", "test3", "test4", "test5", "test6", "test7", "test8", "test9", "test10", "test11", "test12", "test13", "test14", "test15", "test16", "test17", "test18", "test19", "test20")

    LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    For i = 2 To LastRow
        For Each r In myarray
            If InStr(1, LCase(Cells(i, 1).Value), r) <> 0 Then
                Cells(i, 2).Value = r
            End If
        Next r
    Next i
End Sub

Allo m3ellem1,

C'est parfait! Ca fonctionne tres bien. Juste wow et un gros merci.

bonjour,

en colonne C, cela est fait avec une plage avec les valeurs à rechercher et des formules et s'il y a plusieurs matches, on prend le dernier. Le premier est aussi possible.