Autres RechercheV

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Minamanou, R@chid, Phil,
Un peu à labour, mais comme c'est fait je livre, ne serait ce que pour ceux qui ne dispose pas de Min.Si.Ens.
Une solution en PJ avec une fonction perso :
VB:
Function Minimum(Article)
    T = [Tableau6]: Minimum = 100000
    For i = 1 To UBound(T)
        If T(i, 1) = Article Then
            If T(i, 4) < Minimum Then Minimum = T(i, 6)
        End If
    Next i
End Function
J'ai choisi pour comparaison la Qté allouée du Tableau6, s'il faut prendre en compte Qté en stock alors remplacer T(i, 4) par T(i, 3)
 

Pièces jointes

  • Classeur1 (1).xlsm
    39.6 KB · Affichages: 3

Discussions similaires