Macro de Calcul

Bonjour,

S’il vous plait j’ai besoin de votre aide. En fait, je viens de faire une macro pour faire des calculs sur ma colonne (S) de ma feuille (BD), tout fonctionne bien. En revanche, à partir de la ligne 247, ma macro n’exécute pas le code malgré que j’ai essayé de changer mes paramètres de i à 3000 et j à 3000 dans mes deux procédures pour que mon calcul fonctionne.

Veuillez trouver ci-joint le fichier.

Cordialement,

Bonjour,

la référence 37606 (et d'autres) n'existent pas dans la "source" donc les macros ne peut se poursuivre.

Tu peux corriger de la manière suivante pour "sauter" l'obstacle... mais bien sur le résultat sur ces lignes devra être interprété en conséquence...

Sub CALCUL()
Dim x#, y#, z#, i%
Call RechercheV
Range("R1") = "Facteur C"
Range("S1") = "Qté en S"
On Error Resume Next
For i = 2 To 3000
    x = Cells(i, 12).Value 'Qté en API pure
    y = Cells(i, 18).Value 'F.C
   z = x / y
   Cells(i, 19).Value = z
Next
End Sub

Sub RechercheV()
Dim j As Integer
On Error Resume Next
With Worksheets("BD")
For j = 2 To 3000
   .Cells(j, 18).Value = Application.WorksheetFunction.VLookup(.Cells(j, 2).Value, Worksheets("Source").Range("B:N"), 13, 0)
Next
End With
End Sub

A+

Bonjour Galopin01,

Je vous remercie énormément pour votre réponse rapide ainsi que votre précieuse aide.

Je vous souhaite de passer une excellente journée,