VBA : problème de calcul

[Jean]

Bonjour à tous

Fichier source: source.xls
Feuilles: total facture; un nombre variable de feuilles

Problème: faire calculer en VBA le range E17:E116 de chacunes de feuilles (même si le nombre de feuilles changent) et reporter ce total dans la feuille total facture range E16:E117.

Merci d'avance pour votre aide.


Jean

 

[n1portki]

essai ça ça fait le calcul lorsqu'on ouvre la page. On affiche le resultat sur la dernière page dans la cellule B2

Private Sub Workbook_Open()

For feuille = 1 To Sheets.Count

Set MyRange = Worksheets(feuille).Range("A1:A10")
somme = Application.WorksheetFunction.Sum(MyRange)
total = total + somme


Next


Worksheets(Sheets.Count).Range("B2").Value = total


End Sub

 

[Jean]

Bonjour

Merci pour ta réponse.

Je vais tester ta solution et je te reviens sous peu pour te dire le résultat.

Bonne journée

Jean

 

[Jean]

Re-Bonjour

Bravo ça fonctionne très bien.

J'ai toutefois encore une question.

J'ai modifié un peu ton code pour que le total soit sur la feuille Facture Cartierville

Private Sub Workbook_Open()
For feuille = 1 To Sheets.Count
Set MyRange = Worksheets(feuille).Range("E17")
somme = Application.WorksheetFunction.Sum(MyRange)
Total = Total + somme
Next
Worksheets("Facture Cartierville").Range("H17").Value = Total
End Sub


Problème: est-ce que le code peut être modifié afin que la calcul soit effectué pour chacune des cellules (calcul de tout les E17 et total dans H17, ensuite calcul de tout les E18 et total dans H18 .... ensuite de suite) sans avoir à réécrire un nouveau MyRange, somme et total.

Merci d'avance pour ton aide.


Jean