Discussion :

[iseulysse]

Bonjour,

Je suis débutante dans le vba et je suis bloqué depuis une semaine sur une fonction vlookup.

En faite j'ai un tableau facture dans une feuille "Facturation1" et j'ai un autre tableau produits finis dans une feuille "Produits fini".
Dans la feuille "Facturation1" j'ai un produit et une quantité commandée et dans la feuille "Produits fini", j'ai également un produit avec ma quantité de stock.
J'aimerai faire une macro qui compare la quantité du produit commandée par rapport à la quantité du produit en stock...

J'ai commencé comme ça mais cela ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim quantite_commande As Currency
 
quantite_commande = Worksheets("Facturation1").Range("E16").Value
quantite_stock = Worksheets("Produits fini").Range("D8:D11").Value
produit = Worksheets("Facturation1").Range("D16").Value
produit_fini = Worksheets("Produits fini").Cells("B8:G10").Value
 
 
If quantite_commande >= Application.VLookup("produit", ["produit_fini"], 3, 0) Then
 
MsgBox ("Votre quantité en stock n'est pas suffisante. Voulez-vous connaitre l'état de vos stocks?")

Je vous remercie par avance pour votre aide!

[Thautheme]

Bonjour Iseulysse, bonjour le forum,

Pourrais tu nous donner la même chose en formule avec, si la formule contient des plage données, la référence de ces plages ou un petit fichier exemple (Aïe ! Pas sur la tête les modos...) ? Parce que tel que tu le proposes il y a des incohérences et je ne peux pas t'expliquer avant d'avoir compris moi-même...

[vinc_bilb]

Bonjour à tous, et un coucou à Thautheme,

Tel que le code est fourni, il y a plusieurs erreurs .... voir commentaires insérés dans votre code d'origine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim quantite_commande As Currency 'surprenant, mettre plutot un type INTEGER ou SINGLE
' Je vous suggère de déclarer toutes les autres variables.... autrement, c'est le type variant
 
quantite_commande = Worksheets("Facturation1").Range("E16").Value
quantite_stock = Worksheets("Produits fini").Range("D8:D11").Value
produit = Worksheets("Facturation1").Range("D16").Value
 
' Vous voulez faire quoi avec votre item 'produit_fini', je pense que c'est plutot un Range que vous voulez définir, nom?
produit_fini = Worksheets("Produits fini").Cells("B8:G10").Value
 
 
If quantite_commande >= Application.VLookup("produit", ["produit_fini"], 3, 0) Then
 
MsgBox ("Votre quantité en stock n'est pas suffisante. Voulez-vous connaitre l'état de vos stocks?")

[iseulysse]

Bonjour,

Merci de votre aide!
Désolée de ne pas avoir été très claire, je vous envoie un petit fichier exemple pour vous montrer plus facilement ce que je souhaiterai faire

Classeur2.xlsx

Dans la feuille Facturation1, en faite je voudrais faire une comparaison des quantités commandés pour chaque article par rapport aux quantités de stock des produits finis dans la feuille produit fini.

Donc en faite faire une comparaison entre la colonne E de la feuille de facturation en prenant en compte le produit que ca concerne et les comparer avec les cellules D8 à D10 de la feuille produit fini toujours en prenant compte quel produit ca concerne...

J'espère que mes explications sont un peu plus claire ^^

Je vous remercie!

[vinc_bilb]

Bonjour,

J'y vais dans le désordre en espèrant être clair, avec version modifiée jointe

1. Vous n'avez pas à priori besoin de passer par du VBA pour détecter une commande > Qty en stock, sauf si vous voulez cumuler les commandes par article ou mettre à jour le stock....
2. Je vous ai fait pas mal de suggestions dans le fichier
Classeur2.xlsx

[iseulysse]

Bonjour,

Je vous remercie,

En effet, je souhaite cumulé les articles pour une commande et mettre à jour mon stock. Pensez-vous que je puisse appliquer les mêmes formules que vous en les adaptant au langage VBA ?

J'ai réussi à faire une macro par rapport à tout ce que vous m'avez envoyé qui marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim tab1
tab1 = Worksheets("Produits fini").Range("B8:G10")
 
Dim numligne As Integer
numligne = 16
 
article = Range("C16")
quantite_commande = Range("E16")
 
While Cells(numligne, 3) <> 0
    If Cells(numligne, 5) > Application.WorksheetFunction.VLookup(Cells(numligne, 3), tab1, 3, 0) Then
    MsgBox ("La quantité en stock n'est pas suffisante")
    Else
    MsgBox ("La quantite est suffisante")
    End If
    numligne = numligne + 1
 
    Wend
End Sub

Je n'ai plus qu'un dernier problème que je ne vois pas du tout comment résoudre, je me demandais si vous aviez une petite astuce..

La formule marche, elle recherche bien mes trois produits sauf que le Msgbox m'affiche trois fois la réponse... Est ce que vous voyez ce que je pourrai faire pour que ça m'affiche que dans une seule Msgbox la réponse... Par exemple, si j'ai 3 produits et qu'il y en a un qui n'est plus en stock ca me dise juste le nom du produit qu'il me manque...?

Merci infiniment!