Rapport de message :*
 

Re: modifier formule dans macro

Titre du sujet : Re: modifier formule dans macro
par Eric le 08/06/2012 11:25:06

 
Bonjour à tous
Bonjour jad73
Ce que j'ai proposé était à adapter. Ne connaissant pas la cellule destinataire, j'avais pris "D1" comme exemple (la boule de cristal n'a pas marché).
Tu avais mis : NB.SI($B$2:$F$41;A6), donc j'ai repris cela (il faut que je change de boule de cristal).
Quoiqu'il en soit voici l'adaptation :
En tête du module, et non dans la "macro4" :
Dim a As Integer
Dim b As Integer

et entre "End with" et "Range("A6:B54").copy
Range("B6") = Application.WorksheetFunction.CountIf(Range("B" & (2 + a) & ":F" & (51 + b)), Range("A6"))
a = a + 1
b = b + 1
Eric