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
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
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)
Pour la question si prise littéralement
Trois macros (la dernière étant la plus simple )
VB:
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)