Suprimer des lignes

Résolu
Matt -  
 Matt -
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


2 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour

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
1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
MERCI

de rien....
0
Matt
 
désolé pas vu la réponse mais c'est effectivement ça merci beacoup ! :)
0