Extraction des données entre 2 dates avec ajout nom d'onglet

Bonjour à tout le monde

Je galère actuellement à modifier un code que j'ai trouver sur le forum pour l'adapter à mon cas.

En effet, inspiré du code de ThauThème dans la discussion : https://forum.excel-pratique.com/viewtopic.php?t=91588 , j'ai fais quelques petites modifications afin de rajouter dans le tableau le nom de l'onglet où la ligne a été copier.

La copie se limite actuellement à quelques lignes alors que chaque onglet peut avoir des centaines lignes.

Je joint ici un fichier de test en espérant que l'un des membres de ce forum pourra m'aider.

Cordialement

Bonjour,

Ta macro modifiée :

Sub Galopin()
Dim WsB As Worksheet, Ws As Worksheet
Dim DDeb&, DFin&, iR%, iC%, k%
Dim ArrV, ArrL(1 To 10 ^ 5, 1 To 11)

Set WsB = Worksheets("Bilan")
WsB.Range("B11").CurrentRegion.ClearContents
DDeb = DateSerial(2019, 1, 1)
DFin = DateSerial(2019, 4, 15)
Debug.Print CDate(DDeb) & " " & CDate(DFin)
k = 1
For Each Ws In Sheets
    If Not Ws.Name = "Bilan" Then
        ArrV = Ws.Range("B11").CurrentRegion.Value2
        For iR = 1 To UBound(ArrV, 1)
            If ArrV(iR, 4) >= DDeb And ArrV(iR, 4) <= DFin Then
                For iC = 1 To 10
                     ArrL(k, iC) = ArrV(iR, iC)
                     ArrL(k, 11) = Ws.Name
                Next
                k = k + 1
            End If
        Next
    End If
Next
If k > 1 Then
    WsB.Range("C10").Resize(UBound(ArrL, 1), UBound(ArrL, 2)).Value = ArrL
End If
End Sub

A+

Merci Galopin01,

Ton code fonctionne impeccablement.

J'ai juste fait quelques adaptation et le résultat correspond parfaitement à mes attentes.

Merci encore et à Plus

Bonjour à tous , Bonjour Galopin01

Je viens de faire une remarque dans le code :

Lorsque les tableaux à copier n'ont pas le même nombre de colonnes, une erreur apparait ;

" Erreur d’exécution '9' : L'indice n'appartient pas à la sélection ".

ArrL(k, iC) = ArrV(iR, iC)

comment pourrait-je gérer cette erreur tout en effectuant l'extraction des données ?