Lionel CIMA
XLDnaute Nouveau
Bonjour,
Je cherche à déplacer des lignes d'une feuille à une autre dans le même classeur sous condition.
(déplacement de la ligne sur la feuille
Il me semble que le code suivant devrait me permettre d'obtenir le résultat attendu mais ça ne marche pas.
Un peu d'aide serait bienvenu...
Merci beaucoup
Je cherche à déplacer des lignes d'une feuille à une autre dans le même classeur sous condition.
(déplacement de la ligne sur la feuille
Il me semble que le code suivant devrait me permettre d'obtenir le résultat attendu mais ça ne marche pas.
Un peu d'aide serait bienvenu...
Merci beaucoup
Code:
Sub Archivage()
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
Set WBSource = Workbooks("Test")
WBSource.Activate
For i = Cells(Rows.Count, "c").End(xlUp).Row To 2 Step -1
j = Worksheets("DVi").Range("C65536").End(xlUp).Row + 1
If Range("c" & i) Like "*lib*" And Range("f" & i) <> "" Then
Rows(i).Cut Destination:=Worksheets("DVi").Cells(j, 1)
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub