XL 2010 Condenser les données d'un tableau

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #46

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

par contre, comment je fais pour ma feuille RECAPITULATIF ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Février 2017

• #47

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.

 

Pièces jointes

• GigogneFCMLE44.xlsm

  93.2 KB · Affichages: 34

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #48

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Février 2017

• #49

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

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #50

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Février 2017

• #51

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

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 25 Février 2017

• #52

Bonjour

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

Cordialement

 

Pièces jointes

• Feuille Recap.xlsx

  9.3 KB · Affichages: 28
• GigogneFCMLE44.xlsm

  137.3 KB · Affichages: 31

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Février 2017

• #53

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.

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 25 Février 2017

• #54

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Février 2017

• #55

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.

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 25 Février 2017

• #56

merci

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

VB:

   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

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 25 Février 2017

• #57

comment puis je dire la chose suivante

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Février 2017

• #58

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.

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 25 Février 2017

• #59

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Février 2017

• #60

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

 

Vote positif 0 Vote négatif