Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

tableau récapitulatif de plusieurs tableaux

  • Initiateur de la discussion Initiateur de la discussion eldorado
  • 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 !

eldorado

XLDnaute Nouveau
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.
 

Pièces jointes

Dernière édition:
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+
 

Pièces jointes

Dernière édition:
Re : tableau récapitulatif de plusieurs tableaux

Bonjour à tous,

Peux-tu essayer :
VB:
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
 

Pièces jointes

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.
 
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.
 
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
 
Re : tableau récapitulatif de plusieurs tableaux

Bonsoir eldorado
Bonsoir le fil
Bonsoir le forum

une autre approche
VB:
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
 
Dernière édition:
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…