XL pour MAC Somme issue d'une recherche sur plusieurs feuilles

Bonjour,

>Pourquoi utilise-t-on un dLig.RemoveAll ou un dCol.Remove all sur le code de la fonction SD3D triée ?

-Création de l'index lignes non trié
-Tri des clés
-Raz dictionnaire
-Création dictionnaire à nouveau mais avec les clés triées


Boisgontier

Bonjour à tous

Merci @JB pour ces explications et la célérité de la réponse.
Je vais regarder cela avec plus d'attention
Bonne journée

version MAC


Boisgontier

Rebonjour à tous

@job75, @BOISGONTIER
Une petite utilité potentielle complémentaire par rapport à 2 de vos exemples de propositions en introduisant un coefficient "-" devant chaque feuille pour laquelle on ne souhaite pas additionner les informations mais les retrancher.

Cela évite de modifier inutilement les tableaux.
Et avec l'utilisation de w.index plutôt que de w.name, d'avoir directement les différences entre deux journées pour contrôle de différence.

Les codes sont vraiment modifiées à la marge.
Sauf erreur, j'avais déjà vu une fonction faite par JOB75 qui permettait de traiter une différence avec la feuille précédente en se référant sur l'adresse. Là, on a plusieurs feuilles possibles et un travail sur une référence.

Bonne journée

Avec index début et fin

http://boisgontierjacques.free.fr/fichiers/Cellules/Fonction3DConsoColNumMultIndexMAC.xlsm

Boisgontier

job75 à dit:

Bonjour fpinet, bienvenue sur XLD, salut Jocelyn,

Jocelyn d'évidence tes résultats sont faux.

Puisqu'il faut un fichier .xlsm autant utiliser une fonction VBA :

VB:

Function SommeFeuilles(cible$, col%)
Application.Volatile
Dim w As Worksheet, tablo, i&
For Each w In Worksheets
    If w.Name <> Application.Caller.Parent.Name Then
        tablo = w.UsedRange.Resize(, col + 1) 'matrice, plus rapide
        For i = 1 To UBound(tablo)
            If tablo(i, col) = cible Then _
                If IsNumeric(tablo(i, col + 1)) Then SommeFeuilles = SommeFeuilles + tablo(i, col + 1)
        Next
    End If
Next
End Function

Le code doit être placé impérativement dans un module standard.

Formule en C4 de la feuille "DONNEES", à tirer vers le bas :

Code:

=SommeFeuilles(B4;1)

Le 2ème argument indique le numéro de colonne de la recherche dans les feuilles.

La fonction est volatile : elle se recalcule quand on modifie des données dans une feuille quelconque.

Bonne journée.

Cliquez pour agrandir...

Bonjour,
Je reviens vers vous car je souhaite créer la même fonction qui prendrai la colonne d'origine +3, J'ai donc repris le code VBA en cherchant à le modifier et en créant un module 2. Je renomme la fonction et modifie col +1 en col +3 mais, j'ai certainement manqué quelque chose. Pouvez vous m'aider à comprendre.
Merci par avance et bonne fin de journée
Voici le code


Function SommeFeuillesEtud(cible$, col%)
Application.Volatile
Dim w As Worksheet, tablo, i&
For Each w In Worksheets
If w.Name <> Application.Caller.Parent.Name Then
tablo = w.UsedRange.Resize(, col + 3) 'matrice, plus rapide
For i = 1 To UBound(tablo)
If CStr(tablo(i, col)) = cible Then _
If IsNumeric(tablo(i, col + 3)) Then SommeFeuillesEtud = SommeFeuillesEtud + tablo(i, col + 3)


Next
End If
Next
End Function

Bonjour fpinet,

J'ai pourtant dit clairement que la solution par fonction VBA n'est pas une bonne solution !

A+