1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Sub CopyToFeuille2()
Dim wsSource As Worksheet
Dim wsCible As Worksheet
Dim derniereLigne As Long
Dim tmpLigne As Long
Dim i As Long
Set wsSource = Worksheets("Feuil1")
Set wsCible = Worksheets("Feuil2")
tmpLigne = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
'On récupère la dernière ligne remplie
derniereLigne = Range("A" & Rows.Count).End(xlUp).Row
'Pour chaque ligne du fichier source
For i = 1 To derniereLigne
'Si la colonne H contient "signé" --> deplacer vers Feuil2
If wsSource.Cells(i, "H").Value = "signé" Then
wsSource.Range("A:H" & i).Copy wsCible.Range("A:H" & tmpLigne)
wsSource.Range("A:H" & i).ClearContents
tmpLigne = tmpLigne + 1
End If
Next i
End Sub |
Partager