Bonjour,
Les lignes de code que tu donnes en exemple ne feront pas le calcul mais mettront dans la cellule B192(je crois) la formule '=somme(Btruc Bmachin)'
Si c'est ce que tu cherches a faire, c'est :
ActiveSheet.Cells(191, 2).Formula = '=Sum(B1:B' & a & ')'
Si c'est juste mettre le résultat en B191, met plutot :
ActiveSheet.Cells(191, 2).Value = Application.WorksheetFunction.Sum(range('B1:B' & a))
Vala.. ca devrait marcher
A+
Edit : oops.. c'était pas bon... là ça devrait aller...
Message édité par: 2passage, à: 01/08/2005 15:01