Microsoft 365 Rassembler les données de plusieurs feuilles dans une feuille récapitulative

FCMLE44 · 23 Août 2023

Bonjour

Dans le fichier en pièce jointe, je souhaite rapatrier dans la feuille RECAP, toutes les données des autres onglets de cette manière
Colonne A et B des onglets dans les colonnes A et B de la feuille Récap
En colonne C de la feuille RECAP, le nom de l'onglet d'ou provient les données rapatriée
Colonne C à K des onglets dans les colonnes D à L de la feuille Récap

Dans un second temps, je souhaiterais pouvoir créer un ou des onglets identiques à celui déja présent uniquement avec le tableau mais sans données

Quelqu'un aurait une idée ?

Merci

cp4 · 3 Octobre 2023

Bonjour tout le monde,

@FCMLE44 : Si j'ai bien compris, code modifié à tester.

VB:

Option Explicit

Sub Recapitulation()
   Dim ws As Worksheet, dl As Long, dl2 As Long, Fr As Worksheet, c As Range
   Set Fr = ThisWorkbook.Worksheets("recap")
   Application.ScreenUpdating = False
   With Fr
      dl = .Cells(Rows.Count, 1).End(xlUp).Row
      If dl > 5 Then .Range(.Cells(6, 1), .Cells(dl, 12)).ClearContents
   End With

   For Each ws In Worksheets
      If ws.Name <> "RECAP" Then
         dl2 = ws.Cells(Rows.Count, 1).End(xlUp).Row
         If dl2 > 5 And ws.Cells(dl2, 1) <> "" Then
            For Each c In ws.Range(ws.Cells(6, 1), ws.Cells(dl2, 1))
               dl = Fr.Cells(Rows.Count, 1).End(xlUp).Row + 1...

tbft · 23 Août 2023

Bonjour,
Le plus simple serait de faire l'inverse....

FCMLE44 · 23 Août 2023

Non car je vais partager le fichier et plusieurs personnes rempliront les differents onglets

tbft · 23 Août 2023

Pas cool
Il faut attendre si les "anciens" peuvent sortir une formule sinon il faudra passer par des macros ce qui risque d'alourdir le truc...

FCMLE44 · 23 Août 2023

C'est bien l'option macro que j'envisage
Chaque gestionnaire pourra se trouver en même temps sur le fichier et sur son onglet
Je lancerais moi même la macro de regroupement vers la feuille récap via un ctrl

FCMLE44 · 24 Août 2023

Bonjour
Une idée ?

tbft · 24 Août 2023

bonjour
Pour simplifier la création de la macro de groupir, il faudrait je pense convertir les tables des feuilles dont il faut récupérer le contenu en tableau...

tbft · 24 Août 2023

une fois que la macro (sub) fonctionne, il sera possible de la convertir en fonction (function) pour quelle s'exécute automatiquement (en même temps que les fonctions excel standard)
je peux regarder demain

FCMLE44 · 24 Août 2023

Pas de souci
Un grand merci

cp4 · 24 Août 2023

Bonjour,

J'ai supposé que l'on doit récupérer les données de toutes les feuilles du classeur dans la feuille Recap.
Code à mettre dans un module standard à appeler à l'activation de la feuille Recap ou via un bouton.

VB:

Option Explicit

Sub Recapitulation()
   Dim ws As Worksheet, dl As Long, dl2 As Long, Fr As Worksheet, c As Range
   Set Fr = ThisWorkbook.Worksheets("recap")
   Application.ScreenUpdating = False
   With Fr
      dl = .Cells(Rows.Count, 1).End(xlUp).Row
      If dl > 5 Then .Range(.Cells(6, 1), .Cells(dl, 12)).ClearContents
   End With

   For Each ws In Worksheets
      If ws.Name <> "RECAP" Then
         dl2 = ws.Cells(Rows.Count, 1).End(xlUp).Row
         For Each c In ws.Range(ws.Cells(6, 1), ws.Cells(dl2, 1))
            dl = Fr.Cells(Rows.Count, 1).End(xlUp).Row + 1
            Fr.Cells(dl, 1) = c
            Fr.Cells(dl, 2) = c.Offset(0, 1)
            Fr.Cells(dl, 3) = ws.Name
            Fr.Cells(dl, 4) = c.Offset(0, 2)
            Fr.Cells(dl, 5) = c.Offset(0, 3)
            Fr.Cells(dl, 6) = c.Offset(0, 4)
            Fr.Cells(dl, 7) = c.Offset(0, 5)
            Fr.Cells(dl, 8) = c.Offset(0, 6)
            Fr.Cells(dl, 9) = c.Offset(0, 7)
            Fr.Cells(dl, 10) = c.Offset(0, 8)
            Fr.Cells(dl, 11) = c.Offset(0, 9)
            Fr.Cells(dl, 12) = c.Offset(0, 10)
         Next c
      End If
   Next
   Application.ScreenUpdating = True
   MsgBox "Recap terminée!", vbInformation + vbOKOnly, "TRAITEMENT"

End Sub

FCMLE44 · 24 Août 2023

merci

FCMLE44 · 22 Septembre 2023

cp4 à dit:

Bonjour,

J'ai supposé que l'on doit récupérer les données de toutes les feuilles du classeur dans la feuille Recap.
Code à mettre dans un module standard à appeler à l'activation de la feuille Recap ou via un bouton.

VB:

Option Explicit

Sub Recapitulation()
   Dim ws As Worksheet, dl As Long, dl2 As Long, Fr As Worksheet, c As Range
   Set Fr = ThisWorkbook.Worksheets("recap")
   Application.ScreenUpdating = False
   With Fr
      dl = .Cells(Rows.Count, 1).End(xlUp).Row
      If dl > 5 Then .Range(.Cells(6, 1), .Cells(dl, 12)).ClearContents
   End With

   For Each ws In Worksheets
      If ws.Name <> "RECAP" Then
         dl2 = ws.Cells(Rows.Count, 1).End(xlUp).Row
         For Each c In ws.Range(ws.Cells(6, 1), ws.Cells(dl2, 1))
            dl = Fr.Cells(Rows.Count, 1).End(xlUp).Row + 1
            Fr.Cells(dl, 1) = c
            Fr.Cells(dl, 2) = c.Offset(0, 1)
            Fr.Cells(dl, 3) = ws.Name
            Fr.Cells(dl, 4) = c.Offset(0, 2)
            Fr.Cells(dl, 5) = c.Offset(0, 3)
            Fr.Cells(dl, 6) = c.Offset(0, 4)
            Fr.Cells(dl, 7) = c.Offset(0, 5)
            Fr.Cells(dl, 8) = c.Offset(0, 6)
            Fr.Cells(dl, 9) = c.Offset(0, 7)
            Fr.Cells(dl, 10) = c.Offset(0, 8)
            Fr.Cells(dl, 11) = c.Offset(0, 9)
            Fr.Cells(dl, 12) = c.Offset(0, 10)
         Next c
      End If
   Next
   Application.ScreenUpdating = True
   MsgBox "Recap terminée!", vbInformation + vbOKOnly, "TRAITEMENT"

End Sub

Bonjour

Lorsque je lance la macro sans données dans les onglets, j'obtiens les données de la ligne 5, est ce possible de rajouter une condition à ce code en disant si vide alors rien

Merci

cp4 · 22 Septembre 2023

FCMLE44 à dit:
Bonjour

Lorsque je lance la macro sans données dans les onglets, j'obtiens les données de la ligne 5, est ce possible de rajouter une condition à ce code en disant si vide alors rien

Merci

Bonsoir,
En ajoutant une condition sur la dernière ligne non vide de la colonne A.

VB:

Option Explicit

Sub Recapitulation()
   Dim ws As Worksheet, dl As Long, dl2 As Long, Fr As Worksheet, c As Range
   Set Fr = ThisWorkbook.Worksheets("recap")
   Application.ScreenUpdating = False
   With Fr
      dl = .Cells(Rows.Count, 1).End(xlUp).Row
      If dl > 5 Then .Range(.Cells(6, 1), .Cells(dl, 12)).ClearContents
   End With

   For Each ws In Worksheets
      If ws.Name <> "RECAP" Then
         dl2 = ws.Cells(Rows.Count, 1).End(xlUp).Row
         If dl2 > 5 Then
            For Each c In ws.Range(ws.Cells(6, 1), ws.Cells(dl2, 1))
               dl = Fr.Cells(Rows.Count, 1).End(xlUp).Row + 1
               Fr.Cells(dl, 1) = c
               Fr.Cells(dl, 2) = c.Offset(0, 1)
               Fr.Cells(dl, 3) = ws.Name
               Fr.Cells(dl, 4) = c.Offset(0, 2)
               Fr.Cells(dl, 5) = c.Offset(0, 3)
               Fr.Cells(dl, 6) = c.Offset(0, 4)
               Fr.Cells(dl, 7) = c.Offset(0, 5)
               Fr.Cells(dl, 8) = c.Offset(0, 6)
               Fr.Cells(dl, 9) = c.Offset(0, 7)
               Fr.Cells(dl, 10) = c.Offset(0, 8)
               Fr.Cells(dl, 11) = c.Offset(0, 9)
               Fr.Cells(dl, 12) = c.Offset(0, 10)
            Next c
         End If
      End If
   Next
   Application.ScreenUpdating = True
   MsgBox "Recap terminée!", vbInformation + vbOKOnly, "TRAITEMENT"

End Sub

R@chid · 23 Septembre 2023

Bonjour @ tous,
Tu peux convertir tes tableaux en tableaux structurés d'Excel et te servir de PowerQuery pour récupérer les informations de tous les tableaux dont le nom commence par GST.

Un simple clic-droit dans le tableau vert puis actualiser fera l'affaire.

Bien cordialement

FCMLE44 · 25 Septembre 2023

Bonjour
Merci à vous deux

Microsoft 365 Rassembler les données de plusieurs feuilles dans une feuille récapitulative

FCMLE44

XLDnaute Impliqué

Pièces jointes

cp4

tbft

XLDnaute Accro

FCMLE44

XLDnaute Impliqué

tbft

XLDnaute Accro

FCMLE44

XLDnaute Impliqué

FCMLE44

XLDnaute Impliqué

tbft

XLDnaute Accro

tbft

XLDnaute Accro

FCMLE44

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

FCMLE44

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Pièces jointes

FCMLE44

XLDnaute Impliqué

Discussions similaires