XL 2016 Supprimer ligne si cellule vide dans un tableau

tyruso

XLDnaute Junior
Bonjour à tous.

Je ne trouve pas la solution à mon problème car je n'arrive pas à déclarer les valeurs je pense. J'ai un tableau Excel (un vrai tableau Excel) avec des noms de colonnes etc... La colonne A s'appelle "Num_Ordre".

Je souhaiterais que s'il y a une cellule vide en A, la ligne soit supprimée.

Ce code fonctionne:
Dim i As Long
Application.ScreenUpdating = False
For i = 65536 To 3 Step -1
With Cells(i, 1)
If IsEmpty(.Value) Then .EntireRow.Delete
End With
Next

Par contre, au lieu de mettre 65536, je souhaiterais que cela recherche tout seul la dernière ligne de mon tableau vu qu'il va y avoir des données qui se rajouterons.

Merci pour votre aide.
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Tyruso, bonjour le forum,

Peut-être comme ça :

VB:
Sub Macro1()
Dim I As Long
Dim DL As Long

Application.ScreenUpdating = False
DL = Cells(Application.Rows.Count, "A").End(xlUp).Row
For I = DL To 3 Step -1
    If IsEmpty(Cells(I, "A").Value) Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
End Sub
 

Discussions similaires