Traduire des formule Excel en langage VBA
a
salut tous le monde j'aime bien traduire mes formules excel en vba pour gagne le Temp d’exécution
avec les fonction Application.WorksheetFunction.CountIfs et Application.WorksheetFunction.SumProduct
Bonjour,
voici un exemple
dt = ActiveSheet.ListObjects("fiche").ListColumns(1).DataBodyRange.Address(0, 0)
nom = ActiveSheet.ListObjects("fiche").ListColumns(2).DataBodyRange.Address(0, 0)
prenom = ActiveSheet.ListObjects("fiche").ListColumns(3).DataBodyRange.Address(0, 0)
sx = ActiveSheet.ListObjects("fiche").ListColumns(4).DataBodyRange.Address(0, 0)
f = "SUMPRODUCT(IF((" & dt & ">=H4)*(" & dt & "<=H5),1/COUNTIFS(" & dt & ","">=""&H4," & dt & ",""<=""&H5," & nom & "," & nom & "," & sx & "," & sx & "),0))"
resutat = Evaluate(f)