XL 2013 supprimer ligne si cellule non vide

[ketzakoalt]

Bonjour,

comment supprimer toutes les lignes d'une feuille qui ont la cellule de la colonne X qui est "non vide" en vba ?

 

[vgendron]

hello Ketzakoalt
hello @Lone-wolf

va voir dans ce post.. la demande se rapproche beaucoup de la tienne
plusieurs solutions ont été données
https://www.excel-downloads.com/threads/suppression-de-lignes-si-toutes-les-cellules-0.20025402/

 

[Lone-wolf]

Re vgendron

Dans l'autre fil, pourquoi le filtre??

J'ai fait un test de ma macro sur un fichier, sans problème.

 

[vgendron]

Dans l'autre fil, pourquoi le filtre??

parce que j'aime bien voir ce que je supprime :-D

sérieusement. parce que je ne voyais pas comment faire autrement
je crois qu'une autre solution avait été donnée (par Job, ou Robert??) qui permettait de supprimer sans besoin de formule intermédiaire (et sans boucle)
je pense meme que c'était @Staple1600 :-D

 

[Lone-wolf]

Bonjour ketzakoalt, re vgendron

@vgendron : j'ai trouvé.

Sub Supprimer()
Dim plage As Range, x&

x = Range("a" & Rows.Count).End(xlUp).Row
Set plage = Range("o2:o" & x)
plage.Cells.SpecialCells(2).EntireRow.Delete  'le 2 c'est la valeur - le Type: xlCellTypeConstants
End Sub

 

[Staple1600]

Bonsoir, le fil, le forum

@vgendron

parce que j'aime bien voir ce que je supprime :-D
je crois qu'une autre solution avait été donnée (par Job, ou Robert??) qui permettait de supprimer sans besoin de formule intermédiaire (et sans boucle)

Moi j'en ai donné une (sans boucle, sans filtre, mais avec une formule)
(et je n'ai pas vu passé job75 ou Robert dans le fil que tu cites)

 

[Staple1600]

Re

Pour la question si prise littéralement
Trois macros (la dernière étant la plus simple )

Sub Macro1()
On Error Resume Next
Columns("X:X").SpecialCells(2).EntireRow.Delete
End Sub
Sub Macro2()
On Error Resume Next: Columns(24).SpecialCells(2).EntireRow.Delete
End Sub

Sub Macro3()
Columns(24).Delete
End Sub

NB: A la relecture, la macro 3 est simple mais pas dans la cible (lol)

 

[ketzakoalt]

Merci à vous.
La macro 1 de Staple fonctionne à merveille