[VBA] SumProduct & Cellule.Offset

[Maivas]

Bonjour à tous petite question pour les VBAiste,

J’utilise la fonction sommeprod dans du VBA mais le résultat m’affiche l’erreur #Valeur !

Sub Calculer()
    Num = 200
    Set Plage = Range("AB2:AB" & Num)

    For Each Cellule In Plage
             Cellule.Value = Evaluate("SumProduct((A2:A" & Num & " = " & Cellule.Offset(0, -27).Value & ")*(I2:I" & Num & " < ""2009"")*(Z2:Z" & Num & " = ""R"")*(AA2:AA" & Num & " <> ""Compta"")*( Y2:Y" & Num & "))")
    Next Cellule

End Sub

La colonne A contient un numéro unique du type XXXX XX
La colonne I contient des années du type AAAA
La colonne Z contient un tag sous forme de lettre du type String
La colonne AA contient un type d’information du Type String
La colonne Y contient des montants du type #,##0.00

La formule fonctionne jusqu'à ce que j’ajoute :

 ((A2:A" & Num & " = " & Cellule.Offset(0, -27).Value & ")

Je suis sûre que c’est une question de Syntaxe…
Merci pour votre aide car moi j’abdique.

Maivas

 

[tototiti2008]

Re : [VBA] SumProduct & Cellule.Offset

Bonjour Maivas,

peut-être :

((A2:A" & Num & "=""" & Cellule.Offset(0, -27).Value & """)

Edit :

et déclarer plage et cellule (en-dessous de Sub)
Dim Plage as Range, Cellule as Range

 

[skoobi]

Re : [VBA] SumProduct & Cellule.Offset

Bonjour,

Tu peux envoyer un fichier stp?

Edit: bonjour tototiti

 

[James007]

Re : [VBA] SumProduct & Cellule.Offset

Bonsoir,

J'ai déjà eu ce problème ...il y a longtemps ...
Il faudrait remplacer

& "=" & Cellule.Offset(0, -27).Value & ")

par

& "="""& Cellule.Offset(0, -27).Value & """)

A +

P.S. Oups ... pas vu que Tototiti2008 t'a déjà donné la réponse ...

 

[Maivas]

Re : [VBA] SumProduct & Cellule.Offset

Super!

Merci à tous