formule avec variable et evaluate

[ebinet]

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:

 

[AV]

Salut,

M et A étant des variables

''...Range('K' & L) = Evaluate('sum(E6:E65536)*(MONTH(B6:B65536)=' &M &')*(YEAR(B6:B65536)=' &A &'))')

AV [aaa]

 

[ebinet]

Un grand Merci AV

j'avais essayé avec les ' et les & mais sans les espaces... Ils font toute la difference et ca fonctionne impecc.

Merci encore