Discussion :

[lio62]

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+

[dadavyvy]

Je ne vois pas ou est le probleme avec les dates.
Si toutes tes dates sont au format JJ/MM/AAAA, tu devrais pouvoir comparer avec les 7 derniers caractères de ta date qui te donne donc MM/AAAA :

Code :

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

If Right(Trim(.Range("b" & n).Text),7) = "01/2007" Then (...)

Ou alors comparer le mois et l'annee :

Code :

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

If Month(.Range("b" & n)) = 1 And Year(.Range("b" & n))=2007 Then (...)

[lio62]

bonsoir, Dadavyvy

je teste cela

merci a+

[durdesfois]

Tu pourrais aussi utiliser les fonctions prédéfinies de VBA-E

dans ton cas, je pense que:

MOIS=Datepart("m",adresse_de_Cellule$)
et
ANNEE=Datepart("yyyy",adresse_de_Cellule$))

devraient faire l'affaire.

[mulanzia2003]

j'ai un petit programme qui fonctionne comme tu souhaiterais.
Je te le ferai passer dès que je rentre au boulot.
Le principe :
1) tu tri ta colonne date par ordre de date croissante
2) tu rentres la date de départ
3) tu rentres la date de fin
4) il extrait toutes les lignes qui sont comprises entre la date de début et la date de fin.

Dis moi si tu es intéressé??

[lio62]

bonsoir Mulanzia


je suis preneur

d'autant que j'ai une erreur "incompatibilité de type sur cette ligne

Code :

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

If Month(.Range("b" & n)) = 1 And Year(.Range("b" & n))=2007 Then (...)

merci a+