Bouttons VBA pour trouver informations dans worbook Excel

Salut les experts

J' ai besoin de votre aide pour m ' aider à programmer un bouton vba qui me permet de récupérer les valeurs CPC dans le fichier "Master Keywords" qui se trouve dans les colonnes D , afin d' identifier et récopier ces valeur a condition qu' il on les meme valeur "keywords" en colonne "B " qui se trouve dans le workbook "Keyword to find ppc"

il faudrait identifier ces valeur "CPC" du fichier "Master Keywords" et après qu' il soit recopier les "CPC" correspondant en colonne C du fichier "Keyword to find ppc", seul

S' il n' y pas de correspondances entre les "Keywords" , juste marquer "pas trouver CPC" en colonne B du fichier "Keyword to find ppc"

Si vous pourriez m ' aider pour ce code VBA, je vous en serais reconnaissant.

PS; A noter que le workbook "Master Keywords" peut avoir une multitudes de feuilles mais les valeur "CPC" et "keywords" sont toujours dans les meme colonnes donc le code vba doit prendre en compte qu ' il peut avoir plus d une feuille a comparer .

mille merci pour votre aide

Lgvba

bonjour,

une macro à mettre dans le classeur "keywords to find ppc.xls"

Sub aargh()
    Set wsc = Workbooks("master keywords .xls").Sheets("sheet1")
    For Each ws In ThisWorkbook.Sheets
        Set re = ws.Range("B:B").Find("Keywords", lookat:=xlPart)
        If Not re Is Nothing Then
            fa = re.Address
            Do
                i = re.Row + 1
                While ws.Cells(i, 2) <> ""
                    Set r1 = wsc.Range("A:A").Find(ws.Cells(i, 2), lookat:=xlPart)
                    If Not r1 Is Nothing Then
                        ws.Cells(i, 3) = r1.Offset(0, 3)
                    Else
                    ws.Cells(i, 3) = "pas trouvé CPC"
                    End If
                    i = i + 1
                Wend
                Set re = ws.Range("B:B").Find("Keywords", lookat:=xlPart, after:=re)
                If re Is Nothing Then
                 fin = True
                ElseIf re.Address = fa Then
                 fin = True
                Else
                 fin = False
                End If
            Loop Until fin
        End If
    Next
End Sub

Merci

Le code fonctionne correctement .