Comment supprimer des lignes vides à la fin de mon fichier Excel

Fermé
Sylvie - Modifié le 5 déc. 2017 à 16:01
 sylmarco - 13 févr. 2018 à 18:04
Bonjour, J'utilise Excel 2010 avec Windows 10. J'ai un gros fichier Excel que j'ai monté et qui est mon outil de base de travail. Cependant, il me créé toujours des lignes vides à la fin de mon fichier et il m'est impossible de les supprimer. J'avais trouvé une macro qui fonctionnait super bien et ça avait résolu tous mes problèmes.

Par contre, depuis 2 mois, ça ne fonctionne malheureusement plus car ça m'indique erreur d'exécution 438. Je n'ai absolument rien changé de mon fichier ni aucune version d'aucun programme dans mon ordinateur. La seule chose que je peux voir, c'est une mise à jour qui a pu faire planter ma macro. Je ne suis pas très habile non plus dans les macros. C'est en fouillant sur internet que je l'avais trouvée.

Sub Purger()
Dim last As Variant
Dim ligne_libre As Variant
last = Range("A" & Rows.Count).End(xlUp).Row
MsgBox "La derniere ligne est la " & last & "ième" 'juste pour se contrôler ...
Rows(last + 1 & ":" & Rows.Counts).Select
Selection.Delete Shift:=xlUp

End Sub


Est-ce que quelqu'un peut m'aider à trouver le problème S.V.P. Il semblerait que ce soit dans la ligne rows qu'il y a un problème.



A voir également:

4 réponses

ccm81 Messages postés 10520 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2023 2 334
5 déc. 2017 à 17:26
Bonjour

Peut être un "s" de trop pour Count à Rows.Count
Au passage que vaut last quand ça plante ?

Cdlmnt
0