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

[VBA] SumProduct & Cellule.Offset

  • Initiateur de la discussion Initiateur de la discussion Maivas
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

Maivas

Guest
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
 
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
 
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 ...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
931
Réponses
5
Affichages
757
Réponses
17
Affichages
2 K
  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
1 K
Réponses
7
Affichages
1 K
Réponses
1
Affichages
1 K
D
Réponses
4
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…