1 2 3 4 5 6 7 8 9 10 11 12 13 14
| For i = 1 To 12
With Application.WorksheetFunction
tablo(i, 1) = .CountIf(maplage2, "AAAA")
tablo(i, 2) = .MinIfs(MaPlage, maplage2, "AAAA")
tablo(i, 3) = .MaxIfs(MaPlage, maplage2, "AAAA")
tablo(i, 4) = .CountIfs(maplage2, "AAAA", MaPlage, "<1000")
tablo(i, 5) = .CountIfs(maplage2, "AAAA", MaPlage, ">=1000", MaPlage, "<2000")
tablo(i, 6) = .CountIfs(maplage2, "AAAA", MaPlage, ">=2000", MaPlage, "<3000")
tablo(i, 7) = .CountIfs(maplage2, "AAAA", MaPlage, ">=3000")
tablo(i, 8) = .AverageIfs(MaPlage, maplage2, "AAAA")
End With
next i |
Partager