Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[VBA] SumProduct & Cellule.Offset

Maivas

XLDnaute Junior
Bonjour à tous petite question pour les VBAiste,

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

Code:
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 :
Code:
 ((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

XLDnaute Barbatruc
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
 

James007

XLDnaute Barbatruc
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 ...
 

Discussions similaires

  • Résolu(e)
Microsoft 365 FORMULE Excel VBA
Réponses
17
Affichages
810
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…