Formules sur feuilles multiples

Le sommaire est le suivant:

Introduction

Seules les Formules Somme, Moyenne, Nb, Nbval permettent de faire des calculs sur des plages discontinues ou Multi-Feuilles (Calcul en 3 Dimensions).
exemple :
=Somme(Feuil1:Feuil3!A1:A10) : effectue la somme de la plage A1:A10 des 3 feuilles.

Somme.si, Nb.si, Sommeprod, Index, Equiv ainsi que les formules matricielles ne le font pas, même avec des plages nommées.

Cette Fonction personnalisée n'a pas pour but de ré-écrire les différentes formules, mais transforme une plage discontinue ou une plage sur un certain nombre de feuilles en une seule matrice.

Syntaxe

=Trf_plage(Ma Plage; "Feuil1:Feuil3")

• Ma plage : La plage à traiter exemple : A1:A10
• "Feuil1:Feuil3" : Les feuilles à traiter, un bloc de feuille (1ère Feuille : Dernière Feuille) ce paramètre est optionnel, pour les plages discontinues ne nécessitant pas de Multi-Feuilles.

Exemples

Je tiens à préciser que les formules nb.si ou somme.si ne fonctionnent toujours pas, mais elles peuvent êtres facilement transformées en formules matricielles.
Index associé à Equiv Fonctionne très bien. (Nous avons maintenant une recherche Multi-Feuilles).

Les formules sur fond roses sont des Formules matricielles.
Elle doivent être validées en appuyant simultanément sur les touches Ctrl + Maj + Entrée. Si la validation est correctement effectuée, des {} encadrent automatiquement la formule.


Téléchargez le fichier d'exemple en cliquant ici

Code

Voici le code de la fonction personnalisée, à placer dans un module standard.

Function trf_plage(plage As Range, Optional feuilles As String = "") As Variant
    Dim cel As Range, i As Long, j As Integer, tablo() As Variant
    Dim feuille1 As String, feuille2 As String
    Application.Volatile
    i = -1
    If feuilles = "" Then feuilles = ActiveSheet.Name & ":" & ActiveSheet.Name
    feuille1 = Left(feuilles, InStr(feuilles, ":") - 1)
    feuille2 = Right(feuilles, Len(feuilles) - InStr(feuilles, ":"))
    For j = Sheets(feuille1).Index To Sheets(feuille2).Index
        For Each cel In plage
            i = i + 1
            ReDim Preserve tablo(i)
            tablo(i) = Sheets(j).Cells(cel.Row, cel.Column).Value
        Next
    Next j
    trf_plage = tablo
End Function