CountIfs

Paf

XLDnaute Barbatruc

• 16 Juin 2015

• #2

Re : CountIfs

Bonjour,

WorksheetFunction.CountIf, comme la fonction NB.SI (et pour cause), n'accepte qu'une plage de recherche et un critère.

Précisez donc ce que vous cherchez à déterminer avec:
PSB = Application.WorksheetFunction.CountIfs(Range(Columns(colSem), Columns(col2Sem)), code, Range(Columns(5)), "=BSMR")

avec ces précisions un intervenant pourra sans doute mieux vous orienter : scinder en deux, autre fonction ...

A+

 

Vote positif 0 Vote négatif

R

RYJITS

Guest

• 16 Juin 2015

• #3

Re : CountIfs

Bonjour,
Comme vous l'avez remarque j'utilise bien countifs et pas countif et donc la fonction devrais accepter plusieur critères. Je cherche a comptabiliser le nombre de code inscrit dans la plage entre deux colonne défini par les variable colsem et colsem2 si la valeur BSMR dans la colonne 5 est vrais.
Merci encore

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 17 Juin 2015

• #4

Re : CountIfs

Re,

Jusqu'à XL 2003 Countifs n'existait pas d'où ma méprise.

avec XL 2003, PSB = Application.WorksheetFunction.CountIf(Range(Columns(5)), "=BSMR") est en erreur et on doit modifier en PSB = Application.WorksheetFunction.CountIf(Range("E:E"), "=BSMR") pour que ça fonctionne.


Essayer peut être (je suppose, je ne peux pas tester), d'apporter cette modif à votre code ?

PSB = Application.WorksheetFunction.CountIfs(Range(Colum ns(colSem), Columns(col2Sem)), code, Range("E:E"), "=BSMR")

Bonne suite

 

Vote positif 0 Vote négatif

R

RYJITS

Guest

• 17 Juin 2015

• #5

Re : CountIfs

bonjour,
s'est la première chose que j'ai essayé même problème il n'accepte pas ma deuxième condition

les essai que j'ai fait

Range("E:E"), "=BSMR")
Range("E:E"), "BSMR")
"E:E", "=BSMR")
Range(Columns(5), Columns(5))

merci de consacrer du temps pour mon problème je pense que je vais essayer avec sommeprod ca devrais fonctionnée mais j'aimerais bien comprendre mon erreur

 

Vote positif 0 Vote négatif

R

RYJITS

Guest

• 18 Juin 2015

• #6

Re : CountIfs

bonjour,

la je sais plus ni avec countifs ni avec SumProduct

j'ai vraiment besoin d'un sérieux coup de main

merci encore

Sub comptage()

Dim TotalAbsents As Integer
Dim colSem As Integer
Dim colSem2 As Integer
Dim Ligne As Integer
Dim Actions_Absence As String
Dim code As String
Dim Plage As Range
Dim Plage2 As Range

Range("J7").Select
Ligne = 3

colSem = ActiveCell.Column
col2Sem = ActiveCell.Column + 7
code = Sheets("Code absence").Cells(Ligne, 1).Value
Set Plage = Range(Columns(colSem), Columns(col2Sem))
Set Plage2 = Range("E:E")

Do While code <> ""

Actions_Absence = Sheets("Code absence").Cells(Ligne, 3).Value
code = Sheets("Code absence").Cells(Ligne, 1).Value
'PSB = Application.WorksheetFunction.CountIfs(Plage, code, Plage2, "=BSMR")
PSB = Application.WorksheetFunction.SumProduct((Plage2 = "BSMR") * (Plage = " & code & "))


If Actions_Absence = "Absent" And PSB > 0 Then

TotalAbsents = TotalAbsents + PSB
Ligne = Ligne + 1

Else

Ligne = Ligne + 1

End If

Loop
'
End Sub

 

Vote positif 0 Vote négatif

R

RYJITS

Guest

• 19 Juin 2015

• #7

Re : CountIfs

bonjour,

voici un fichier pour une meilleures compréhension

merci d'avance

 

Pièces jointes

• essai1.xlsm

  19.9 KB · Affichages: 44
• essai1.xlsm

  19.9 KB · Affichages: 48
• essai1.xlsm

  19.9 KB · Affichages: 51

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 20 Juin 2015

• #8

Re : CountIfs

re,

Plage est une plage de 7 colonnes, peut_être que countifs, comme sumproduct, ne peut pas fonctionner avec plusieurs plages dont une multicolonne

essayer peut-être de traiter en plusieurs fois du style:

Code:

For i= colSem to colSem2
    PSB = PSB +  Application.WorksheetFunction.CountIfs(Range(Columns(i)), code, Range(Columns(5)), "=BSMR")
Next

Bonne suite

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Juin 2015

• #9

Re : CountIfs

Bonjour à tous,

Un SOMMEPROD() n'accepte pas les colonnes entières.

A+ à tous

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 22 Juin 2015

• #10

Re : CountIfs

bonjour à tous

finalement ça a l'air en voie de solutionnement par là:

CountIfs : Excel - VBA

 

Vote positif 0 Vote négatif