Bonjour le forum!
Alors tous d'abord j'ai dans une feuille excel des dates (jj/mm/aaaa) triée de Z à A dans la colonne A, et des nombres dans la colonne D. Tous ceci en nombre variable (Cela sera rajouté chaque semaine)
Je souhaiterais faire un total des nombres dans une autre cellule par mois.
exemple :
27/03/2012 3
21/03/2012 2
03/02/2012 5
Alors dans la colonne G avoir :
02/2012 5
03/2012 5
Mon code :
A vrai dire je ne sais pas comment faire pour la condition "Do While Month(rg.Offset(1, 0)) <> Month(rg.Offset(j, 0))" car VB me demande un tableau
Merci pour vos réponses je joint un fichier en exemple.
Alors tous d'abord j'ai dans une feuille excel des dates (jj/mm/aaaa) triée de Z à A dans la colonne A, et des nombres dans la colonne D. Tous ceci en nombre variable (Cela sera rajouté chaque semaine)
Je souhaiterais faire un total des nombres dans une autre cellule par mois.
exemple :
27/03/2012 3
21/03/2012 2
03/02/2012 5
Alors dans la colonne G avoir :
02/2012 5
03/2012 5
Mon code :
Code:
d = 2
j = 2
For Each rg In wbkWs.Range("A2:A" & wbkWs.Range("A65536").End(xlUp).Row)
Do While Month(rg.Offset(1, 0)) <> Month(rg.Offset(j, 0))
Range("G" & d) = Month(rg.Offset(1, 0))
d = d + 1
j = j + 1
Next rg
A vrai dire je ne sais pas comment faire pour la condition "Do While Month(rg.Offset(1, 0)) <> Month(rg.Offset(j, 0))" car VB me demande un tableau
Merci pour vos réponses je joint un fichier en exemple.