Suprimer des lignes

Résolu/Fermé

Matt - 23 mai 2017 à 09:57
Matt - 24 mai 2017 à 11:06

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

A voir également:

Suprimer des lignes
Suprimer edge - Guide
Suprimer compte insta - Guide
Suprimer page word - Guide
Figer des lignes excel - Guide
Partager des photos en ligne - Guide

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 mai 2017 à 11:41

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 mai 2017 à 16:45

MERCI

de rien....

Réponse 2 / 2

Matt
24 mai 2017 à 11:06

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

Discussions similaires

Afficher toutes les lignes masquées excel

remettre toutes les colonnes et les lignes masquées

Excel ne filtre pas les derniere donnée ecrite

Discussions similaires

Newsletters