créer formule ou macro pour comptabilisé des données de plusieur onglets

[devilmort]

Bonjour as tous.

J'ai un fichier avec 3 base
j'aimerai sur un onglet récupérer des données de ces onglets mais pas tout

-juste récupérer la référence en colonne A avec le nom en colonne C et en faire un total
-et faire cela en deux tableaux celons un critère en colonne H

-en laissant un espace au dessus (commencer le tableau en ligne 10 ou 15 par exemple)
-soit reproduire 3 fois cela pour mes 3 base sur un seul onglet
-soit sur 3 onglets

Pouvez-vous me guider SVP (j'ai pas vraiment d'idée pour faire cela)

 

[Dranreb]

Cette procédure le fait, avec mon complément coché :

Sub Récap()
Dim Crit As SsGr, T(), L As Long, Réf As SsGr, RngCbl As Range
Set RngCbl = Feuil1.[A10]
For Each Crit In Gigogne(Feuil2.[A10:H10], 8, 1)
   ReDim T(1 To 2 + Crit.Count, 1 To 5): L = 2
   T(1, 1) = Crit.Id
   T(2, 1) = "Réf": T(2, 2) = "Nom": T(2, 3) = "Nombre d'occurrences": T(2, 4) = "Nombre de réalisée": T(2, 5) = "Delta"
   For Each Réf In Crit.Co
      L = L + 1
      T(L, 1) = Réf.Id
      T(L, 2) = Réf.Co(1)(3)
      T(L, 3) = Réf.Count
      Next Réf
    RngCbl.Resize(L, 5).Value = T
    Set RngCbl = RngCbl.Offset(, 6): Next Crit
End Sub

Mais elle a besoin d'un troisième tableau parce qu'il y a une 3ième valeur en colonne H, en plus de "indice 1" et "indice 2" qui est 'indice1" le "1" étant attaché au reste.
Ce serait un peu plus simple si les tableaux résultants étaient à disposer les uns en dessous des autres.

 

[Dugenou]

Hello Dranreb
Oui j'avais aussi noté cet écart sur les valeurs indice et j'ai corrigé sans le signaler.
Cordialement

 

[Dranreb]

Bonjour Dugenou.
Avec mon système, pour créer une subdivision selon la colonne 2 il suffit de déclarer un SsGr supplémentaire pour la colonne 2, de la préciser aussi dans l'appel à Gigogne et d'imbriquer une boucle For Each In supplémentaire pour ce SsGr.

 

[devilmort]

Salut Dugenou

En faite voila en gros a quoi servirai la deuxième condition en colonne B des base

Pour les indice c'est bien 2 valeur dans mon exemple indice1 et indice 1 sont les même cette erreur sera corriger

 

[Dugenou]

Bonjour,
Voir pj
Ce serait plus pratique si les valeurs étaient écrites quelque part dans la feuille récap
Cordialement

 

[devilmort]

Cette exactement se que je chercher merci beaucoup

 

[Dranreb]

Avez vous essayé ma solution ?
Elle fait toujours l'inventaire de ce qui existe, toujours classé, sans avoir besoin de quoi que ce soit de préexistant dans le résultat.

Si je comprends bien, votre macro Ventiler du CBxLiéesDevilmort.xlsm, à laquelle vous ne vouliez pas que je touche, ne marchait pas si bien que ça ?…

 

[devilmort]

Dit Dugenou

J'ai un souci quand j’essaie de mettre ton code sur mon fichier il ne m'affiche que des 0
Y a t il un autre truc a faire