Formule pour compter le stock

[rudymagny]

Bonjour le forum,
Voilà je cherche une formule qui me permette de compter le nombre d'occurence dans mon stock. Je m'explique, dans la feuill2 je voudrais que pour chaque dénomination il me compte le nombre de matériel que j'ai dans le stock. J'ai l'impression de ne pas âtre clair donc je met un fichier en exemple.

Merci d'avance

 

[rudymagny]

Re : Formule pour compter le stock

Bonjour Jean-Marcel et merci.

ça marche très bien. Cependant j'adapte ça en VBA avec l'enregistreur de macro et je boucle mais ça ne marche pas bien là.

voilà ce que je fais :

L2 = Sheets("Equipements").Range("B65536").End(xlUp).Row
For i = 2 To L2
Cells(i, 3).Value = "=SUMPRODUCT((Stock!R[1]C[-2]:R[65534]C[-2]=Equipements!RC[-2])*(Stock!R[1]C[-1]:R[65534]C[-1]))"
Next i

mais ça ne marche pas dès la deuxième ligne.
Comment puis je faire?

Merci encore

 

[rudymagny]

Re : Formule pour compter le stock

Voilà le fichier excel en exemple vba

 

[rudymagny]

Re : Formule pour compter le stock

désolé c'est pas le bon

 

[Dull]

Re : Formule pour compter le stock

Salut rudymagny, Jean-Marcel, le Forum

Essaye ces lignes de code

Private Sub CommandButton1_Click()
Dim i As Long
For i = 2 To Sheets("Feuil2").Range("A65536").End(xlUp).Row
Range("B" & i).FormulaLocal = "=SOMMEPROD((Feuil1!A2:A6=Feuil2!A" & i & ")*(Feuil1!B2:B6))"
Next i
End Sub

Bonne Journée

 

[rudymagny]

Re : Formule pour compter le stock

Merci beaucoup Dull!! Un vrai bonheur ça marche nickel.

 

[Dull]

Re : Formule pour compter le stock

Re le fil

un ajout de code pour les données en Col A

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Long, C As Range, [B]MonDico As Object[/B]
[B]Set MonDico = CreateObject("Scripting.Dictionary")
For Each C In Feuil1.Range("Denomination")
   MonDico(C.Value) = C.Value
Next C
Sheets("Feuil2").Range("A2").Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)[/B]

For i = 2 To Sheets("Feuil2").Range("A65536").End(xlUp).Row
Range("B" & i).FormulaLocal = "=SOMMEPROD((Feuil1!A2:A6=Feuil2!A" & i & ")*(Feuil1!B2:B6))"
Next i
End Sub

Avec Plage nommée

Données/Insertion/Noms

Noms dans le Classeur: Denomination
fait référence à: =DECALER(Feuil1!$A$2;;;NBVAL(Feuil1!$A:$A)-1)
Bonne Journée

 

[rudymagny]

Re : Formule pour compter le stock

Ah c'est pour récupérer la liste des dénomination automatiquement.

Sachant que cette liste est crée par un USF dans mon fichier de stock, je ne me servirais pas ce code mais je le garde pour une utilisation ultérieur car très pratique.

Merci encore

 

[rudymagny]

Re : Formule pour compter le stock

Bonsoir le forum,
je relance ce fil car je voudrais le faire évoluer.
Dull m'avait bien aidé avec un sommeprod mais maintenant je voudrais adapter.
Je met un fichier en exemple.

Merci d'avance

 

[JHA]

Re : Formule pour compter le stock

Bonjour à tous,

En C2
=SOMMEPROD((Feuil1!$A$2:$A$65536=Feuil2!$A2)*(Feuil1!$C$2:$C$65536="HS"))

En D2
=SOMMEPROD((Feuil1!$A$2:$A$65536=Feuil2!$A2)*(Feuil1!$C$2:$C$65536="maintenance"))

JHA

 

[JCGL]

Re : Formule pour compter le stock

Bonjour à tous,

Peux-tu essayer avec :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = 0
    L2 = Sheets("Feuil2").Range("A65536").End(xlUp).Row
    For i = 2 To L2
        Cells(i, 2) = "=SUMPRODUCT((Feuil1!R2C1:R65536C1=RC1)*(Feuil1!R2C:R65536C))-SUM(RC[1]:RC[2])"
        Cells(i, 3) = "=SUMPRODUCT((Feuil1!R2C1:R65536C1=RC1)*(Feuil1!R2C3:R65536C3=R1C))"
        Cells(i, 4) = "=SUMPRODUCT((Feuil1!R2C1:R65536C1=RC1)*(Feuil1!R2C3:R65536C3=R1C))"
    Next i
End Sub

A+ à tous

 

[rudymagny]

Re : Formule pour compter le stock

Bonsoir JCGL et JHA,
Pour commencer, merci pour vos réponses.
j'ai testé la soluce de JHA -->OK pour comptabiliser les HS et maintenance.

L'avantage de JCGL est qu'il prend en compte la soustraction des HS et maintenance.

je vais adapter à mon fichier et je reviens vers vous si je rencontre un problème.

merci encore à vous!

à tout à l'heure peut être.