[XL-2007] Suppression de ligne si une cellule est vide [Résolu]

[cynoq]

Bonjour à tous,
Je suppose que la question a déjà été posée maintes fois mais je ne retrouve pas la soluce sur le forum.
Mon problème est le suivant : Je souhaite supprimer les lignes d'un tableau pour lesquelles on ne retrouve pas la valeur "x".
Pour le moment, mon code est le suivant :

Code :

1
2
3
4
5
6
7
8
9
Range("A65536").Select
    Selection.End(xlUp).Select
    Ligfin = ActiveCell.Row
    MsgBox (Ligfin)
    For i = Ligfin To 2
        If Cells(i, 16).Value = vbNullString Then
            Cells(i, 1).EntireRow.Delete
        End If
    Next

J'ai bien le nombre de lignes qui s'affiche, avec la quantité correcte mais rien ne se passe après, ni même une erreur.

Quelqu'un peut m'aider ?
Merci par avance.

[Daniel.C]

Bonjour,

Mets

Code :

For i = Ligfin To 2 Step -1

[Fvandermeulen]

Salut,

Et un petit bonus pour le jour ou tu passe en XL2007 ou XL2010 (si ce n'est pas déjà le cas) et que tu as plus de 65536 lignes utilisées (et ça tient en une ligne tout en évitant les select)

Code :

LigFin=cells(columns(1).cells.count,1).end(xlup).row

au lieu de

Code :

1
2
3
Range("A65536").Select
    Selection.End(xlUp).Select
    Ligfin = ActiveCell.Row

A+

[cynoq]

Merci pour les réponses (et les astuces ).
J'ai vu aussi mon erreur Step -1
Parfois on cherche longtemps pour un manque d'attention.
Merci encore.