Bonjour,
Je veux récuperer une donnée avec l'aide de plusieurs critères et la fonction sommeprod
Voici mon code et le fichier associé ;
Sub test()
Range("D4").Select
ActiveCell.FormulaR1C1 = _
"=INDEX(Database!RC[-3]:R[849]C,SUMPRODUCT((Database!RC[-3]:R[849]C[-3]=Inter!R2C1)*(Database!RC[-2]:R[849]C[-2]=Inter!R2C2)*(Database!RC[-1]:R[849]C[-1]=Inter!R1C3)),4)"
End Sub
Le code marche bien sauf que je n'ai pas théoriquement le numéro de ligne renseigné donc j'aimerai rentrer un argument tel que :
DerLig = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row
et l'insérer dans la formule R1C1 en remplacant 849 par DerLig mais je ne sai pas comment,
merci !