Problème avec formule pour purger des lignes vides

sylmarco Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   -  
Raymond PENTIER Messages postés 58989 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

2 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

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

Cdlmnt
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
RQ. Rows(last + 1 & ":" & Rows.Count).Delete
devrait suffire
0
gyrus
 
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.
0
Raymond PENTIER Messages postés 58989 Date d'inscription   Statut Contributeur Dernière intervention   17 353
 
Bonjour sylmarco.

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

Cordialement.
0