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

P
  • Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
483
job75
job75
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
444
Nel'
N
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
215
NONO14
N
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
522
candido57
C
B
  • Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
537
Compte Supprimé 979
C
L
  • Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
336
AtTheOne
AtTheOne
A
  • Question
XL 2019 Convertir un tableau calculé en TCD
2
Réponses
15
Affichages
1 K
nat54
nat54
P
  • Question
Microsoft 365 sauvegarder en JPG
Réponses
12
Affichages
608
PISTACHE-007
P
J
  • Résolu(e)
Microsoft 365 lettre suivante
Réponses
5
Affichages
353
sylvanu
sylvanu
N
  • Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
300
NONO14
N

Membres actuellement en ligne

20 membres et 181 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
315 098
Messages
2 116 198
Membres
112 681
dernier inscrit
romain38