bonjour à tous,
j'ai extrait une partie du code dont la formule en rouge ne fonctionne pas sans que je comprenne pourquoi.
Le fichier est joint pour essai (la macro s'appelle 'statistique').
cette formule calcul la somme de chiffre pourun mois donné.
Elle fonctionne si à la place des variables M (mois) et A (année) je met des nombres. Mais en utilisant ces variables M et A cela ne fonctionne pas.
J'ai tout essayé alors votre aide m'est plus que nécessaire.
Merci
Dim M As Integer, A As Integer, L As Byte
L = 7 'à partir de ligne n° 7
Do
M = Month(Range('J' & L)) 'extraction du mois de la cellule J
A = Year(Range('J' & L)) 'extraction de l'année de la cellule J
Range('K' & L) = Evaluate('(sum(E6:E65536)*(MONTH(B6:B65536)=M)*(YEAR(B6:B65536)=A))') 'calcul du total mensuel
L = L + 1 'passer à la ligne suivante
If Range('J' & L) = '' Then GoTo Line1 'si la cellule ne contient pas de date arreter le calcul
Loop :evil:
j'ai extrait une partie du code dont la formule en rouge ne fonctionne pas sans que je comprenne pourquoi.
Le fichier est joint pour essai (la macro s'appelle 'statistique').
cette formule calcul la somme de chiffre pourun mois donné.
Elle fonctionne si à la place des variables M (mois) et A (année) je met des nombres. Mais en utilisant ces variables M et A cela ne fonctionne pas.
J'ai tout essayé alors votre aide m'est plus que nécessaire.
Merci
Dim M As Integer, A As Integer, L As Byte
L = 7 'à partir de ligne n° 7
Do
M = Month(Range('J' & L)) 'extraction du mois de la cellule J
A = Year(Range('J' & L)) 'extraction de l'année de la cellule J
Range('K' & L) = Evaluate('(sum(E6:E65536)*(MONTH(B6:B65536)=M)*(YEAR(B6:B65536)=A))') 'calcul du total mensuel
L = L + 1 'passer à la ligne suivante
If Range('J' & L) = '' Then GoTo Line1 'si la cellule ne contient pas de date arreter le calcul
Loop :evil: