nombre d'occurence dans une liste de dates

**babybell** · 22/01/2011, 10h55

Amis du Forum, bonjour

Après des recherches vaines, je m'adresse à vous. J'ai un calendrier comme ceci qui reprend les jours ouvrés :
mardi 02 novembre 2010
mercredi 03 novembre 2010
jeudi 04 novembre 2010
vendredi 05 novembre 2010
lundi 08 novembre 2010
mardi 09 novembre 2010
mercredi 10 novembre 2010
vendredi 12 novembre 2010
lundi 15 novembre 2010
mardi 16 novembre 2010
mercredi 17 novembre 2010
jeudi 18 novembre 2010
vendredi 19 novembre 2010
lundi 22 novembre 2010
mardi 23 novembre 2010
mercredi 24 novembre 2010
jeudi 25 novembre 2010
vendredi 26 novembre 2010
lundi 29 novembre 2010
mardi 30 novembre 2010
mercredi 01 décembre 2010
jeudi 02 décembre 2010
vendredi 03 décembre 2010
lundi 06 décembre 2010
mardi 07 décembre 2010
mercredi 08 décembre 2010
jeudi 09 décembre 2010
vendredi 10 décembre 2010
lundi 13 décembre 2010
mardi 14 décembre 2010
mercredi 15 décembre 2010
jeudi 16 décembre 2010
vendredi 17 décembre 2010
lundi 20 décembre 2010
mardi 21 décembre 2010
mercredi 22 décembre 2010
jeudi 23 décembre 2010
vendredi 24 décembre 2010
lundi 27 décembre 2010
mardi 28 décembre 2010
mercredi 29 décembre 2010
jeudi 30 décembre 2010
vendredi 31 décembre 2010

J'essaie de savoir combien de fois, par exemple, j'ai le mois de décembre 2010 comprit dans ma liste. J'utilise

Code :

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

=NB.SI(B466:B808;"déc-10")

, la seule réponse que j'obtiens est 1.

Qui pourrait m'indiquer le moyen d'y parvenir ?

Merci à vous.

**Qwazerty** · 22/01/2011, 11h10

Salut
Avec tes données en colonne A

Code :

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

=NB.SI.ENS(A:A;">=" & DATEVAL("01/12/10");A:A;"<" & DATEVAL("01/01/11"))

[Edit]
Je viens de penser que cette formule n'existe qu'a partir d'Excel 2007.
Si tu es avec une version antérieur, je suppose qu'il te faut décomposer
NbCellulesNonVide - NbrCelluleAvant01/12/10 - NbrCelluleApres31/12/10
En utilisant Nb.si bien entendu
[/Edit]
++
Qwaz

**babybell** · 22/01/2011, 11h55

Merci Qwazerty, mais la seule réponse que j'obtiens est : #NOM?

**Qwazerty** · 22/01/2011, 11h57

Salut
Entre temps j'ai édité mon poste, tu dois être avec un version d'excel inf a 2007?

**babybell** · 22/01/2011, 11h57

oui, 2003

**Qwazerty** · 22/01/2011, 12h02

Essai avec ça

Code :

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

=NB.SI(A:A;"<>")-NB.SI(A:A;"<"&DATEVAL("01/12/10"))-NB.SI(A:A;">"&DATEVAL("31/12/10"))

**mercatog** · 22/01/2011, 12h14

=SOMMEPROD((A:A>=DATEVAL("1/12/2010"))*(A:A<=DATEVAL("31/12/2010")))

**babybell** · 22/01/2011, 12h17

Cela fonctionne, avec à la fin -1(intervalles oblige). Merci encore à toi et bon week end

**Qwazerty** · 22/01/2011, 13h42

Salut
@Mercatog: En effet c'est plus simple, je ne pense jamais a SommeProd, il faudra que je m'y intéresse, merci

++
Qwaz

**babybell** · 22/01/2011, 21h20

Bonsoir

J'ai essayé le code de mercatog, mais cela me donne : #NOMBRE!. C'est pas grave, la solution de Qwazerty fonctionne bien. Mais, existe-t-il un moyen de remplacer les dates en dur par une variable ?

Code :

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

1
2
3
If mois = "04" Then jour_deb = "01/03/" & année: jour_fin = "31/03/" & année
Sheets("calendrier").Range("b1").FormulaR1C1 = "=COUNTIF(C[-1],""<>"")-COUNTIF(C[-1],""<""&DATEVALUE(""jour_deb""))-COUNTIF(C[-1],"">""&DATEVALUE(""jour_fin""))-1"
nombre_de_jours = Sheets("calendrier").Range("b1").Value

mon code ne fonctionne pas.

**Qwazerty** · 22/01/2011, 21h33

Salut
Étonnant, le code de Mercatog fonctionne pourtant très bien.
Au vu de ton code je me pose une question, quel est le but, la valeur de la cellule B1 doit être le nombre de jour du mois donné trouvé dans la liste? ou tu te sert de cette cellule uniquement pour obtenir le nombre de jours dans ton code excel?

++
Qwaz

**babybell** · 22/01/2011, 21h37

Effectivement, il me faut le nombre de jours d'un mois mis en variable pour diviser un nombre total de valeurs par le nombre de jours de ce mois. C'est pourquoi, dans ton code, je ne mets pas directement les coordonnées du mois, mais une variable représentant le 1er et une le dernier du mois.

**Qwazerty** · 22/01/2011, 21h58

Tu as plusieurs solutions
En voila une

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
Option Explicit
Sub Macro1()
 
Range("B2") = Nb_InterDates(Range("A:A"), "01/12/2010", "31/12/2010")
End Sub
 
Function Nb_InterDates(Matrice As Range, StrDateDebut As String, StrDateFin As String) As Byte
Dim Tab_Mat
Dim TheDate
 
'Init
Tab_Mat = Range(Matrice.Cells(1, 1), Matrice.Cells(Matrice.Rows.Count, 1).End(xlUp)).Value
 
For Each TheDate In Tab_Mat
    If CDate(StrDateDebut) <= CDate(TheDate) And CDate(TheDate) <= CDate(StrDateFin) Then
        Nb_InterDates = Nb_InterDates + 1
    End If
Next
 
 
End Function

Tu pourrais aussi utiliser WorksheetFunction et utiliser directement SumProd, je vais regarder
[Edit]Non je n'arrive pas a intégré des variables, ça ne fonctionne pas, Evaluate non plus je n'y arrive pas.[/Edit]

**mercatog** · 23/01/2011, 01h35

Si on cherche le nombre de jours dans un vecteur Vect qui appartiennent à un mois donnée LeMois et une année donnée LAnnee

Code :

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

1
2
3
4
5
6
7
Function Nbj(ByVal Vect As Range, ByVal LeMois As Byte, ByVal LAnnee As Integer) As Byte
Dim Dd As Long, Df As Long
 
Dd = CLng(DateSerial(LAnnee, LeMois, 1))
Df = CLng(DateAdd("m", 1, Dd))
Nbj = Evaluate("SUMPRODUCT((" & Vect.Address & ">=" & Dd & ")*(" & Vect.Address & "<" & Df & "))")
End Function

**Qwazerty** · 23/01/2011, 07h25

... j'suis naze, ~~je rajouté des dateval...~~
Ha non c'est pas a cause de ça, c'est qu'il ne faut pas mettre de = dans Evaluate()!

**babybell** · 23/01/2011, 18h55

Merci mercatog, mais cela devient trop Hard pou moi.
J'ai fait le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function Nbj(ByVal Vect As Range, ByVal LeMois As Byte, ByVal LAnnee As Integer) As Byte
Dim Dd As Long, Df As Long
 
Dd = CLng(DateSerial(LAnnee, LeMois, 1))
Df = CLng(DateAdd("m", 1, Dd))
Nbj = Evaluate("SUMPRODUCT((" & Vect.Address & ">=" & Dd & ")*(" & Vect.Address & "<" & Df & "))")
End Function
Sub Macro1()
lAnnée = "09"
LeMois = "03"
Dd = "01/03/" & année: Df = "31/03/" & année
Range("B2") = Nbj(Range("A:A"), "Dd", "Df")
End Sub

pour qu'en B2 apparaisse le nombre de jours ouvrés de ma liste, mais cela se plante. J'ai du zappé ne manip.

**mercatog** · 23/01/2011, 19h03

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
Dim annee As Integer
Dim mois As Byte
annee = 2009
mois = 3
Range("B2").Value = Nbj(Range("A:A"), mois, annee)
'ou bien directement: Range("B2").Value = Nbj(Range("A:A"), 3,2009)
End Sub

**babybell** · 23/01/2011, 19h13

Que ce soit l'un ou l'autre, j'obtiens " Erreur d'exécution '13' : Incompatibilité de type" .
Y a t-il une référence supplémentaire à rentrer ?

**mercatog** · 23/01/2011, 19h30

Je ne vais pas deviner ton fichier
avant de poster je fais des tests sur mon fichier
au moins reporte ton code en entier ou éventuellement un extrait de ton fichier

EDIT
ci joint code complet avec lequel je testais

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
Function Nbj(ByVal Vect As Range, ByVal LeMois As Byte, ByVal LAnnee As Integer) As Byte
Dim Dd As Long, Df As Long, frml As String
 
Dd = CLng(DateSerial(LAnnee, LeMois, 1))
Df = CLng(DateAdd("m", 1, Dd))
Nbj = Evaluate("SUMPRODUCT((" & Vect.Address & ">=" & Dd & ")*(" & Vect.Address & "<" & Df & "))")
End Function
 
Sub Macro1()
Dim LastLig As Long
 
With Sheets("Feuil3") ' à adapter
   LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
   .Range("B2").Value = Nbj(.Range("A2:A" & LastLig), 2, 2009)
End With
End Sub

Regarde bien le type de chaque paramètre de la fonction (vect: range, mois: byte, annee: integer)