récupération d'une partie d'un champ date

Sub Bouton1_QuandClic()
Dim tablo(1 To 12, 1 To 2)
Dim derligne As Integer
Dim i As Byte

derligne = Range('a65536').End(xlUp).Row

For i = 1 To 12
        tablo(i, 1) = MonthName(i)
        tablo(i, 2) = Evaluate('SUMPRODUCT((MONTH(a1:a' & derligne & ')=' & i & ')*(c1:c' & derligne & '=''oui'')*b1:b' & derligne & ')')
Next i

With Sheets('feuil2')
        For i = 1 To 12
                .Cells(i, 1) = tablo(i, 1)
                With .Cells(i, 2)
                        .Value = tablo(i, 2)
                        .NumberFormat = 'h:mm;@'
                End With
        Next i
End With
End Sub

Cliquez pour agrandir...