Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.