[cbea]

Bonjour VBA_DEAD et le forum,

Pour effectuer le total, je passe par une fonction SOMMEPROD et en utilisant Evaluate car WorksheetFunction.SumProduct ne fonctionne pas correctement.

J'ai écrit une chaîne pour utiliser la fonction SOMMEPROD (SUMPRODUCT en anglais) :
(" & PProduit.Address & "=""" & Produit & """) : la plage de cellules des produits doit être égale au critère Produit. Produit est entouré de double " car il s'agit d'un critère alphanumérique.

(" & PTypeCli.Address & "=""" & TypeCli & """) : la plage de cellules des types de clients doit être égale au critère TypeCli. TypeCli est entouré de double " car il s'agit d'un critère alphanumérique.

(" & PInfo.Address & "=""" & TypeCli & """) : la plage de cellules des infos doit être égale au critère Info. Info est entouré de double " car il s'agit d'un critère alphanumérique.

PTotal.Address : la plage de cellules correspondant au total

*1 : permet de convertir en numérique

Cela revient à faire :
=SOMMEPROD((PProduit = Produit) * (PTypeCli = TypeCli) * (PInfo = Info) * (PTotal))

J'espère que cela est compréhensible car ce n'est pas évident à décrire.