Bonjour à tous,
Je bloque depuis 4 jours sur une fonction sommeprod que j'aimerais mettre en vba.
J'ai en effet des données à recuperer d"une feuille "bd" à retranscrire sur la feuille "revue".
Il y a trois arguments : le type, le lieu, l'année. J'ai donc mis ceci mais ma fonction de marche pas. J'ai une erreur #valeur dans la case correspondante...
Merci de votre aide
Je bloque depuis 4 jours sur une fonction sommeprod que j'aimerais mettre en vba.
J'ai en effet des données à recuperer d"une feuille "bd" à retranscrire sur la feuille "revue".
Il y a trois arguments : le type, le lieu, l'année. J'ai donc mis ceci mais ma fonction de marche pas. J'ai une erreur #valeur dans la case correspondante...
Merci de votre aide
Code:
Sub retour()
'sur quels feuillets travaille-t-on?
Dim BD As Worksheet
Set BD = ActiveWorkbook.Sheets("bd")
Dim Revue As Worksheet
Set Revue = ActiveWorkbook.Sheets("revue")
'sur quels plages recupere-t-on les données?
With Sheets("BD")
Dim Flux, Reseau, Annee, Lieu, Nombre_de_flux As Range
Set Type = Range("A2").End(xlDown)
Set Annee = Range("E2").End(xlDown)
Set Lieu = Range("c2").End(xlDown)
Set nombre_dacte = Range("g2").End(xlDown)
End With
'calculs avec sommeproduct du nombre d'acte par type, année, lieu
With Sheets("revue")
Revue.Cells(8, 4) = Application.Evaluate("=SumProduct(type=(""A""))*(Lieu=(""france""))*(Annee=(""2012"")),(nombre_dacte))"
End With
Dernière édition: