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

[Philippe Tulliez]

Bonjour,
Qu'est-ce qui ne marche pas ?
Une erreur ou le résultat qui n'est pas correct ?

[solongo]

C'est le résultat qui est faux. ça affiche :#VALEUR!

Voici le formule qui marche sur Excel:

Code :

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

=COUNTIFS('General Info'!$A$8:$A$6593,"<>"&"",'General Info'!$L$8:$L$6593,'DO NOT TOUCH'!$B$6)+COUNTIFS('General Info'!$A$8:$A$6593,"<>"&"",'General Info'!$L$8:$L$6593,'DO NOT TOUCH'!$B$7)+COUNTIFS('General Info'!$A$8:$A$6593,"<>"&"",'General Info'!$L$8:$L$6593,'DO NOT TOUCH'!$B$8)

En utilisation ce code excel, j'ai écrit ce code:

Code :

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

1
2
3
4
sformula = sformula = "=COUNTIFS('General Info'!$A$8:$A$6593,""<>""&"""",'General Info'!$L$8:$L$6593,'DO NOT TOUCH'!$B$6)+COUNTIFS('General Info'!$A$8:$A$6593,""<>""&"""",'General Info'!$L$8:$L$6593,'DO NOT TOUCH'!$B$7)+COUNTIFS('General Info'!$A$8:$A$6593,""<>""&"""",'General Info'!$L$8:$L$6593,'DO NOT TOUCH'!$B$8)"
 
 
Worksheets("statistic").Range("g14").Value = ActiveSheet.Evaluate(sformula)

je ne comprends pas pourquoi ça calcule pas alors que pour d'autres formulas (avec 2 additions de countifs bloc), ça fonctionne correctement. si je sépare les 3 countifs, ça calcule correctement, les 2 marches aussi, quand je mets les 3 ensemble, ça marche pas


Sauvez-moi SVP

[Philippe Tulliez]

Bonjour,

C'est le résultat qui est faux. ça affiche :#VALEUR!

Donc c'est une erreur.
As-tu suivi les étapes que je t'ai indiquées ?
Si la formule renvoie le bon résultat avec Excel, il n'y a pas de raison que cela ne fonctionne pas avec VBA.

Code :

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

sformula = sformula = "=COUNTIFS('General........

La formule que tu affiches ne peut pas t'apporter un bon résultat. Tu indiques Variable = Variable = "=Formule ....."