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
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