Copie colle des lignes SI

Bonjour,

Je recherche de l’aide sur une problématique :

Dans ma Feuil1, j’ai un tableau, dans les colonnes D et E, je dois mettre au jour le jour l’équipe et le nom de la personne.

J’aurais souhaité avoir une macro qui copie colle les lignes ou les cellules des colonnes D et E sont remplies dans la Feuil2.

Parfois, mon tableau et mis à jour via une BI, je remets donc les équipes et les noms à jour, j’aurais également souhaité que lorsque je copie colle une nouvelle fois sur ma Feuil2, que les lignes viennent s’incrémenter en dessous des lignes déjà existantes.

Merci d’avance,

14test11.xlsm (9.67 Ko)

Re,

Problème régler .

Merci =)


Option Explicit

Sub Copier()

Dim C As Range

Dim LigneAjout As Long

With Worksheets("Feuil1")

For Each C In .Range("F2:F" & .Range("F" & Rows.Count).End(xlUp).Row)

If Not IsEmpty(C) Then

LigneAjout = Worksheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(1).Row

C.EntireRow.Copy Worksheets("Feuil2").Range("A" & LigneAjout)

End If

Next C

End With

End Sub

Rechercher des sujets similaires à "copie colle lignes"