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