XL 2013 Récap de plusieurs onglets sur un seul

[ANTONY34200]

Bonjour le forum,
j'ai fais un petit fichier, dans lequel il y a plusieurs onglets ... 1, 2, 3, et récap.
j'aimerais que dans l'onglet récap, il puisse s'y incrémenter automatiquement les données des onglets 1, 2, 3
J'ai bien trouver une pseudo solution avec des formules (mais la présentation ne me conviens pas ...),donc je préférerais passer par du VBA, mais je ne suis pas très doué avec le VBA ...
Si quelqu'un pouvais me filer un petit coup de main ...
Je vous joint un fichier test du fichier sur lequel je travail.

Merci d'avance

 

[ANTONY34200]

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

 

[Staple1600]

Bonjour @ANTONY34200 ,le fil

Un premier essai (avec un petit souci)

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

 

[ANTONY34200]

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

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

 

[Staple1600]

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

 

[ANTONY34200]

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

 

[ANTONY34200]

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

 

[Staple1600]

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)

 

[ANTONY34200]

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

 

[ANTONY34200]

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

 

[Staple1600]

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

 

[ANTONY34200]

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

 

[ANTONY34200]

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

 

[ANTONY34200]

mon fichier

 

[Staple1600]

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