XL 2016 Vlookup dans un For each

R1- · 4 Avril 2022

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.

sylvanu · 4 Avril 2022

Bonjour R1, Job,
Un essai en PJ avec :

VB:

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.

job75 · 4 Avril 2022

Bonjour R1-

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

A+

R1- · 4 Avril 2022

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 · 4 Avril 2022

Bonjour R1, Job,
Un essai en PJ avec :

VB:

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- · 4 Avril 2022

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.

VB:

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 · 4 Avril 2022

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- · 4 Avril 2022

job75 à dit:
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.

XL 2016 Vlookup dans un For each

R1-

XLDnaute Junior

Pièces jointes

sylvanu

job75

XLDnaute Barbatruc

Pièces jointes

R1-

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

R1-

XLDnaute Junior

job75

XLDnaute Barbatruc

R1-

XLDnaute Junior

Discussions similaires