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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.