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

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

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

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses
Probleme d'affichage de ligne dans Excel
sammy79 -
Pierre65 -

12 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon -
oumnas -

4 réponses
RECHERCHEV additionne les plusieurs lignes du meme nom
pfl.bourde -
pfl.bourde -

2 réponses