Recherche puis comparaison entre 2 feuilles

[JORDAN]

Bonjour à toutes et à tous,

Je n'arrive pas à résoudre mon problème de recherche et de comparaison de cellule entre 2 feuilles dans le même fichier.

J'ai fait une ébauche mais ça ne marche pas comme il faut.

J'ai joint un fichier avec plus d'explications.

Merci pour toute info.

 

[Bebere]

Re : Recherche puis comparaison entre 2 feuilles

bonjour Jordan
emploi de find,les calculs sont dans le code
à bientôt

 

[JORDAN]

Re : Recherche puis comparaison entre 2 feuilles

Bonjour Bebere, le Forum,

J'ai essayé ton code qui est presque parfait, j'ai dû mal m'expliquer pour la formule à intégrer.

Si la quantité en stock est de 10 et que le client en prend 3, il en reste 7 en stock donc la quantité à commander doit être à 0, par contre si la quantité en stock est de 3 et que le client en veut 7, la quantité à commander doit être à 4.

Je ne sais pas comment intégrer dans ton code
If cells(J,9)<1 then
cells(j,10)=cells(J,7)-cells(J-9)
End If
(ou autrement)

Merci quand même pour le reste de ton code qui fonctionne parfaitement.
A+

 

[Bebere]

Re : Recherche puis comparaison entre 2 feuilles

bonjour Jordan
tu fais un copier/coller des entre *
IRef = 0
'*
If Not Cel Is Nothing Then
IRef = Cel.Row
.Cells(J, 9) = Sheets("LIBRAIRIE").Cells(IRef, 9) 'réf trouvée
'si quantité<= que stock pas de cde
If .Cells(J, 7) <= .Cells(J, 9) Then
.Cells(J, 10) = 0
.Cells(J, 9) = .Cells(J, 9) - .Cells(J, 7)
End If
'si quantité> que stock la cde est le résultat de la soustraction
If .Cells(J, 7) > .Cells(J, 9) Then
.Cells(J, 10) = .Cells(J, 7) - .Cells(J, 9)
.Cells(J, 9) = .Cells(J, 9) - .Cells(J, 7)
End If

Sheets("LIBRAIRIE").Cells(IRef, 9) = .Cells(J, 9) 'nouveau stock

End If
'*
Next J

à bientôt

 

[JORDAN]

Re : Recherche puis comparaison entre 2 feuilles

Bonjour Bebere,

Merci Bebere, C'EST PARFAIT

Bonne soirée