Discussion :

[moi244]

Bonjour,
J'essaie de faire un countif avec plusieurs arguments, je ne comprend pas ce qui ne marche pas, f'aut-il ajouter un module dans les compléments vba?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub compte()
 
Dim oui As Double
 
    For i = 3 To 11
 
        oui = WorksheetFunction.CountIfs(Range(Cells(i, 5), Cells(i, 13)), "B456", "C789", "E144")
 
        Cells(i, 3) = oui
    Next i
 
End Sub

[Kimy_Ire]

D'après ce que je lis là : http://msdn.microsoft.com/en-us/libr.../ff196714.aspx, pas besoin de mettre de guillements autours des cellules. Mais je n'ai pas testé.

[moi244]

je viens d'essayer, ça ne fonctionne pas non plus, et voici ce que Microsoft dit dans l'aide VBA concernat les critères:

"Au moins un critère définissant les cellules affectées. Il peut prendre la forme d'un nombre, d'une expression, d'une référence de cellule ou de texte. Par exemple, 32, "32", ">32", "pommes" ou B4.

[moi244]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub compte()
 
Dim oui As Double
 
    For i = 3 To 11
 
        oui = WorksheetFunction.CountIfs(Range(Cells(i, 5), Cells(i, 13)), "B456", "C789", "E144")
 
        Cells(i, 3) = oui
    Next i

Je me répond si ça peut aider les autres personnes, il suffit d'ajouter le range à coté de chaque critère.

Code :

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

oui = WorksheetFunction.CountIfs(Range(Cells(i, 5), Cells(i, 13)), "B456", Range(Cells(i, 5), Cells(i, 13)), "C789",Range(Cells(i, 5), Cells(i, 13)), "E144")