Discussion :

[yoyo3d]

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 :

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

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....

merci...

[yoyo3d]

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

Code :

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

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

[Philippe Tulliez]

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 :

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

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

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

[yoyo3d]

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 :

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

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

[Philippe Tulliez]

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 :

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

=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 :

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

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