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

Signaler
Messages postés
6
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
17 septembre 2008
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
Bonjour,

je souhaiterais savoir comment trouver le numéro de la dernière ligne non vide d'une plage (de la colonne A à 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

1 réponse

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonjour,

Voilà toujours pour supprimer les lignes vides.

Pour ta première question, je regarderai tantôt, je dois m'absenter.



Sub SupprimerLigne()

Dim DernièreLigne As Long

Dim r As Long

DernièreLigne = ActiveSheet.UsedRange.Row - 1

DernièreLigne = DernièreLigne + ActiveSheet.UsedRange.Rows.Count

Application.ScreenUpdating = False

For r = Derniè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éponse vous convient, cliquez Réponse Acceptée.