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]

Si je raisonne bien la solution se trouve dans ce morceau de code n'est-ce pas ?

If IsNumeric(NumSiret.Id) Then NomFeui = Format(NumSiret.Id Mod 100000, "00000") _
                                Else NomFeui = Right$(String$(5, "…") & NumSiret.Id, 5)
      NomFeui = CodSiret.Id & "-" & NomFeui

 

[Dranreb]

Oui, tout à fait.

 

[FCMLE44]

J'ai compris cela vient sûrement du format lorsque je copie les données dans la feuille DSN car j'ai 14 chiffres en colonne B au format standard et quand je lance la macro il me met un message dépassement capacité

 

[FCMLE44]

Voici ce que ça me fait avec les données

Cordialement

 

[Dranreb]

Aïe, je n'avais pas pensé à celle là.
Réécrivons ça comme ça :

      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

 

[FCMLE44]

Ok cela fonctionne

Merci pour le temps passé.
Maintenant je passe à la prochaine étape dans un autre post

Cordialement

 

[FCMLE44]

Dans ce même fichier, j'aimerais créé un onglet RECAPITULATIF en plus.
Si je lance une mise à jour, il m'efface les données se trouvant dans cette feuille

Comment faire ?

Merci

 

[Dranreb]

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]

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

 

[Dranreb]

Ben changez le.

 

[FCMLE44]

je pense que c'est dans cette partie mais quandnje change AK en AL les donnees restent celles en AK

 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

 

[FCMLE44]

Voici mon fichier pour voir ce qui se produit
feuille tc-1091 cf commentaires

 

[Dranreb]

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.

Sub ChangerRefStyle()
Application.ReferenceStyle = xlA1 + xlR1C1 - Application.ReferenceStyle
End Sub

Réexécutez la pour remettre les lettres.

 

[FCMLE44]

j'ai mis dans Workbook mais que dois je voir

 

[FCMLE44]

je crois que je comprends. j'essaye