VBA combinaison countif et countblank

Bonjour à tous,

j'ai un récapitulatif de planning annuel par tranche horraire

en tete de colonne , j'ai les tranches horaires 0h , 1h , 2h ..., 23h

chaque ligne correspond à un jour dan l'année et contient:
le nom du jour en tete de ligne (ex "samedi")
le nombre de personne présente par tranche horaire.

je souhaite combiner les fonction countblank et countif pour savoir combien
de fois j'ai 0 personne le samedi ou le dimanche...

pour cela j'ai essayer ça:

Code:

---

1 2 3

nbvide24hWE = Application.WorksheetFunction.CountBlank(Range("C2:Z" & nbligneTC)) And _ (Application.WorksheetFunction.CountIf(Range("A2:A" & nbligneTC), "=sam")) Or _ (Application.WorksheetFunction.CountIf(Range("A2:A" & nbligneTC), "=dim"))

---

mais je obtient comme résultat 52.... :mouarf:

merci...

bon j'avance , mais c'est pas encore ça,

Code:

---

1 2 3

nbvide24hWE = Application.WorksheetFunction.CountBlank(Range("C2:Z" & nbligneTC)) And _ (Application.WorksheetFunction.CountIf(Range("A2:A" & nbligneTC), "=sam")) Or _ (Application.WorksheetFunction.CountIf(Range("A2:A" & nbligneTC), "=dim"))

---

je remplace le And par "+" et je me rapproche de la solution car j'obtiens 55, hors le nb de week-end est bien égale à 52 et j'ai bien 3 periodes vides....


le bon résultat est bien 3.

mais je ne vois pas comment combiner les 2 tests

Bonjour,
Ce serait beaucoup plus simple de travailler avec de vrai date car il existe une fonction qui te donne le n° du jour de la semaine.
La fonction est WeekDay

Code:

---

Debug.Print Weekday(Range("A1"), 2)

---

Si A1 contient le 09/08/2012, la fonction va renvoyer 4 pour jeudi.

Oui effectivement c'est plus simple et ça doit correspondre à la formule excel "jourSemaine" ou quelque chose comme ça...

comment je peux la combiner avec un countblank??

j'ai bien essayé de parcourir les 365 lignes de mon tableau pour verifier jour par jour si il y a des cellules vides, mais cela me rallonge concidérablement la durée d'éxecution de la macro...

Code:

---

1 2 3 4 5 6 7 8

nbvide24hWE = 0 For i = 2 To (nbligneTC - 1) If Range("A" & i).Value = "sam" Or Range("A" & i).Value = "dim" Then nbvide24hWE = Application.WorksheetFunction.CountBlank(Range("C2:Z" & nbligneTC)) End If Next   Range("AE16") = nbvide24hWE

---

Bonjour,
Dans ce cas bien précis, il me semble plus simple d'utiliser une formule avec excel.
Petit exemple avec SOMMEPROD et JOURSEM colonne A les dates les colonnes B à Y les cellules vides ou non vides.
Ici il n'y a que 19 lignes

Code:

---

=SOMMEPROD(($B$2:$Y$19=0)*(JOURSEM($A$2:$A$19;2)>5))

---

[EDIT]
Toujours à l'aide de la même fonction SOMMEPROD mais avec les jours en colonne A, j'ai laissé la colonne B avec des dates mais ne sert à rien ici et les cellules à calculer de C à Z

Code:

---

=SOMMEPROD( (($A$2:$A$19="sam") + ($A$2:$A$19="dim")) * ($C$2:$Z$19=0))

---