Transpose multiple critères VBA
Bonjour à tout le monde,
Je rencontre un pb lors d'un macro pour compter le nombre de ligne rempli qui satisfait plusieurs critères sur differents columns.
Je voulais utiliser sumproduct pour cet effet car j'ai plusiers calcul à faire.
Voici mes codes:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Public Sub total_mit()
Dim s As Worksheet
Set s = Worksheets("Statistic")
Dim ws As Worksheet
Set ws = Worksheets("Mitigation Actions")
Dim LastRow As Long: Let LastRow = ws.Range("A65536").End(xlUp).Row
Dim rIncid As Range: Set rIncid = ws.Range("F8:F" & LastRow)
Dim Status As Range: Set Status = ws.Range("I8:I" & LastRow)
s.Range("g25").Select
ActiveCell.FormulaR1C1 = WorksheetFunction.CountIfs(rIncid, "<>""")
Dim sformula As String
sformula = "=SumProduct((Mitigation Actions!F8:F65536)<>"""")*((Mitigation Actions!I8:I65536)<>""complete""))"
s.Range("g26").Value = ActiveSheet.Evaluate(sformula)
sformula = "=SumProduct(rIncid<>"""")*(Status<>""complete""))"
s.Range("g26").Value = ActiveSheet.Evaluate(sformula)
End Sub |
Pourriez-vous me dire d'ou vient mes erreurs.
Mille merci à l'avance.
:) :) :)
