2 pièce(s) jointe(s)
convertir formule en code vba
bonjour tt le monde je cherche a savoir si y possibilité de convertir ces formule en vba ou d'autre manier de les accélérés au moment du calcule elles me permit d'affiche les résultat suivant les sorties des produits avec les quantités les prix et selon leur catégorie selon la date inséré dans(A6) voir l'image et voila exemple de formule utiliser dans le tableau AGRO:
1/pour affiche les articles son doublons dans (A17) Voila la formule
Code:
=INDEX(Mouvement!$F$1:$F$9959;MIN(SI((Mouvement!$O$7:$O$9959="Agro")*(Mouvement!$C$7:$C$9959=$A$6)*(NB.SI(A$16:A16;Mouvement!$F$7:$F$9959)=0);LIGNE(Mouvement!$F$7:$F$9959))))&""
2/pour affiche les quantités dans (B17)Voila la formule
Code:
=SI($A17="";"";SOMMEPROD((Mouvement!$F$7:$F$9949=$A17)*(Mouvement!$C$7:$C$9949=$A$6)*(Mouvement!$G$7:$G$9949)*(Mouvement!$B$7:$B$9949="sortie")))
3/pour affiche les PRIX dans (C17)Voila la formule
Code:
=SI($A17="";"";RECHERCHEV($A17;Mouvement!$F$7:$H$9985;3;0))
le même principe avec le tableau Légumes et....:
1/pour affiche les articles son doublons dans (G17) Voila la formule
Code:
=INDEX(Mouvement!$F$1:$F$9985;MIN(SI((Mouvement!$O$7:$O$9985="Legumes")*(Mouvement!$C$7:$C$9985=$A$6)*(NB.SI(G$16:G16;Mouvement!$F$7:$F$9985)=0);LIGNE(Mouvement!$F$7:$F$9985))))&""
2/pour affiche les quantités dans (H17)Voila la formule
Code:
=SI(G17="";"";SOMMEPROD((Mouvement!$F$7:$F$9948=$G17)*(Mouvement!$C$7:$C$9948=$A$6)*(Mouvement!B6:B9947="Sortie")*(Mouvement!$G$7:$G$9948)))
Pièce jointe 518308
merci et je vous joint mon classeur