Bonjour à tous,
Je m'exerce à créer des fonctions personnalisées, mais le code qui suit me paraît un peu "Lourd" mais il fonctionne.
Il s'agit d'une fonction qui permet d'effectuer un total de plusieurs plages de cellules définies ou que l'on peut modifier.
Function TOTAL_GENERAL(PLAGE1, PLAGE2, PLAGE3, PLAGE4) As Double
Dim TOTAL1 As Double
Dim TOTAL2 As Double
Dim TOTAL3 As Double
Dim TOTAL4 As Double
TOTAL1 = Application.WorksheetFunction.Sum(PLAGE1)
TOTAL2 = Application.WorksheetFunction.Sum(PLAGE2)
TOTAL3 = Application.WorksheetFunction.Sum(PLAGE3)
TOTAL4 = Application.WorksheetFunction.Sum(PLAGE4)
'Indispensable pour forcer le recalcul quand on modifie le contenu de la feuille
Application.Volatile
TOTAL_GENERAL = TOTAL1 + TOTAL2 + TOTAL3 + TOTAL4
End Function
Y-a-t-il moyen de simplifier cette codification, j'ai bien essayé par exemple pour le TOTAL_GENERAL le code suivant mais ça coince....
For i = 1 To 4
TOTAL_GENERAL = Sum(TOTAL, i)
Next i
Merci pour votre aide précieuse.