tableau récapitulatif de plusieurs tableaux

[eldorado]

Bonjour à tous ;
Mon objectif est de réunir plusieurs tableaux ayant les mêmes nombres de colonnes et les mêmes entêtes éparpillés dans plusieurs feuilles de calcul dans un seul tableau dans une feuille nouvelle pour faire un tableau croisé dynamique par la suite et comme ce dernier ne supporte qu’un seul tableau en liaison.
En sachant que copier/ coller pourrait faire l’affaire, cependant les lignes des tableaux sont soit rajouter soit éliminer, ce qui nécessitent toujours de faire des contrôles d’où la possibilité d’oublier des lignes et de faire des erreurs.
Je m’adresse à vous afin de connaître s’il y’a une méthode qui permet d’avoir une liaison entre ces tableaux et un nouveau tableau qui regroupe l’ensemble de ces informations de sorte qu’il se régénère automatiquement en cas d’ajout ou de suppression de lignes.
Il existe une méthode de copie avec liaison, cependant elle n’est utile que pour un seul tableau, et lorsqu’on ajoute des lignes plus que les lignes de départ ca devient impossible.
Je pense qu’il puisse y avoir des solutions de plus en plus pertinentes.
Le problème est très pertinent même s’il est facile en exécution, puisqu’il existe dans la réalité plusieurs feuilles et plusieurs données qui changent.
Je vous remercie d’avance pour vos réponses et interventions.
A bientôt.

 

[phlaurent55]

Re : tableau récapitulatif de plusieurs tableaux

Bonjour eldorado,

Ne pouvant pas ouvrir ton fichier joint, ...............
tu pourrais t'inspirer du fichier en pièce jointe au post#2 dans ce fil de discussion
https://www.excel-downloads.com/threads/exporter-onglets-xls-vers-un-fichier-csv.190497/

à+
Philippe

 

[néné06]

Re : tableau récapitulatif de plusieurs tableaux

Bonsoir eldorado,salutations philippe

essayes cet exemple dont voici le code


Private Sub CommandButton1_Click()
Sheets("feuil1").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
num = Sheets(s).Cells.Find("*", , , , , xlPrevious).Row
If num > 0 Then
ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
[A65000].End(xlUp).Offset(1, 0).Resize(num, ncol).Value = Sheets(s).[A2].Resize(num, ncol).Value
End If
Next s
End Sub


A+

 

[eldorado]

Re : tableau récapitulatif de plusieurs tableaux

merci infiniment,
en effet je ne peux espérer mieux que ça.
excellent travail.
c'est parfait, et ça me convient à merveille.

 

[JCGL]

Re : tableau récapitulatif de plusieurs tableaux

Bonjour à tous,

Peux-tu essayer :

Option Explicit
Sub Regroupement()
    Dim X%
    Dim DerL%

    Feuil1.Cells.Clear
    Application.ScreenUpdating = 0

    For X = 2 To Sheets.Count
        DerL = Feuil1.Range("A65536").End(xlUp).Row
        Sheets(X).Cells(4, 1).CurrentRegion.Copy Feuil1.Cells(DerL + 1, 1)
    Next X

    Columns("A:G").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
    Rows("2:" & Sheets.Count).Delete
    Range("A1").Select
End Sub

A + à tous

 

[eldorado]

Re : tableau récapitulatif de plusieurs tableaux

En effet vous avez tous raison, encore un gros chapeau pour néné06 & JCGL qui ont touché le fond du sujet.
c'est fou ce qu'on apprends dans ce forum.
oui c'est ce que je voulais dès le départ, encore bravo.
A bientôt.

 

[eldorado]

Re : tableau récapitulatif de plusieurs tableaux

une dernière chose avant de terminer, si je veux spécifier des feuilles spécifiques et non pas l'ensemble du fichier quelle modification je dois appliquer.
encore merci.

 

[eldorado]

Re : tableau récapitulatif de plusieurs tableaux

rebonjour,
est ce que quelqu'un a la réponse à cette discussion, en effet je veux spécifier des pages particulières au lieu de prendre l'ensemble du fichier.
si quelqu'un veux régenerer cette discussion, c très utile.
quelle est la modification à apporter au code VBA: pour prendre que 2 page ou 3 pages seulement
Option Explicit
Sub Regroupement()
Dim X%
Dim DerL%

Feuil1.Cells.Clear
Application.ScreenUpdating = 0

For X = 2 To Sheets.Count
DerL = Feuil1.Range("A65536").End(xlUp).Row
Sheets(X).Cells(4, 1).CurrentRegion.Copy Feuil1.Cells(DerL + 1, 1)
Next X

Columns("A:G").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
Rows("2:" & Sheets.Count).Delete
Range("A1").Select
End Sub
encore merci

 

[phlaurent55]

Re : tableau récapitulatif de plusieurs tableaux

Re- bonjour à tous,

le fichier en retour sur base de la solution de Jean-Claude
voir remarque dans le code

à+
Philippe

 

[eldorado]

Re : tableau récapitulatif de plusieurs tableaux

je ne comment vous remerciez phlaurent55
c'est l'idéal comme solution.
encore mille merci.

 

[ChTi160]

Re : tableau récapitulatif de plusieurs tableaux

Bonsoir eldorado
Bonsoir le fil
Bonsoir le forum

une autre approche

Sub Regroupement()
    Dim X%
    Dim DerL%
   Dim ShtArr As Variant
   
  Application.ScreenUpdating = False
    ShtArr = Array(1, 5, 6, 8)
With Feuil1
             .Range("A2:G" & .Range("A65535").End(xlUp).Row + 1).Clear
End With
    For X = 0 To UBound(ShtArr)
            DerL = Feuil1.Range("A65536").End(xlUp).Row
With Sheets(ShtArr(X))
.Range("A4:G" & .Range("A65535").End(xlUp).Row + 1).Copy Feuil1.Cells(DerL + 1, 1)
End With
    
    Next X
    Feuil1.Range("A2:G65535").Sort Key1:=Feuil1.Range("A2"), Order1:=xlAscending, Header:=xlGuess
    Application.ScreenUpdating = True
End Sub

Bonne fin de Soirée
Amicalement
Jean Marie