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+

[ouskel'n'or]

Essaie ça

Code :

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

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

[lio62]

Bonjour Ousk

j'essaye ca et je te dis
par contre j'ai ca aussi mais j'ai également la meme erreur d'incompatibilité sur date2 (en rouge)
j'ai' essayé en déclarant date1 et date2 en integer ,long, date, string mais j'ai toujours la meme erreur

Code :

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

1
2
3
4
5
6
7
8
date1 = (Year([ao1]) * 100) + Month([ao1])
     
     With Worksheets("bd")
        .Range("A2").Activate
        .Range("A2").End(xlDown).Select
        Set rng = ActiveCell
        For n = 1 To rng.Row
      date2 = (Year(.Range("B" & n)) * 1) + Month(.Range("B" & n))

merci a+

[ouskel'n'or]

Tu ne peux pas déduire la correction à tester de ma réponse précédente ?

[dadavyvy]

Juste une question a tout hasard, de quelle colonne extrais-tu tes dates et qu'y a-t-il dans cette colonne?

[lio62]

bonsoir,

j'ai mis les variables a long et j'ai surtout mis 2 a la place de 1
pour N car je trie bien sur la colonne mais a partir de la ligne 2 la première servant d'entete aux colonnes.

merci a tous..........................tu vois ousk que j'ai cherché mais je ne maitrise pas bien l'espion. y a un tuto la dessus

Code :

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

1
2
3
For n = 1 To rng.Row    
  date2 = (Year(.Range("B" & n)) * 1) + Month(.Range("B" & n))

[ouskel'n'or]

Pour l'espion, je ne peux pas te répondre. Quand je ne sais pas, je teste
Par contre, tu peux expliquer ton "* 1" là :

Code :

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

date2 = (Year(.Range("B" & n)) * 1) + Month(.Range("B" & n))

Je t'avoue que ça me dépasse

[lio62]

t emarre pas ousk il ne sert srictement a rien je l'ai effacé depuis bien longtemps ( ) mais a l'école ......