[VBA] - SUMPRODUCT

Bonjour le forum,

Voilà maintenant une demie heure que je m'acharne à faire fonctionner un simple code VBA. Enfin, pas si simple que cela on dirait...

Je souhaiterai avoir un TTC en fonction de plusieurs critères. J'ai donc décider d'effectuer un SUMPRODUCT en fonction d'un certain mois et d'un certain type de produit.

Alors que je réussi a le faire sur la feuille excel (SommeProd) en VBA il m'affiche l'erreur "incompatibilité". J'ai vérifié 30x il me semble que mon code reprenne exactement les mêmes arguments que ceux dans ma fiche Excel.

Quelqu'un peut m'éclaircir ?

Merci !

bonjour,

Essaie :

Sub galopin()
Arr = [A2:D5]
For i = 1 To UBound(Arr)
   TT = TT + (Arr(i, 1) = [G2]) * (Arr(i, 3) = [H2]) * (Arr(i, 2) * Arr(i, 4))
Next
MsgBox TT
End Sub

A+

Bonjour Galopin01,

Merci pour ta réponse !

Cela semble fonctionner. Avez-vous quand même compris pourquoi la fonction SUMPRODUCT affichait une erreur ?

Bon début de semaine à vous,

Bonjour,

J'avoue que je n'ai pas cherché, je ne vois pas l'intérêt d'insérer des formules dans VBA.

A+

Bonjour Galopin,

Je privilégie toujours les formules Worksheetfunction qui, pour moi, s’exécutent beaucoup plus rapidement qu'une boucle. Notamment lorsque le code doit traiter plus de 3000 lignes.

Mais merci pour votre formule, cette dernière fonctionne parfaitement.