Recherche de donnée dans une feuille différente + calcul

Bonjour à tous et à toutes !

Me situation est la suivante (je joins le dossier test pour que vous compreniez mieux) :

• La feuille 1 est une base de donnée
• Je récupère d'autres données depuis un fichier .txt que je copie colle dans Excel, dans la feuille 2

J'aimerais créer une macro pour qu'Excel prenne les codes copiées dans la feuille 2, colonne B, qu'il cherche à quel temps correspondent ces codes dans la base de donnée (feuille 1) et qu'il me donne le résulat du calcul "Nombre d'élément*temps" à coté de chaque ligne dans la feuille 2 (idéalement dans la colonne E)

Nombre d'élément => feuille 2, colonne D

Temps => feuille 1, colonne B

Le fichier complet est trop lourd pour être join, la base de donnée n'est donc pas complète. Il est possible que la macro ne trouve pas la ligne correspondant au bon code puisque celui-ci ne serait pas renseigné.

Si vous pouviez m'aider à commencer la macro je pourrais me débrouiller pour la finir mais là je suis un peu perdu ...

Merci d'avance !!

Bonjour.

Voir fichier.

Option Explicit
Private Sub cmdTraitement_Click()
Dim f1 As Worksheet, f2 As Worksheet
Dim Plage As Range
Dim Dl As Long, i As Long
Dim tmp As String
Dim c
    Application.ScreenUpdating = False
    Set f1 = Worksheets("Feuil1")
    Set f2 = Worksheets("Feuil2")
    Set Plage = f1.Range("A1").CurrentRegion
    With f2
        Dl = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 2 To Dl
            If IsNumeric(.Cells(i, 2)) And .Cells(i, 2) <> 99000420193# Then tmp = "0" & .Cells(i, 2)
            c = Application.VLookup(tmp, Plage, 2, 0)
            If IsError(c) Then
                .Cells(i, 5) = "N/A"
            Else
                .Cells(i, 5) = c
            End If
        Next
    End With
    Set f1 = Nothing: Set f2 = Nothing: Set Plage = Nothing
End Sub

Super !!! Vraiment un grand merci, ca m'aide beaucoup !

Plus qu'à rajouter le calcul mais je devrais y arriver !

Merci !

Re,

Clos le sujet si tu es satisfait

Cdlt