Problème avec formule pour purger des lignes vides [Fermé]

Signaler
Messages postés
57
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
24 septembre 2020
-
Messages postés
52353
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
29 septembre 2020
-
Bonjour, Est-ce que quelqu'un peut m'aider svp. Lorsque je l'exécute, j'ai une erreur d'exécution '438' propriété ou méthode non gérée par cet objet. Est-ce qu'il y a quelque chose d'incorrect avec ma formule ?

J'ai cette formule :
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

2 réponses

Messages postés
9572
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
28 septembre 2020
1 908
Bonjour

Tu as un "s" malheureux en trop
Rows(last + 1 & ":" & Rows.Counts).Select

Cdlmnt
Messages postés
9572
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
28 septembre 2020
1 908
RQ. Rows(last + 1 & ":" & Rows.Count).Delete
devrait suffire
Bonjour,

On peut même pousser jusqu'à
Sub Purger()
Range(Range("A" & Rows.Count).End(xlUp)(2), Range("A" & Rows.Count)).EntireRow.Delete
End Sub

Cordialement.
Messages postés
52353
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
29 septembre 2020
14 164
Bonjour sylmarco.

Petite rectification de vocabulaire :
Ce n'est pas une formule, mais un code (programme VBA).

Cordialement.