XL 2016 Convertir en tableau

V

vivi21

XLDnaute Occasionnel
Bonjour,

J'ai un fichier constitué de plusieurs feuilles mensuelles et une feuille construite par une consolidation des autres feuilles.

VB: 
Sub Consolider()

    'On désactive le raffraichissement de l'écran scintillement
    Application.ScreenUpdating = False
    'On appelle la procédure permettant d'effacer les données
    EffaceConsolidation
   '
   '
   'On va créer une boucle permettant de lire toutes les feuilles à consolider
    'ici nous avons 12 feuilles Janvier à Décembre
   
    'nomfeuille = ActiveSheet.Name //variable permettant d'afficher
   
    For j = 5 To 16 'on parcours les 12 premières feuilles // ici 4 est janvier et 15 decembre car j'ai mes autres feuilles de masquer
   
        'On sélectionne la première feuille
        Sheets(j).Select
        'MsgBox (ActiveSheet.Name) afficher une popup pour voir le déroulement
        'On se positionne sur la dernière ligne non vide
        DerniereLigne = Range("A1000000").End(xlUp).Row
        'On parcours tout le tableau à partir de la ligne pour copier chacune ligne
        For i = 12 To DerniereLigne
            'On sélectionne la première feuille
            Sheets(j).Select
            'On sélectionner la première ligne
            Rows(i).Select
            'On copie la ligne
            Selection.Copy
            'Où, sur la feuille consolidation, il faut donc la sélectionner
            Sheets("Consolidation").Select
            'Il faut trouver la dernière ligne non vide de la feuille consolidation
            LastRowConsolidation = Range("A1000000").End(xlUp).Row + 1
            'On sélectionne la cellule vide et la première colonne
            Cells(LastRowConsolidation, 1).Select
            'Une fois positionné, on colle les données
            ActiveSheet.Paste
            Application.CutCopyMode = False
       
        Next i
   
    Next j

    'On réactive le raffraichissement de l'écran scintillement
    Application.ScreenUpdating = True
    Sheets("Analyse_activites").Select
    ActiveSheet.PivotTables("TCD1").PivotCache.Refresh
    'On affiche un message qui prévient que la consolidation est terminée
    MsgBox "La consolidation est terminée...", vbOKOnly + vbInformation, "Message"
Worksheets("Consolidation").Unprotect "Aa"
Worksheets("Consolidation").Visible = False
   
End Sub

Le résultats de cette consolidation en pièce jointe.
Le fichier est attribué à chaque personnel pour recenser leurs activités.

Pour pouvoir récupérer la feuille de consolidation par personne (car les fichiers de chaque personne ne sont pas au même endroit), j'ai besoin que celle-ci soit au format tableau.

Une fois que cette feuille sera en tableau je pourrai toutes les dupliquer pour les consolider de nouveau pour l'ensemble de l'équipe.

Merci pour votre aiguillage, aide,...

Vivi
 

Pièces jointes

  • consolidation_test.xlsx
    11.1 KB · Affichages: 12
Trier par date Trier par votes
vgendron

vgendron

XLDnaute Barbatruc
Hello

je ne comprend pas trop ton problème...
pour transformer ton tableau de données en table structurée
1) tu selectionnes le tableau avec entetes
2) menu Style / Mettre sous forme de tableau

j'en profite pour simplifier ta macro :
VB: 
Sub Consolider()

    'On désactive le raffraichissement de l'écran scintillement
    Application.ScreenUpdating = False
    'On appelle la procédure permettant d'effacer les données
    EffaceConsolidation
   '
   '
   'On va créer une boucle permettant de lire toutes les feuilles à consolider
    'ici nous avons 12 feuilles Janvier à Décembre
  
    'nomfeuille = ActiveSheet.Name //variable permettant d'afficher
  
    For j = 5 To 16 'on parcours les 12 premières feuilles // ici 4 est janvier et 15 decembre car j'ai mes autres feuilles de masquer
  
        
        With Sheets(j) 'évite de selectionner la feuille
        'MsgBox (ActiveSheet.Name) afficher une popup pour voir le déroulement
        'On se positionne sur la dernière ligne non vide
            DerniereLigne = .Range("A" & .Rows.Count).End(xlUp).Row
            'On parcours tout le tableau à partir de la ligne pour copier chacune ligne
            For i = 12 To DerniereLigne
                .Rows(i).Copy Destination:=Sheets("Consolidation").Range("A" & Rows.Count).End(xlUp).Row + 1
            Next i
        End With
    Next j

    'On réactive le raffraichissement de l'écran scintillement
    Application.ScreenUpdating = True
    Sheets("Analyse_activites").Select
    ActiveSheet.PivotTables("TCD1").PivotCache.Refresh
    'On affiche un message qui prévient que la consolidation est terminée
    MsgBox "La consolidation est terminée...", vbOKOnly + vbInformation, "Message"
Worksheets("Consolidation").Unprotect "Aa"
Worksheets("Consolidation").Visible = False
  
End Sub
 
Vote positif 0 Vote négatif
V

vivi21

XLDnaute Occasionnel
Bonj
vgendron à dit:
Hello

je ne comprend pas trop ton problème...
pour transformer ton tableau de données en table structurée
1) tu selectionnes le tableau avec entetes
2) menu Style / Mettre sous forme de tableau

j'en profite pour simplifier ta macro :
VB: 
Sub Consolider()

    'On désactive le raffraichissement de l'écran scintillement
    Application.ScreenUpdating = False
    'On appelle la procédure permettant d'effacer les données
    EffaceConsolidation
   '
   '
   'On va créer une boucle permettant de lire toutes les feuilles à consolider
    'ici nous avons 12 feuilles Janvier à Décembre
 
    'nomfeuille = ActiveSheet.Name //variable permettant d'afficher
 
    For j = 5 To 16 'on parcours les 12 premières feuilles // ici 4 est janvier et 15 decembre car j'ai mes autres feuilles de masquer
 
       
        With Sheets(j) 'évite de selectionner la feuille
        'MsgBox (ActiveSheet.Name) afficher une popup pour voir le déroulement
        'On se positionne sur la dernière ligne non vide
            DerniereLigne = .Range("A" & .Rows.Count).End(xlUp).Row
            'On parcours tout le tableau à partir de la ligne pour copier chacune ligne
            For i = 12 To DerniereLigne
                .Rows(i).Copy Destination:=Sheets("Consolidation").Range("A" & Rows.Count).End(xlUp).Row + 1
            Next i
        End With
    Next j

    'On réactive le raffraichissement de l'écran scintillement
    Application.ScreenUpdating = True
    Sheets("Analyse_activites").Select
    ActiveSheet.PivotTables("TCD1").PivotCache.Refresh
    'On affiche un message qui prévient que la consolidation est terminée
    MsgBox "La consolidation est terminée...", vbOKOnly + vbInformation, "Message"
Worksheets("Consolidation").Unprotect "Aa"
Worksheets("Consolidation").Visible = False
 
End Sub
Cliquez pour agrandir...
Bonjour Vgendron,

Oui, je suis d'accord avec ta procédure. Sauf que je dois faire cette manipulation tous les 2 mois pour obtenir les activités de chacun et je voulais trouvé une formule ou macro qui me l'automatise pour plus de faciliter et de gain de temps.
Vivi
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
Bonjour @vivi21 :), @vgendron ;),

Si j'ai bien compris, code ci-dessous à mettre dans un module standard et exécuter.
VB: 
Option Explicit

Sub CréerUnTableauDansExcel()
   Dim plage As Range
   With ActiveWorkbook.Sheets("Feuil1") 'feuille à adapter
      Set plage = .Range("A3:I" & .Range("A" & Rows.Count).End(xlUp).Row)
      .ListObjects.Add(xlSrcRange, plage, , xlYes).Name = "Tableau1" 'nom tableau à adapter si besoin
   End With
End Sub

A+
 
Vote positif 0 Vote négatif
chris

chris

XLDnaute Barbatruc
Bonjour à tous

Ce type de consolidation se construit en quelques clics avec PowerQuery (intégré à Excel), que les onglets contiennent ou non des tableaux structurés, même si ceux-ci sont préférables
 
Dernière édition:
Vote positif 0 Vote négatif
V

vivi21

XLDnaute Occasionnel
vgendron à dit:
Hello

je ne comprend pas trop ton problème...
pour transformer ton tableau de données en table structurée
1) tu selectionnes le tableau avec entetes
2) menu Style / Mettre sous forme de tableau

j'en profite pour simplifier ta macro :
VB: 
Sub Consolider()

    'On désactive le raffraichissement de l'écran scintillement
    Application.ScreenUpdating = False
    'On appelle la procédure permettant d'effacer les données
    EffaceConsolidation
   '
   '
   'On va créer une boucle permettant de lire toutes les feuilles à consolider
    'ici nous avons 12 feuilles Janvier à Décembre
 
    'nomfeuille = ActiveSheet.Name //variable permettant d'afficher
 
    For j = 5 To 16 'on parcours les 12 premières feuilles // ici 4 est janvier et 15 decembre car j'ai mes autres feuilles de masquer
 
       
        With Sheets(j) 'évite de selectionner la feuille
        'MsgBox (ActiveSheet.Name) afficher une popup pour voir le déroulement
        'On se positionne sur la dernière ligne non vide
            DerniereLigne = .Range("A" & .Rows.Count).End(xlUp).Row
            'On parcours tout le tableau à partir de la ligne pour copier chacune ligne
            For i = 12 To DerniereLigne
                .Rows(i).Copy Destination:=Sheets("Consolidation").Range("A" & Rows.Count).End(xlUp).Row + 1
            Next i
        End With
    Next j

    'On réactive le raffraichissement de l'écran scintillement
    Application.ScreenUpdating = True
    Sheets("Analyse_activites").Select
    ActiveSheet.PivotTables("TCD1").PivotCache.Refresh
    'On affiche un message qui prévient que la consolidation est terminée
    MsgBox "La consolidation est terminée...", vbOKOnly + vbInformation, "Message"
Worksheets("Consolidation").Unprotect "Aa"
Worksheets("Consolidation").Visible = False
 
End Sub
Cliquez pour agrandir...
Chris,

J'ai un bug lorsque je lance la macro. Il m'indique une erreur d'execution 1004

VB: 
 'On réactive le raffraichissement de l'écran scintillement
    Application.ScreenUpdating = True
    Sheets("Analyse_activites").Select
    ActiveSheet.PivotTables("TCD10").PivotCache.Refresh
    'On affiche un message qui prévient que la consolidation est terminée
    MsgBox "La consolidation est terminée...", vbOKOnly + vbInformation, "Message"
Worksheets("Consolidation").Unprotect "Aa"
Worksheets("Consolidation").Visible = False

Du coup, il ne me mets pas à jour mon TCD.
J'ai changé le nom du TCD mais sans succès.
 
Vote positif 0 Vote négatif

Discussions similaires

B
  • Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
203
Compte Supprimé 979
C
A
  • Question
XL 2019 Convertir un tableau calculé en TCD
2
Réponses
15
Affichages
508
nat54
nat54
P
  • Question
Microsoft 365 sauvegarder en JPG
Réponses
12
Affichages
322
PISTACHE-007
P
M
  • Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
86
marie3107
M
F
  • Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
163
Francky79
F
cocro
  • Question
Microsoft 365 Créer autant d'onglet que de commune dans ma base principale
Réponses
14
Affichages
358
job75
job75
B
  • Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
330
Oneida
Oneida
A
  • Résolu(e)
Microsoft 365 Correction du code vba
Réponses
5
Affichages
166
AD95
A
M
  • Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
124
marie3107
M
B
  • Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
296
job75
job75

Membres actuellement en ligne

12 membres et 136 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 083
Messages
2 085 188
Membres
102 809
dernier inscrit
Sandrine83