Bonsoir
j'ai une feuille"bd" qui contient des dates en colonne "B" sous cette forme JJ/MM/AAAA, je voudrai extraire ces données en fonction du mois et de l'année.

Pour l'instant j'y arrive avec le type de travail et les équipes intervenantes mais pour les dates je coince



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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub test()
Dim tabonglet As Variant
Dim onglet As String
Dim n As Long
Dim j As Byte, w As Byte
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer, h As Integer, r As Integer
 
 
Dim rng As Range
 
tabonglet = Array("MAINTENANCE", "DEPANNAGE", "ENTRETIEN")
w = 4
For j = 0 To UBound(tabonglet)
Sheets("bd").Activate
 
onglet = tabonglet(j)
    a = 0
    b = 0
    c = 0
    d = 0
    e = 0
    f = 0
    g = 0
    h = 0
 
    With Worksheets("bd")
        .Range("A2").Activate
        .Range("A2").End(xlDown).Select
        Set rng = ActiveCell
        For n = 1 To rng.Row
            If .Range("a" & n) = onglet And .Range("x" & n) Like "b1" Then a = a + 1
            If .Range("a" & n) = onglet And .Range("x" & n) Like "b2" Then d = d + 1
            If .Range("a" & n) = onglet And .Range("x" & n) Like "b3" Then b = b + 1
            If .Range("a" & n) = onglet And .Range("x" & n) Like "b4" Then c = c + 1
            If .Range("a" & n) = onglet And .Range("x" & n) Like "b5" Then g = g + 1
 
        Next n
        Sheets("feuil1").Range("b" & w) = a   
        Sheets("feuil1").Range("c" & w) = d   
        Sheets("feuil1").Range("d" & w) = b   
       Sheets("feuil1").Range("e" & w) = c  
         Sheets("feuil1").Range("f" & w) = g  
 
 
        w = w + 1
    End With
Next j
 
Worksheets("bd").Range("S1").Activate
End Sub
merci a+