Supprimer toutes les lignes vides après un tableau

[roulax]

Bonjour à tous,

Je cherche à supprimer toutes les lignes vides après un tableau pour réduire la taille de mon fichier à partir de la colonne A.
J'ai un peu de mal avec le code parce que le nombre de ligne de ce tableau change souvent.

Merci d'avance pour votre aide

 

[Guest]

Re : Supprimer toutes les lignes vides après un tableau

Bonjour,

Si tu n'as rien sous ton tableau, essaie ceci:

[COLOR=blue]Sub[/COLOR] test()
    [COLOR=blue]Dim[/COLOR] t [COLOR=blue]As[/COLOR] Range
    [COLOR=blue]Set[/COLOR] t = Cells.Find([I]"*"[/I], , , , , xlPrevious)
    Range(Rows(t.Row + 1), Rows(Rows.Count)).EntireRow.[COLOR=blue]Delete[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

A+

 

[roulax]

Re : Supprimer toutes les lignes vides après un tableau

Bonjour Hasco,

Je viens de tester, ça fonctionne, je n'avais rien sous le tableau.

Merci pour ta réponse.