XL 2016 Convertir en tableau

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion vivi21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

Trier par date Trier par votes
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
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Autres masquer des feuilles en vba
Réponses
1
Affichages
55
sylvanu
sylvanu
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
91
piga25
piga25
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
109
safranien
S
D
  • Question Question
Microsoft 365 Tableau gestion ticket restau
Réponses
3
Affichages
334
yoyo2018
Y
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
114
CortoXls
C
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
544
job75
job75
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
222
telemarrk
T
PMG
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
138
PMG
PMG
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
175
xavieralvaro
X
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
296
NONO14
N
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
87
tuti
T
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
578
candido57
C
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
103
sylvanu
sylvanu
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
189
Phil69970
Phil69970
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
92
vgendron
vgendron
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
318
MBEPID
M
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
428
Phil69970
Phil69970
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
494
ph.vanne
ph.vanne
F
  • Résolu(e)
XL 2019 VBA : revenir à la feuille précédente ActiveSheet.Previous.Select
Réponses
14
Affichages
258
Fabien.Romo
F
jeff1494
  • Résolu(e)
XL 2021 PB Alimentation Tableau structuré depuis un ListBox
2
Réponses
27
Affichages
458
jeff1494
jeff1494
Retour