zebanx
XLDnaute Accro
Bonjour,
J'utilise un code un peu long pour redéfinir la dernière cellule active d'une feuille.
Auriez-vous svp un code ou des lignes de codes plus courtes pour obtenir un résultat identique ?
Ci-joint un fichier avec sur le code de "REMPLIR" la ligne volontairement suspendue qui ne permet pas de limiter le nombre de lignes mais compte le nombre de lignes supprimées avec utilisation dans le code de "specialcells" (si vous supprimez les 3 erreurs en orange de la colonne A svp).
Vous en remerciant, bonne soirée
zebanx
code :
Sub suppLigneVides()
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
J'utilise un code un peu long pour redéfinir la dernière cellule active d'une feuille.
Auriez-vous svp un code ou des lignes de codes plus courtes pour obtenir un résultat identique ?
Ci-joint un fichier avec sur le code de "REMPLIR" la ligne volontairement suspendue qui ne permet pas de limiter le nombre de lignes mais compte le nombre de lignes supprimées avec utilisation dans le code de "specialcells" (si vous supprimez les 3 erreurs en orange de la colonne A svp).
Vous en remerciant, bonne soirée
zebanx
code :
Sub suppLigneVides()
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub