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

HugoMOMO

XLDnaute Nouveau
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 :
1606914428046.png

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

Merci d'avance pour votre aide !
 

Pièces jointes

  • Tableur-menuiserie.xlsx
    75.5 KB · Affichages: 9

job75

XLDnaute Barbatruc
Bonjour HugoMOMO, WTF,

Voyez le fichier joint et cette macro dans le code de la feuille "Trappe et caisson" :
VB:
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+
 

Pièces jointes

  • Tableur-menuiserie(1).xlsm
    84.9 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll