Atteindre la première ligne vide à partir d'un repère

Berg1664 · 29 Avril 2008

Bonjour à vous tous

Voici mon problème, je souhaiterais constituer une macro qui pourrait

-identifier la première cellule vide au bas d'une colonne puis supprimer toutes lignes suivantes de la feuille

Dans l'exemple joint je souhaiterais donc dans la colonne C supprimer toutes les lignes du tableau (en gris) situées après la dernière cellule vide de la colonne C

D'avance grand merci pour votre aide

Berg1664
(à contacter sans modération)

nat54 · 29 Avril 2008

Re : Atteindre la première ligne vide à partir d'un repère

Bonjour,

Dans ma besace excel vba

If [a2] = "" Then Range("a1").Activate Else Selection.End(xlDown).Select
ActiveCell.Activate
ActiveCell.Offset(1, 0).Activate ‘pour se placer sur la prochaine ligne vierge

Cousinhub · 29 Avril 2008

Re : Atteindre la première ligne vide à partir d'un repère

Bonsoir,

essaie :

Code:

Sub efface()
Rows([C65000].End(xlUp).Row + 1 & ":65536").Delete
End Sub

Atteindre la première ligne vide à partir d'un repère

Berg1664

XLDnaute Occasionnel

Pièces jointes

nat54

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Discussions similaires