Voila j'ai une formule dans A1 de feuil1 =somme(Achat:Capital!C1)[/b] qui calcule la somme des C1 dans les 10 feuilles :
(Achat, Vente, Stocke, Etat, compt, Total1, Total2, Gain, Recette, Capital).
Jusqu'à maintenant pas de problème.
Quand je copie la formule avec la poignée de recopie de A1 vers A10 j'obtient :
Sub test()
Sheets(1).Select
Z = 0
For i = 1 To 9
Cells(i, 1).Select
ActiveCell.FormulaR1C1 = "=SUM(Achat:Capital!R[" & Z & "]C[2])"
Z = Z + 10
Next
End Sub
Cdlt
RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique
merci de poser vos questions VBA à cet endroit
salutations
RGI
Un MERCI en retour c'est sympa
et ne pas oublier le tag :après résolution.