Discussion :

[solongo]

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.

[Philippe Tulliez]

Bonjour,

Pourriez-vous me dire d'ou vient mes erreurs.

Quelle erreur et à quelle ligne ?
Je suppose que tu veux compter le nombre de cellules répondant aux conditions. Dans ce cas il faut ajouter à ta formule * 1
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMMEPROD( (Feuil2!$A$2:$A$10="F") * (Feuil2!$B$2:$B$10="Bruxelles") * 1)

Lorsque tu utilises une formule d'excel dans du cde VBA, le plus simple est de taper la formule dans Excel et ensuite si le résultat renvoyé par la formule correspond à ton attente, tu peux connaître sa syntaxe VBA en utilisant cette ligne de code. (La formule est en B2)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Range("B2").Formula

La syntaxe de la formule sera affichée dans la fenêtre d'exécution de l'éditeur (pour la faire apparaître Ctrl+G).
Il te suffit ensuite de faire un copier/coller après avoir entré ta variable et l'avoir entourée des guillemets. Il faut également placer des guillemets supplémentaires à toutes les constantes alphanumériques.
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myFormula = "=SUMPRODUCT( (Feuil2!$A$2:$A$10=""F"") * (Feuil2!$B$2:$B$10=""Bruxelles"") * 1)"

[solongo]

Merci Tulliez pour ta réponse.

Ouiii le but du formule est compter le nombre de la ligne répondant à plusieurs critère.

Avec formula countifs, j'arrive à calculer ce que je veux mais quand je l'écrit en macro, ça ne marche pas.

J'ai beau utiliser le syntexe, ça beugge toujours

[Philippe Tulliez]

Bonjour,
Je teste toujours les propositions que je publie et chez moi cela fonctionne.
Attention la feuille de référence chez moi se nomme Feuil2

[solongo]

Ah ça marche j'ai du mal tapé le formule merci bcp

J'ai rencontré à nouveau un pb.

je voulais additionner 3 countifs ou sumproduct function. quand j'additionne les 3 ça beugge, mais un par un ou bien addition de 2 marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sformula = "=Sumproduct(('General Info'!$A$8:$A$6593<>"""")*('General Info'!$L$8:$L$6593='DO NOT TOUCH'!$B$6))+Sumproduct(('General Info'!$A$8:$A$6593<>"""")*('General Info'!$L$8:$L$6593='DO NOT TOUCH'!$B$7))+Sumproduct(('General Info'!$A$8:$A$6593<>"""")*('General Info'!$L$8:$L$6593='DO NOT TOUCH'!$B$8))"

Sauriez vous pk ça marche pas?

Merci encore

[Philippe Tulliez]

Bonjour,
Avant de coder la formule en VBA, l'as-tu testée directement dans Excel ?

[solongo]

Ouii, sur excel, la formule marche mais en VBA ça marche pas, du coup je me demandais si c'etais pas possible d'additionner 3 countifs ou 3sumproduct function