2 condition et colle en valeur les données

Bonjour a toutes et a tous,

Je viens ne parvient pas à ressoudre mon problème et vu de mon faible niveau en VBA.

Ce que je voudrais c'est que la Macro recherche la date et le nom qui se trouve dans l'onglet Extra et qui s'il trouve le nom et la date correspondante dans l'onglet BDD il colle en valeur en colonne D les données qui se trouvent dans l'onglet EXTRA colonne C.

Je vous joins un fichier exemple il y a une macro que j'ai essayé de bidouiller pour arriver à mon résultat mais elle ne fonctionne pas très bien.

Un grand merci a tous pour votre aide

Cdt

Jérôme

Bonjour

Un essai à tester. Te convient-il ?

Option Explicit

Dim fbdd As Worksheet, tabloE, tabloB
Dim i&, iB&, j&, jB&

Sub Transfert()

    Set fbdd = Sheets("BDD")
    tabloE = Sheets("Extra").Range("A1").CurrentRegion
    tabloB = fbdd.Range("A1").CurrentRegion
    For i = 2 To UBound(tabloE, 1)
        For iB = 2 To UBound(tabloB, 1)
            If tabloE(i, 1) & tabloE(i, 2) = tabloB(iB, 1) & tabloB(iB, 2) Then
                tabloB(iB, 4) = tabloE(i, 3)
            End If
        Next iB
    Next i
    fbdd.Range("A1").Resize(UBound(tabloB, 1), UBound(tabloB, 2)) = tabloB
    fbdd.Activate
End Sub

Bye !

Salut gmb,

Ton code fonctionne bien, je viens d'apprendre que en faite la bdd serai dans un autre classeur. Comment je pourrait adapter ton code ? Et comment il fonctionne car il ce peux aussi que dans un autre fichier la date et nom ne soit pas au même emplacement que dans l'onglet extra.

Merci pour ton aide

Cdt

Jerome