XL 2013 macro supprimer ligne après avoir coller dans autre feuille

[oyéoyé2L2]

Bonjour,

J'ai actuellement un problème de code, après avoir copier coller une ligne sous une certaine condition dans une autre feuille je souhaite supprimer cette ligne, cependant j'ai un message d'erreur que je n'arrive pas à résoudre.
Voici le code en question :

Sub supprimer()

Dim i As Integer, DerniereLigne As Integer

DerniereLigne = Range("A3000").End(xlUp).Row

For i = DerniereLigne To 1 Step -1
If Worksheets("Plan d'action").Cells(i, 7) = "" Then Worksheets("Plan d'action").Rows(i).Delete
Next i

End Sub

 

[Jauster]

Bonjour,
Quel message et à quelle ligne ?

 

[oyéoyé2L2]

je n'ai plus la même erreur qu'au début, voici mon fichier ci joint je n'arrive pas à voir d'où vient le problème...

 

[Lone-wolf]

Bonsoir à tous

Peut-être comme ceci

With Sheets(2)
derlig = .Cells(Rows.Count, 2).End(xlUp).Row
For i = derlig To 2 Step -1
If .Cells(i - 1, 7) = "" Then .Rows(i).EntireRow.Delete
Next i
End With

Pourquoi avoir mis toutes ces macros dans le module de la feuille??? 😱

Il faut les mettre dans un module standard. En plus je vois ceci dans le module

Sub supprimer()

Dim i As Long

For i = 10000 To 2 Step -1
If Sheets("action_plan").Cells(i, 12) <> "" And Sheets("action_plan").Cells(i, 18) = "Ok" Then
Rows(i).EntireRow.Delete

End If
Next i

End Sub

Dans le titre du poste tu dit: supprimer ligne après avoir coller dans autre feuille. Faudrait savoir?! 🙄

Où est la ligne du copier-coller?? 🙄

 

[oyéoyé2L2]

Couper désolé....
je souhaite couper que les lignes Done qui sont ok dans l'autre feuille puis ensuite supprimer les lignes vides.

 

[Lone-wolf]

Re

puis ensuite supprimer les lignes vides.

Quel intérêt à supprimer des lignes vides?! 😵

 

[oyéoyé2L2]

c'est un document professionnel qui doit être visuel. donc les lignes vides sont gênantes non ?

 

[Lone-wolf]

What?! 😵 😱

À la limite tu peux les masquer. 😎 Mais sache qu'Excel contient 1000000 de lignes, alors amuse-toi bien. 😉

 

[oyéoyé2L2]

Oui c'est ce que j'ai fais du coup... après je suis pas sur que ce soit très robuste