Holà,
Perso j'partirais sur une boucle qui check la valeur de ta colonne "date" et qui incrementera ta colonne contenant le nb de demande.
Un peu sous cette forme
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Sub test()
Dim j As Long
Dim lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row 'va chercher la derniere ligne non vide de ton tableau
For j = 2 To lastrow 'à la place du 2, tu met la première ligne avec une variable a checker
If (Cells(j, "B").Value = "01/01/2013") Then 'remplace B par la colonne à verifier
Cells(2, "C").Value = Cells(2, "C").Value + 1 'remplace C par la colonne janvier 2013 ( pour l'exemple)
Else If ' tu check une autre date etc
End If
Next j
End Sub |
J'ai fait dans le cas où tes colonnes jan 13 etc sont dans le même fichier, sur la même feuille. Si ce n'est pas le cas, il faut le préciser :
Workbooks.Open("nomdufichier").Sheets("nomdelafeuille").cells(2,"C").value
Partager