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
merci a+
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
Code:
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+