XL 2010 Condenser les données d'un tableau

[FCMLE44]

Bonjour

Etape 2 de mon projet

Les onglets se créant automatiquement en fonction des données de la feuille DSN, je souhaite, pour chaque onglet créé condenser les données obtenues.

Feuille TC :
En ligne 4 colonne AN, je souhaite condenser les données se trouvant en colonne AD à AK (cf exemple fichier joint).

Lors de la mise à jour de chaque onglet via macro Balaye1, il se mettrait à jour automatiquement

Cordialement

 

[FCMLE44]

yes. c'est bon.
En plus j'apprends. merci

par contre, comment je fais pour ma feuille RECAPITULATIF ?

 

[Dranreb]

Vous allez vous débrouiller, j'en ai bien peur.
Tout dépend si le résultat souhaité doit être classé ou non comme le reste, de sorte qu'on puisse le déposer au passage dans un 3ième tableau TRc pour la récap (au fait j'ai rebaptisé TCd le TRs parce que vous l'appeliez condensé et pas résumé)
Je joins ma version qui réutilise les feuilles existantes dans l'ordre et supprime à la fin celles en trop.
J'installe aussi automatiquement la formule de la colonne 38.

 

[FCMLE44]

Cela fait partie de ma 3E etape la feuille RECAPITULATIVE doit rester vierge
Comment faire

 

[Dranreb]

Pour l'instant il y dépose un tableau TRc vide.

 

[FCMLE44]

oui ok mais il ne faut pas la ligne titre sur cette feuille
Bonne soiree

 

[Dranreb]

Enlevez là. La macro n'y touche pas. Elle ne range TRc qu'à partir de la ligne 2

 

[FCMLE44]

Bonjour

voici la suite de mon projet
Sur la feuille recapitulatif doivent apparaitre certaines donnees des differents onglets.
exemple sur fichier Feuille Recap

Cordialement

 

[Dranreb]

Bonjour.
Allez y, faites le. Remplissez aussi les éléments du tableau TRc pendant le reste du traitement.
Moi je ne ferai plus rien, à part corriger ce que vous ferez vous même si ça ne marchera pas comme vous le souhaitez.
J'en ai déjà assez fait, et ça constitue assez d'exemples pour que vous puissiez continuer tout seul sur la même voie.

 

[FCMLE44]

Bonjour
le nombre d'onglet peut varier donc je ne peux prepare la feuille avec les elements.
je suis pommé je vous avoue

je suis d'accord que j'en demande beaucoup mais je suis debutant etn je ne comprends pas le langage vba

pouvez vous m'aiguiller svp

merci

 

[Dranreb]

Non mais vous pouvez ajouter à LRc le nombre de lignes qu'il faut pour chaque feuille chaque fois qu'on en initialise une et dans la boucle For Each Détail cumuler dans les TRc(LRc + y, x') les Détail(x) qu'il faut.

 

[FCMLE44]

merci

je pense qu'il faut que je modifie ce code ci

   For Each NumSiret In CodSiret.Co
      NomFeui = CodSiret.Id & "-" & Right$(String$(5, "…") & CStr(NumSiret.Id), 5)
      With ThisWorkbook.Worksheets: If F = .Count Then .Item(F).Copy After:=.Item(F)
         F = F + 1: Set FDest = .Item(F): FDest.Name = NomFeui: End With
      ReDim TDt(1 To 5000, 1 To 37), TCd(1 To 3000, 1 To 8): LDt = 0: LCd = 0
      For Each CodCot In NumSiret.Co: For Each Qualif In CodCot.Co: For Each TxCoti In Qualif.Co: For _
         Each TxAtT23003 In TxCoti.Co: For Each LibCot In TxAtT23003.Co: For Each Commune In LibCot.Co
         LCd = LCd + 1
         TCd(LCd, 1) = LibCot.Id: TCd(LCd, 2) = CodCot.Id: TCd(LCd, 3) = Commune.Id
         TCd(LCd, 4) = Qualif.Id: TCd(LCd, 6) = TxCoti.Id: TCd(LCd, 7) = TxAtT23003.Id
         For Each Détail In Commune.Co
            LDt = LDt + 1
            For C = 1 To 37: TDt(LDt, C) = Détail(C): Next C
            TCd(LCd, 5) = TCd(LCd, 5) + Détail(34)
            TCd(LCd, 8) = TCd(LCd, 8) + Détail(38) ' Détail(37)
            Next Détail, Commune, LibCot, TxAtT23003, TxCoti, Qualif, CodCot
      FDest.[A1:AL1].Value = Titres1
      FDest.[AN1].Value = "TABLEAU RECAPITULATIF"
      FDest.[AO1].Value = NomFeui
      FDest.[A2:AL5001].Value = TDt
      FDest.[AN3:AU3].Value = Titres2
      FDest.[AN4:AU3003].Value = TCd
      FDest.Cells(LCd + 5, "AU").FormulaR1C1 = "=SUBTOTAL(9,R4C:R[-2]C)"
      FDest.Columns.AutoFit
      FDest.[A:AM].Columns.Hidden = True
      Next NumSiret, CodSiret
FRécap.[A2:Z1001].Value = TRc

je comprends un peu le principe mais si je le fais dans le meme modele que les onglets cela ne donnera pas que je souhaites dans mon fichier feuil recap ?

cordialement

 

[FCMLE44]

comment puis je dire la chose suivante

pour chaque feuille : for each NomFEuil ?
et comment dire sur feuille Recapitulative

 

[Dranreb]

Pourquoi pensez vous que ça ne donnera pas le résultat qu'il faut en faisant comme je dis au poste #55 ?
Il n'y a pas à le faire pour chaque feuille puisque For Each NumSiret In CodSiret.Co le fait déjà.
Il n'y a qu'à ajouter à LRc le nombre de lignes à prévoir pour cette feuille.

 

[FCMLE44]

je comprends peut etre mal votre post #55.
dois je faire une maquette sur la feuille recap ?

 

[Dranreb]

Vous pouvez y mettre des titres déjà pour vous fixer les idées.