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

BIBIJLR

XLDnaute Nouveau
Bonjour à tous,

Je cherche à lister des informations disponibles sur plusieurs table en une seule (recap) de façon dymamique.
Les colonnes sont indentiques d'une feuille à l'autre. Ci joint un exemple: BD 1 et 2 sontles feuilles à lister ensemble.
Recap est le résultat recherché.
 

Pièces jointes

Re : Excel Tout lister

Bonjour
Ci dessous une procédure à tester

Code:
Sub travdem()
Dim Sh As Worksheet
Dim i As Long
Dim lidep1 As Long
Dim lidep2 As Long
Dim dl1 As Long

Dim nomfeuille1 As String
Dim nomfeuille2 As String
Dim col1 As String
Dim col2 As String
Dim cellule As Range
nomfeuille2 = "RECAP"
col1 = "A"
lidep1 = 2
col2 = "A"
lidep2 = 2

For Each Sh In Worksheets
    If Sh.Name <> nomfeuille2 Then
        For i = lidep1 To Sheets(Sh.Name).Range(col1 & "65536").End(xlUp).Row
            dl1 = Sheets(nomfeuille2).Range("A65536").End(xlUp).Row + 1
             Sheets(Sh.Name).Rows(i).Copy _
            Destination:=Sheets(nomfeuille2).Rows(dl1)
        Next i
    End If
Next Sh
End Sub


JP
 
- 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

Réponses
3
Affichages
247
Réponses
22
Affichages
1 K
Réponses
13
Affichages
668
Retour