XL 2013 Récap de plusieurs onglets sur un seul

A

ANTONY34200

XLDnaute Occasionnel

• 28 Mai 2023

• #2

En cherchant un peu, j'ai bien trouver un code, que j'ai essayé d'adapter, mais j'ai du mal. je vous joints mon fichier

 

Pièces jointes

• Onglet Récap.xlsm

  31.2 KB · Affichages: 6

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Mai 2023

• #3

Bonjour @ANTONY34200 ,le fil

Un premier essai (avec un petit souci)

VB:

Sub test_Recopie()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Récap" Then
ws.ListObjects(1).DataBodyRange.Copy Feuil4.ListObjects(1).ListRows.Add.Range
End If
Next
End Sub

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 28 Mai 2023

• #4

Bonjour Staple1600,
je viens juste de trouver ma solution avec ce code ...

VB:

Sub importer()
  Dim i As Long, sh As Integer, lig As Long, j As Integer
  With Sheets("Récap")
   .Range("A3:J" & .Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents
   For sh = 1 To Sheets.Count
    If Sheets(sh).Name <> "Récap" And Sheets(sh).Name <> "3 (4)" Then ' entre les guillements les feuilles non désirées
      For i = 3 To Sheets(sh).Range("A" & Rows.Count).End(xlUp).Row + 1
        If .Range("A2") = "" Then lig = 2 Else lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
        For j = 1 To .Cells(2, Columns.Count).End(xlToLeft).Column
          .Cells(lig, j) = Sheets(sh).Cells(i, j)
        Next
      Next
    End If
   Next
  End With
End Sub

Merci du coup de main.
je joints également mon fichier

 

Pièces jointes

• Onglet Récap.xlsm

  35 KB · Affichages: 9

Vote positif 0 Vote négatif

Solution

Staple1600

XLDnaute Barbatruc

• 28 Mai 2023

• #5

Re

@ANTONY34200
Est-ce tu as au moins essayé le code que je t'ai proposé ?
(au moins par curiosité et/ou courtoisie)

Dans ton fichier exemple, tu as des tableaux structurés, d'où la syntaxe que j'utilise.
ListObjects

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 28 Mai 2023

• #6

Je suis en train de le faire oui ... je t'apporte mes res remarques dès que j'ai terminé les diférents test

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 28 Mai 2023

• #7

j'ai un débogage ...
je cherche a comprendre pourquoi

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Mai 2023

• #8

Re

@ANTONY34200
Mon code se base sur ton fichier exemple, celui du message#1
qui ne contient que 4 feuilles nommées
1
2
3
Récap

Donc testes ma macro sur ce fichier, pour voir le résultat de la macro (sans erreur)

NB: Dans ce fichier, les 4 feuilles contenait chacune un seul tableau structuré (Listobject)
D'où : ws.ListObjects(1) et Feuil4.ListObjects(1)

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 28 Mai 2023

• #9

Effectivement, le code fonctionne treès bien ... mais le soucis, 'est que quand je clique 2 fois sur mon bouton impoter, les données ne s'actualise pas, elle ce cumul

 

Pièces jointes

• Onglet Récap.xlsm

  27.6 KB · Affichages: 2

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 28 Mai 2023

• #10

et to code resemble plus à ce que je souhaiterais que celui que j'ai trouvé

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Mai 2023

• #11

Re

Mon code se contente de recopier
Donc si tu lances la macro N fois, tu auras N copies des tableaux des feuilles 1,2 et 3

Maintenant quel est le but poursuivi ?

Pourquoi ne pas utiliser un seul tableau pour la saisie et utiliser un tableau croisé dynamique pour exploiter tes données ?
Comme ceci par exemple
Ci-dessous un TCD

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 28 Mai 2023

• #12

je ne maitrise pas les TDC,
l'exploitation des ces données vont me servir à la suivie compta fournisseur mon l'entreprise; un suivie compta simple

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 28 Mai 2023

• #13

le fichier que j'ai mis à dispo, n'est qu'un extrait de mon fichier complet (qui lui est un peu plus complexe)
je le rend anonyme et je le joint sur le forum

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 28 Mai 2023

• #14

mon fichier

 

Pièces jointes

• 02. Bilan Interne avec justificatif - 2023.xlsm

  748.9 KB · Affichages: 8

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Mai 2023

• #15

Re

A mon sens, tu tu compliques la vie
Quant au TCD, il suffit de d'y mettre
(Il y a moult tutos sur le web)

Ton dernier fichier ne ressemble plus du tout au premier.
Dans lequel les tableaux avaient tous les même libellés en entêtes.

Si j'étais moi:
• une feuille base de données (*)
• une feuille Récap avec N TCD selon les besoins
ou N TCD sur des N feuilles distinctes créées à la volée.

(*) qui pourrait correspondre à la feuille Recherche de ton dernier fichier.

Exemple: ici j'ai isolé des données pour le mois de janvier 2023
NB: L'avantage d'utiliser un TCD, c'est qu'il se pilote à la souris et qu'il 'y a pas de risque de plantage VBA.

PS: Pourquoi sur ta feuille Recherche colonne HT = colonne TTC ?

Si tu ne souhaites pas envisager la piste du TCD, je laisse mes petits camarades de jeu prendre le relais

 

Vote positif 0 Vote négatif