Lionel CIMA
XLDnaute Nouveau
Bonjour à toutes et à tous,
Pouvez-vous m'aider à corriger ce code.
Son principe : il doit me permettre de couper / coller les lignes d'un fichier source vers un fichier destination sous condition placée en colonne C
Si la condition est remplie, la ligne entière doit être déplacée vers le fichier destination et supprimée sur le fichier source
Voici le code rédigé :
Ce code coupe bien la ligne si elle contient "Déplacé" mais elle supprime aussi toutes les autres alors et ça ça ne va pas du tout...
Merci pour votre aide.
Pouvez-vous m'aider à corriger ce code.
Son principe : il doit me permettre de couper / coller les lignes d'un fichier source vers un fichier destination sous condition placée en colonne C
Si la condition est remplie, la ligne entière doit être déplacée vers le fichier destination et supprimée sur le fichier source
Voici le code rédigé :
Code:
Sub Export()
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
Set WBSource = Workbooks("Test")
Set WBDest = Workbooks("COPTEST")
WBSource.Activate
For i = Cells(Rows.Count, "c").End(xlUp).Row To 2 Step -1
j = WBDest.Worksheets(1).Range("C65536").End(xlUp).Row + 1
If Range("c" & i) Like "Deplac*" Then Rows(i).Cut Destination:=WBDest.Worksheets(1).Cells(j, 1)
Next i
On Error Resume Next
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
End Sub
Ce code coupe bien la ligne si elle contient "Déplacé" mais elle supprime aussi toutes les autres alors et ça ça ne va pas du tout...
Merci pour votre aide.