XL 2016 Vlookup dans un For each

[R1-]

Bonjour,

Je bloque sur l'utilisation d'une formule, j'ai 2 tableaux, l'un avec des commandes l'autre avec un stock, j'aimerai soustraire les commandes au stock via une macro.
J'ai pensé à utiliser un Vlookup dans un for each puis soustraire les quantités au références correspondantes. Cependant, je ne sais pas comment organiser tout ça.

J'ai créé un fichier anonymisé que vous trouverez en pièce jointe

Merci par avance pour votre aide.

 

[job75]

Bonjour R1-

Formule en Stock!C2 =B2-SIERREUR(RECHERCHEV(A2;Stock!A:B;2;0);0)

A+

 

[R1-]

Ce n'est pas exactement ce que je cherchais. Je parlais du Vlookup en vba.
Je cherche un moyen de le faire grâce à une macro.

 

[sylvanu]

Bonjour R1, Job,
Un essai en PJ avec :

Sub Worksheet_Activate()
    Dim L%, Plage As Range: L = 2
    [C:C].ClearContents: [C1] = "Reste"
    With Sheets("Stock")
        Set Plage = .Range("A2:B" & .Range("A65500").End(xlUp).Row)
        While Cells(L, "A") <> ""
            On Error Resume Next
            Cells(L, "C") = Application.VLookup(Cells(L, "A"), Plage, 2, 0) - Cells(L, "B")
            L = L + 1
        Wend
    End With
End Sub

La macro s'exécute automatiquement lorsque la feuille Commandes est sélectionnée, ou par appui sur le bouton.

 

[R1-]

Merci pour votre réponse

Ca marche bien, j'ai juste sortie la définition de la variable Plage du with afin de définir une autre feuille comme source.
Voici les corrections que j'ai apporté pour que cela colle parfaitement à mon besoin.

Sub Worksheet_Activate()
    Dim L As Integer, Plage As Range
    L = 2
    Set Plage = Sheets("commandes").Range("A2:B" & Range("A65500").End(xlUp).Row) 'définir la plage de recherche du Vlookup
    [C:C].ClearContents: [C1] = "Reste" 'reset la colonne C
    
    With Sheets("Stock")   
        While Cells(L, "A") <> "" 'tant que A n'est pas vide
            On Error Resume Next
            Cells(L, "C") = Application.VLookup(Cells(L, "A"), Plage, 2, 0) - Cells(L, "B")
            L = L + 1
        Wend
    End With
End Sub

Les annotations sont là pour ma propre compréhension.
Merci encore pour votre aide.

 

[job75]

Une remarque : la plupart des références de stock ont 2 valeurs.

Quelles valeurs faut-il prendre, la 1ère, la 2ème ou la somme des 2 ?

Salut sylvanu.

 

[R1-]

Une remarque : la plupart des références de stock ont 2 valeurs.

Quelles valeurs faut-il prendre, la 1ère, la 2ème ou la somme des 2 ?

Salut sylvanu.

Il n'y a aucune logique derrière les références. J'ai renommé sommairement les références avec une suite de chiffre pour anonymiser le fichier.