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
Excel trier par ordre alphabétique en gardant les lignes - Guide
Partager des photos en ligne - Guide
Suprimer edge - Guide
Suprimer page word - Guide
Comment suprimer un compte gmail - 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 310
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 310
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

Probleme d'affichage de ligne dans Excel

Impossible d'afficher ou de masquer lignes et colonne excel 2007