XL 2010 Condenser les données d'un tableau

FCMLE44

XLDnaute Impliqué
Supporter XLD
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
 

Pièces jointes

  • DSN ESSAI.xls
    94 KB · Affichages: 51

Dranreb

XLDnaute Barbatruc
Aïe, je n'avais pas pensé à celle là.
Réécrivons ça comme ça :
VB:
      Select Case VarType(NumSiret.Id)
         Case vbDouble: NomFeui = Right$(Format$(NumSiret.Id, "00000000000000"), 5)
         Case vbString: NomFeui = Right$(String$(5, "…") & NumSiret.Id, 5)
         Case Else:     NomFeui = String$(5, "…"): End Select
      NomFeui = CodSiret.Id & "-" & NomFeui
 

Dranreb

XLDnaute Barbatruc
Je me suis d'ailleurs posé une question à ce sujet. Ne préfèreriez vous pas que les feuille inutilisées soient supprimées plutôt qu'effacées ?
Vous pourriez mettre votre récapitulatif dans la 2ième feuille et garnir les feuilles par SIRET à partir de la 3ième.
 

FCMLE44

XLDnaute Impliqué
Supporter XLD
Bonsoir
oui je pense que c'est une bonne idee.

Par ailleurs et si je peux abuser, je souhaiterais que sur chaque onglet que ce soit non pas la colonne AK de la feuille DSN qui appparaissent en colonne AU mais la colonne AL que je remplirais manuellement.

cordialement
 

Pièces jointes

  • GigogneFCMLE44.xlsm
    65.3 KB · Affichages: 42

FCMLE44

XLDnaute Impliqué
Supporter XLD
je pense que c'est dans cette partie mais quandnje change AK en AL les donnees restent celles en AK

VB:
 For Each Détail In Commune.Co
         LDt = LDt + 1
         For C = 1 To 37: TDt(LDt, C) = Détail(C): Next C
         TRs(LRs, 5) = TRs(LRs, 5) + Détail(34)
         TRs(LRs, 8) = TRs(LRs, 8) + Détail(37): Next Détail
      Next Commune, LibCot, TxAtT23003, TxCoti, Qualif, CodCot
      FDest.[AN1].Value = "CONDENSÉ"
      FDest.[A1:AK1].Value = PlgDon.Rows(1).Value
      FDest.[A2:AK5001].Value = TDt
      FDest.[AN3:AU3].Value = PlgDon(1, 30).Resize(, 8).Value
      FDest.[AN4:AU3003].Value = TRs
      FDest.Cells(LRs + 5, "AU").FormulaR1C1 = "=SUBTOTAL(9,R4C:R[-2]C)"
      FDest.Columns.AutoFit
      FDest.[A:AK].Columns.Hidden = True
   Next CodSiret

Cordialement
 

Dranreb

XLDnaute Barbatruc
Installez vous cette macro pour voir plus facilement en tête de colonne dans la feuille DSN le numéro de colonne Détail à sommer.
VB:
Sub ChangerRefStyle()
Application.ReferenceStyle = xlA1 + xlR1C1 - Application.ReferenceStyle
End Sub
Réexécutez la pour remettre les lettres.
 
Dernière édition:

Discussions similaires