Transposition sommeprod en vba

Bonjour le Forum

J'ai formule matricielle que je désirais transformer en vba

Code:

---

=(SOMMEPROD(--(OU(CritDegré=BD!C2;CritDegré="*"))))*(SOMMEPROD(--(critCours=BD!B2)))*(SOMMEPROD(--(CritProfs=BD!A2)))*(SOMMEPROD(--(OU(CritJours=BD!D2;CritJours="*"))))

---

ou CritDegré =R1:5126; CritCours =S1:S126; CritProfs = T1:T126 et CritJours =U1:U126

le nom de la feuille est : BD

Quelqu'un peut m'aider....

Merci d'avance

Oli

bonsoir
as tu essayer avec l’enregistreur automatique des macros ?

re,

cela donne ceci, c'est correct ?

Code:

---

1 2 3

ActiveCell.FormulaR1C1 = _ "=(SUMPRODUCT(--(OR(CritDegré=BD!RC[-12],CritDegré=""*""))))*(SUMPRODUCT(--(critCours=BD!RC[-13])))*(SUMPRODUCT(--(CritProfs=BD!RC[-14])))*(SUMPRODUCT(--(OR(CritJours=BD!RC[-11],CritJours=""*""))))" Range("O3").Select

---