Problème avec formule pour purger des lignes vides

Messages postés
44
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
4 septembre 2019
- - Dernière réponse : Raymond PENTIER
Messages postés
49887
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
21 septembre 2019
- 5 sept. 2019 à 00:27
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
Afficher la suite 

2 réponses

Messages postés
9118
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
22 septembre 2019
1627
0
Merci
Bonjour

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

Cdlmnt
ccm81
Messages postés
9118
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
22 septembre 2019
1627 -
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.
Commenter la réponse de ccm81
Messages postés
49887
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
21 septembre 2019
10699
0
Merci
Bonjour sylmarco.

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

Cordialement.
Commenter la réponse de Raymond PENTIER