Problème conversion SOMMEPROD en VBA

Bonjour le forum,

Pardon si ce problème a déjà été abordé, mais je ne crois pas avoir trouvé de topic qui me permettrait de résoudre mon problème seul.

Je voudrais convertir cette fonction:

Code:

---

=SOMMEPROD((Picker=B$2)*(Mois_confirmation=$A18)*(Nb_lignes))

---

en VBA. Picker, Mois_confirmation et Nb_Lignes sont des plages nommées d'une autre feuille.

J'ai essayé ceci

Code:

---

WorksheetFunction.SumProduct((Range("Picker") = [B2]), (Range("Mois_confirmation") = [A4]), (Range("Nb_lignes")))

---

mais j'ai une erreur incompatibilité de type que je ne suis pas sûr de bien comprendre.
Serait-elle due au fait que mes plages Picker et Mois_Confirmation sont au format texte? Si oui, est-ce qu'il y a un moyen de contourner ce problème?

Merci d'avance.

bonjour neiluj26,

je ne sais pas si tu veut mettre le résultat directement dans une cellule,
si oui, voilà :

Code:

---

Range("A1") = [SumProduct(Picker=B2)*(Mois_confirmation=A4)* (Nb_lignes))]

---

isabelle

Code:

---

Range("A1") =Evaluate("=SUMPRODUCT((Picker=B$2)*(Mois_confirmation=$A18)*(Nb_lignes))")

---

Bonjour,

Pardon pour cette réponse tardive. C'était le weekend...

Effectivement, je voulais mettre ce résultat dans une cellule, pour éviter d'alourdir mon fichier et éviter trop de recalculs.

La solution de Mercatog fonctionne bien. Merci! Je ne connaissais pas la fonction Evaluate. Elle sera bien utile.

Par contre, désolé Sabzzz, mais j'ai toujours une erreur "Incompatibilité de type" quand j'utilise ta méthode. Et je ne comprends pas pourquoi non plus.

Argh, c'est la deuxième fois que je me fais avoir. J'aurais dû préciser ma demande.

En fait, j'aimerais utiliser cette formule dans une boucle du type "for i =... to...", ce qui donnerait quelque chose dans ce goût là:

Code:

---

1 2 3 4

For i = 4 To LigFin Cells(i, 2) = Evaluate("=SUMPRODUCT((Picker=B$2)*(Mois_confirmation=Range("A" & i)*(Nb_lignes))") Next i

---

Mais Evaluate n'aime pas mon "Range("A" & i)"

Code:

---

1 2 3 4 5 6 7

Dim i As Long, LigFin As Long Dim fct As String   For i = 4 To LigFin fct = "=SUMPRODUCT((Picker=B$2)*(Mois_confirmation=" & Range("A" & i).Address(False, True) & "*(Nb_lignes))" Cells(i, 2) = Evaluate(fct) Next i

---

Ah ça fonctionne, merci. J'ai juste ajouté une parenthèse qui manquait.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim i As Long, LigFin As Long Dim fct As String   LigFin = [A65536].end(xlup).row   For i = 4 To LigFin fct = "=SUMPRODUCT((Picker=B$2)*(Mois_confirmation=" & Range("A" & i).Address(False, True) & ")*(Nb_lignes))" Cells(i, 2) = Evaluate(fct) Next i End Sub

---

Hmm puis-je abuser?

Dans le même but, je souhaiterais convertir la formule suivante également (formule matricielle):

Code:

---

{=SOMME((FREQUENCE((Mois_confirmation&Picker=$A18&B$2)*EQUIV(Date_confirmation;Date_confirmation;0);(Mois_confirmation&Picker=$A18&B$2)*EQUIV(Date_confirmation;Date_confirmation;0))>0)+0)-(MIN((Mois_confirmation&Picker=$A18&B$2)*1)=0)}

---

J'ai essayé ceci:

Code:

---

1 2 3 4 5 6 7 8

Dim Jrs As String, i as Long, LigFin as Long   LigFin = [A65536].end(xlup).row For i = 4 to LigFin Jrs = "{=SUM((FREQUENCY((Mois_confirmation&Picker=" & Range("A" & i).Address(False, True) & "&B$2) *MATCH(Date_confirmation,Date_confirmation,0),(Mois_confirmation&Picker=" & Range("A" & i).Address(False, True) & "&B$2))*MATCH(Date_confirmation,Date_confirmation,0))>0)+0)-(MIN((Mois_confirmation&Picker=" & Range("A" & i).Address(False, True) & "&B$2)*1)=0)}" Cells(i,3)= Evaluate(Jrs) Next i

---

Mais quand je lance cette macro, j'ai un beau "#VALEUR" dans ma colonne C. Quand j'essaie juste de voir le résultat dans une MsgBox, j'ai encore une erreur "Incompatibilité de type"...