Suprimer des lignes
Résolu
Bonjour,
Je cherche à faire un programme qui supprime les cinq premières lignes d'un tableau lorsque la valeur "N/A" est rencontré et cela sur toute la feuille Excel.
J’ai fait quelques testes sans succès. Voici mon programme:
Sub supprimer_lignes()
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Cells(i, 1).Value = "N/A" Then Cells(i, 1).EntireRow.Delete
Next
End Sub
Je cherche à faire un programme qui supprime les cinq premières lignes d'un tableau lorsque la valeur "N/A" est rencontré et cela sur toute la feuille Excel.
J’ai fait quelques testes sans succès. Voici mon programme:
Sub supprimer_lignes()
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Cells(i, 1).Value = "N/A" Then Cells(i, 1).EntireRow.Delete
Next
End Sub
2 réponses
-
Contributeurbonjour
Option Explicit
'-------------
Sub virer_ligne_erreur()
Dim Derlig As long
On Error Resume Next
Derlig = Range("A65536").End(xlUp).Row
Cells.Range("A1:A" & Derlig). _
SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
End Sub -
désolé pas vu la réponse mais c'est effectivement ça merci beacoup ! :)
