Supprimer toute les lignes dont une cellule à un mot néant

Résolu/Fermé

JJM31 Messages postés 62 Date d'inscription dimanche 12 juillet 2015 Statut Membre Dernière intervention 26 mars 2019 - 4 avril 2016 à 19:31
JJM31 Messages postés 62 Date d'inscription dimanche 12 juillet 2015 Statut Membre Dernière intervention 26 mars 2019 - 5 avril 2016 à 07:58

Bonjour,

J'aimerais d'un clic supprimer toute les lignes dont une des cellules comporte le mot néant.

Dite moi si c'est possible de le faire et comment peut-on le faire.

merci

A voir également:

Supprimer toute les lignes dont une cellule à un mot néant
Supprimer une page word - Guide
Aller à la ligne dans une cellule excel - Guide
Supprimer mot de passe windows 10 - Guide
Supprimer compte instagram - Guide
Fichier impossible à supprimer - Guide

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 429
4 avril 2016 à 20:22

Bonjour

C'est possible
Copier ceci dans le Module de la feuille à traiter

Option Explicit

Const lideb = 2
Const cle = "néant"

Public Sub SuppLignes()
Dim lifin As Long, li As Long, obj As Object
Application.ScreenUpdating = False
lifin = Cells.Find("*", , , , xlByRows, xlPrevious).Row
For li = lifin To lideb Step -1
  Set obj = Rows(li).Find(cle, , , xlWhole)
  If Not obj Is Nothing Then Rows(li).Delete
Next li
Application.ScreenUpdating = True
End Sub

Cdlmnt

JJM31 Messages postés 62 Date d'inscription dimanche 12 juillet 2015 Statut Membre Dernière intervention 26 mars 2019 7
5 avril 2016 à 07:58

Discussions similaires