Trouver le n° de la dernière ligne non vide

Question

Bonjour,

je souhaiterais savoir comment trouver le num&#233;ro de la derni&#232;re ligne non vide d'une plage (de la colonne A &#224; I) sous Excel sans que l'ordi mouline pendant deux minutes

Je souhaiterai aussi obtenir un code VBA6 permettant de supprimer automatiquement les lignes vides d'une feuille excel sans que l'ordi rame.

Merci d'avance

jpleroisse · Answer

Bonjour,

Voil&#224; toujours pour supprimer les lignes vides.

Pour ta premi&#232;re question, je regarderai tant&#244;t, je dois m'absenter.



Sub SupprimerLigne()

Dim Derni&#232;reLigne As Long

Dim r As Long

Derni&#232;reLigne = ActiveSheet.UsedRange.Row - 1

Derni&#232;reLigne = Derni&#232;reLigne + ActiveSheet.UsedRange.Rows.Count

Application.ScreenUpdating = False

For r = Derni&#232;reLigne To 1 Step -1

If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then

Rows(r).Delete

End If

Next r

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Trouver le n° de la dernière ligne non vide

1 réponse

Discussions similaires