Supprimer lignes en VBA

Bonjour

Sub Supprimer()

Dim x as integer

for x =range('A65536').end(xlup).row to 1 step -1
if range('A' & x)=0 or range('A' & x)='' then rows(x).delete
next

end sub

Bon courage

Pascal,

Je t'avais bien dit que j'étais incapable d'aligner deux lignes en VBA, ton code le confirme.

Merci pour ta précieuse assistance.

Deux bises

Pépette

Salut à tous les deux,

il y a la même question 2 posts plus bas dans lequel j'avais proposé ceci:

Sub efface_ligne()
Dim vcel As Range
Range('A1:Z100').Select
For Each vcel In Selection
If vcel.Value = 1 Then vcel.EntireRow.Delete
Next
End Sub


L'avantage c'est que cette routine examine l'ensemble de la plage et pas uniquement la colonne 'A' (mais c'est vrai que c'était la demande initiale)



Au fait, pascal, on ne croise plus les vieux habitiués sur le forum, où sont passés Thierry, ti, celeda, papy novice, léa, brigitte et j'en oublie ???

A+
Philippe

Re

Philippe je comprends pas trop ta question sur les 'vieux' habitués car si tu regardes hier tu verras que Thierry a posté au moins 20 fois Celada une dizaine et pour TI je crois qu'avec la version 2 de veriti il est un peu pris mais on le voit régulièrement; Brigitte a posté 7 fois hier et Léa avait expliqué qu'après être venue pendant quelques temps sur le forum elle repartait pour son boulot

Bonne journée à toi