XL pour MAC Remplir automatiquement un tableau à partir d'un autre tableau

[HugoMOMO]

Amis d'Excel bonjour,

Dans le fichier excel joint,

J'aimerais remplir dans la feuille "Trappe et caisson" les informations se trouvant dans la feuille "Relevés" de la ligne 43 à 113.
Petite spécificité, ce qui fais que je bloque; je ne veux que les lignes rempli dans mon tableau avec leurs en-tête.

Exemple :

Dans mon nouveau tableau, je souhaite uniquement la ligne 42,46,54 et 55 à la suite.

Merci d'avance pour votre aide !

 

[WTF]

Bonjour,
Tu pourrais passer par PowerQuery, mais il faut en amont que tu ais restructuré tes tableaux, notamment en n'utilisant pas de cellule fusionnées

 

[job75]

Bonjour HugoMOMO, WTF,

Voyez le fichier joint et cette macro dans le code de la feuille "Trappe et caisson" :

Private Sub Worksheet_Activate()
Dim i&, n&
Application.ScreenUpdating = False
Cells.Delete 'RAZ
With Sheets("Relevés")
    For i = 42 To 113
        If Application.CountA(.Rows(i)) Then
            n = n + 1
            .Rows(i).Copy Cells(n, 1)
            If n > 1 Then If Cells(n, 1).Interior.ColorIndex <> xlNone And _
                Cells(n - 1, 1).Interior.ColorIndex <> xlNone Then Rows(n - 1).Delete: n = n - 1
        End If
    Next
    If Cells(n, 1).Interior.ColorIndex <> xlNone Then Rows(n).Delete 'dernière ligne copiée
    For i = 1 To 15
        Columns(i).ColumnWidth = .Columns(i).ColumnWidth 'largeur des colonnes
    Next
End With
End Sub

Elle se déclenche quand on active la feuille.

A+