extraction de dates

[lio62]

Bonsoir,
j'ai une base de donnée (feuille "bd") dans laquelle se trouve en colonne "B"
des dates sous cette forme JJ/MM/AAAA, je voudrais extraire ces données en fonction du mois et de l'année.Pour l'instant j'y arrive pour la colonne A (maintenance, entretien depannage )et les équipes b1, b2 etc..) mais pour les dates je coince

Sub pretmatosinformatique()
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+

 

[ChTi160]

Re : extraction de dates

arff salut Wilfried

je pense à une chose date2 et donc sous la forme 200704 pour par exemple 01/04/2007
donc un nombre Lol qui comme tu le dis est plus qu'un Integer Lol

je ne dois pas avoir tout saisis Lol, mais je vais suivre lol

bonne fin de journée

 

[wilfried_42]

Re : extraction de dates

re:

disons que la question d'origine est : extraire toutes les dates d'une base en fonction de l'année et du mois

joyeuses pacques

 

[lio62]

Re : extraction de dates

re

j'ai essayé avec long integer string et date et j'ai toujours la meme erreur
merci a+

 

[lio62]

Re : extraction de dates

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..........................je nemaitrise pas bien l'espion. y a un tuto la dessus

[COLOR="Red"]For n = 1 To rng.Row[/COLOR]
  date2 = (Year(.Range("B" & n)) * 1) + Month(.Range("B" & n))