SOMMEPROD en VBA

Bonjour,

après de longues heures de recherches je suis bloqué sur la construction d'un fichier:
je dois reporter des quantités d'articles venant d'un extract, sur un tableau.
J'y arrive bien quand j'ai a reporter un critère ( voir colonne B de la feuille stock) avec la formule :

Code:

---

=SOMMEPROD(($A4=extract!A:A)*(glossaire!$B$4=extract!B:B)*(extract!C:C))

---

mais dès lors que je veux rajouter plusieurs critères à prendre en compte dans la colonne C et D, je coince....( voir feuille glossaire)
ça serai facile avec un TCD mais pour mon fichier final ça ne m'arrange pas...

Il y a t'il un moyen de faire cela en VBA simplement plutôt, j'ai des bases vraiment débutant
merci par avance!!!!!

Une proposition avec uns fonction vba pour la colonne en production

Nota : il faut ques les macros soient activées pour que ceci fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function en_prod(serie) Application.Volatile With Worksheets("extract").Columns("A") Set c = .Find(serie, LookIn:=xlValues).Offset(0, 1) End With debut = Left(c, 1) Select Case debut Case "F", "L", "N", "V" en_prod = Worksheets("extract").Cells(c.Row, 3) Case Else en_prod = 0 End Select End Function

---

Dans la cellule C4 de la feuille stock =en_prod(A4)

à copier jusqu'en bas.

pour les colonnes en magasin et autre, sur le même principe
il suffirait de de créer 2 autre fonctions


Une macro événementielle au moment de la sélection de la feuille stock

qui remplirait le tableau est peut être préférable, à suivre.....

Par exemple dans la feuille stock

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Worksheet_Activate() DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row Range("B4:D" & DerniereLigne).ClearContents For ligne = 4 To DerniereLigne serie = Cells(ligne, 1).Value With Worksheets("extract").Columns("A") Set c = .Find(serie, LookIn:=xlValues).Offset(0, 1) End With debut = Left(c, 1) Select Case debut Case "TEVM" Cells(ligne, 2) = Worksheets("extract").Cells(c.Row, 3) Case "F", "L", "N", "V" Cells(ligne, 3) = Worksheets("extract").Cells(c.Row, 3) Case Else Cells(ligne, 4) = Worksheets("extract").Cells(c.Row, 3) End Select Next End Sub

---

merci