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

 

[Staple1600]

Re,

Quand tu sélectionnes un TCD, puis tu vas sur l'onglet Création, tu as à disposition plusieurs styles de TCD

 

[cp4]

Bonjour @ANTONY34200 , @Staple1600 ,

@ANTONY34200 : Je prends le train en marche. Je rejoins l'avis de Jean Mairie pour l'utilisation des tableaux structurés. Je te propose le code ci-dessous pour alimenter ta feuille "Recherche", basé sur le nom des feuilles concernées comme numérique (1,2,3, etc.....)

Sub importer()
   Dim F As Worksheet
   With Sheets("Recherche")
      .Range("K3:U" & .Range("K" & Rows.Count).End(xlUp).Row + 1).Clear
      For Each F In Worksheets
         If IsNumeric(F.Name) Then
            If F.ListObjects(1).ListRows.Count <> 0 And F.ListObjects(1).Range(2, 2) <> "" Then
               Debug.Print F.Name, F.ListObjects(1).Name, F.ListObjects(1).ListRows.Count, F.ListObjects(1).Range(2, 2)
               dl = .Range("K" & Rows.Count).End(xlUp).Row + 1
               F.ListObjects(1).DataBodyRange.Copy .Range("K" & dl)
            End If
         End If
      Next
   End With
End Sub

 

[Staple1600]

Bonjour @cp4

@cp4

Je rejoins l'avis de Jean Mairie pour l'utilisation des tableaux structurés

Mon avis , c'est oui aux tableaux structurés et aux TCD, non au VBA (*)

Comme tu as pris le train en marche, moi je descends à la station NoVBAToDay


(*) pour la problématique exposée dans ce fil.

 

[cp4]

Bonjour @cp4

@cp4

Mon avis , c'est oui aux tableaux structurés et aux TCD, non au VBA (*)

Comme tu as pris le train en marche, moi je descends à la station NoVBAToDay


(*) pour la problématique exposée dans ce fil.

Ok, je saute du train

 

[Staple1600]

RE

@cp4
Trop tard, tu as pris ton ticket!

Et comme disait jadis la seuneuceufeu, dans ses wagons.

Je précisais juste ce qu'était mon avis ici.

Et le demandeur fera ce qu'il veut: se simplifier le classeur ou lui faire prendre du poids avec moult feuilles et tutti quanti.