Problème avec formule pour purger des lignes vides
sylmarco
Messages postés
96
Date d'inscription
Statut
Membre
Dernière intervention
-
Raymond PENTIER Messages postés 58211 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 58211 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
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
