XL 2010 Condenser les données d'un tableau

FCMLE44 · 20 Février 2017

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 · 25 Février 2017

Merci

Je suis sincèrement désolé d'être un boulet mais je débute et je nage un peu.
Je vous demande de me pardonner et de rester abonner à cette discussion

Ci-joint le fichier modifié
Je reste à votre disposition en cas de besoin

Dranreb · 25 Février 2017

Je n'en a plus besoin à priori. Continuez à renseigner la table pour les autres colonnes aussi.
Faites en sorte que tout soit comme dans la feuille DSN: en texte (sauf le numéro de colonne dans le récapitulatif, bien sûr)

FCMLE44 · 25 Février 2017

Yes j'ai compris. Ca marche.
Par contre j'ai un souci quand je supprime les onglets hors table et récap, et que je me mets des données réelles, il beugue

VB:

With ThisWorkbook.Worksheets: For F = FSiret1.Index To .Count: .Item(F).Name = .Item(F).CodeName: Next F: End With
F = FSiret1.Index - 1

???

FCMLE44 · 25 Février 2017

Dans ma table Récap, j'ai un même élément qui doit aller à deux endroits différents colonne 2 et colonne 8

Comment faire ?

Dranreb · 25 Février 2017

Ne supprimez plus de feuille à l'avenir.
Allez sur l'objet Worksheet représentant la 1ère des feuilles. Changez sa 1ère propriété (Name) en FSIRET1

On ne peut vraiment pas éviter de l'envoyer à 2 endroits différents ?

FCMLE44 · 25 Février 2017

Ok par contre le résultat obtenu est la colonne AU M_COTIS_OU_REDUCT au lieu de AR M_ASSIETTE_23_004 de la feuille TC

Dranreb · 25 Février 2017

FCMLE44 à dit:
comme je veux tout le temps le montant je dois mette a tous 38 en detail

Alors j'ai mis 38: M_COTIS Corrigé.
M_COTIS_OU_REDUC c'est 37, M_ASSIETTE_23_003 c'est 34

FCMLE44 · 25 Février 2017

C'est bon j'ai réglé le problème. De ma faute pardon

Dans ma table Récap, j'ai un même élément qui doit aller à deux endroits différents colonne 2 et colonne 8
Comment faire ?

Dranreb · 25 Février 2017

Il vaudrait vraiment mieux éviter de faire ça. Un de ces jour vous voudrez peut être totaliser tout ça horizontalement et vous ne vous rappellerez plus que certaines choses seront ainsi comptées deux fois.

Dranreb · 25 Février 2017

Il y aurait néanmoins possibilité de spécifier deux numéros de colonnes:
Dans les déclaration ajoutez un petit tableau, ColsRéc()
À l'initialisation du dico :

VB:

For LRc = 1 To UBound(TRc, 1)
   DicRécap(TRc(LRc, 1) & "|" & TRc(LRc, 2) & "|" & TRc(LRc, 3)) = Array(TRc(LRc, 4), TRc(LRc, 5)): Next LRc

À la ventilation :

VB:

            CléRécap = Détail(30) & "|" & Détail(31) & "|" & Détail(33)
            If DicRécap.Exists(CléRécap) Then
               ColsRéc = DicRécap(CléRécap)
               C = ColsRéc(0): If C > 1 Then TRc(LRc, C) = TRc(LRc, C) + Détail(38)
               C = ColsRéc(1): If C > 1 Then TRc(LRc, C) = TRc(LRc, C) + Détail(38)
               End If

FCMLE44 · 25 Février 2017

Je prends le risque j'ai beoin de ces données

De même je souhaiterais mettre en forme ma feuille Récapitulatif comme dans ce fichier. Est-ce possible ?

FCMLE44 · 25 Février 2017

Lorsque je mets ce code

VB:

 CléRécap = Détail(30) & "|" & Détail(31) & "|" & Détail(33)
            If DicRécap.Exists(CléRécap) Then
               ColsRéc = DicRécap(CléRécap)
               C = ColsRéc(0): If C > 1 Then TRc(LRc, C) = TRc(LRc, C) + Détail(38)
               C = ColsRéc(1): If C > 1 Then TRc(LRc, C) = TRc(LRc, C) + Détail(38)
               End If

Le système bugge.
Erreur de compilation
Variable non définie

Dranreb · 25 Février 2017

Ajoutez la déclaration de ColRéc().
Pour les formats, profitez de la boucle For LRc = 4 To LRc Step 5 tout en bas qui met les formules.
Aidez vous de l'enregistreur de macro pour les modèles, moi je suis fatigué.

FCMLE44 · 25 Février 2017

J'ai créé cette macro avec le générateur de macros pour mon format

VB:

Sub Format()
'
' Format Macro
'
 
'
    Range("A1:A4,B1:H1,B4:H4").Select
    Range("H4").Activate
    Selection.Font.Bold = True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
    Range("B3:H3,E2").Select
    Range("E2").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -4.99893185216834E-02
        .PatternTintAndShade = 0
    End With
    Range("A1:H4").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("A1").Select
    With Selection.Font
        .Name = "Calibri"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
End Sub

Lorsque je le mets avant la boucle, j'obtiens un débogage

Dranreb · 26 Février 2017

En fait y a qu'une chose à tirer de tout ce fatras : ExpressionRange.Font.Bold = True pour mettre en gras.
Pour mettre en jaune orange pâle je fais : ExpressionRange.Interior.Color = RGB(255, 240, 186)

XL 2010 Condenser les données d'un tableau

FCMLE44

XLDnaute Impliqué

Pièces jointes

FCMLE44

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

FCMLE44

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

Pièces jointes

FCMLE44

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

Discussions similaires