XL 2010 Condenser les données d'un tableau

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #31

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

VB:

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Février 2017

• #32

Oui, tout à fait.

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #33

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é

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #34

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

Cordialement

 

Pièces jointes

• GigogneFCMLE44.xlsm

  71.8 KB · Affichages: 31

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Février 2017

• #35

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

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #36

Ok cela fonctionne

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

Cordialement

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #37

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Février 2017

• #38

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.

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #39

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

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Février 2017

• #40

Ben changez le.

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #41

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

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #42

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

 

Pièces jointes

• GigogneFCMLE44.xlsm

  160.1 KB · Affichages: 30

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Février 2017

• #43

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: 21 Février 2017

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #44

j'ai mis dans Workbook mais que dois je voir

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 21 Février 2017

• #45

je crois que je comprends. j'essaye

 

Vote positif 0 Vote négatif