Bonjour,

je dispose d'un fichier de plusieurs décisions déroulées chacune sur une ligne Excel.

Je dois compter le nombre de décisions qui ont été prises entre deux Dates. Jusque là pas de problèmes (Voir le code, cela fonctionne bien)

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
22
23
24
Sub requete()
    Dim i As Integer, a As Integer
    Dim f As Worksheet, g As Worksheet
    Dim d1 As Date, d2 As Date, d3 As Date
 
    Set f = ThisWorkbook.Worksheets("AGO")
    Set g = ThisWorkbook.Worksheets("EC_sur_1_an")
 
    d1 = g.Cells(2, 4).Value
    d2 = g.Cells(2, 6).Value
    MsgBox "D1 = " & d1 & " et D2 = " & d2
    d3 = Month(d1)
    MsgBox "D3 = " & d3
 
    a = 0
    For i = 6 To 1000
    ''''''''' Total
        If d1 <= f.Cells(i, 3).Value And f.Cells(i, 3).Value <= d2 Then
            a = a + 1
        End If
    Next i
    g.Cells(5, 1).Value = a
    g.Activate
End Sub
Mais cela se complique car je dois aussi compter le nombre de décision par mois entre les deux dates. Et là je ne vois pas comment faire.

Si quelqu'un pouvait m'aider.

Merci