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

[Berg1664]

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]

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]

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

Bonsoir,

essaie :

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