Problème avec formule pour purger des lignes vides

Fermé

sylmarco Messages postés 78 Date d'inscription mercredi 6 décembre 2017 Statut Membre Dernière intervention 26 janvier 2024 - 4 sept. 2019 à 18:20
Raymond PENTIER Messages postés 58387 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 16 avril 2024 - 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

A voir également:

Problème avec formule pour purger des lignes vides
Formule excel - Guide
Formule si et - Guide
Formule excel pour additionner plusieurs cellules - Guide
Formule moyenne excel - Guide
Mise en forme conditionnelle formule si - Guide

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
4 sept. 2019 à 18:49

Bonjour

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

Cdlmnt

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
4 sept. 2019 à 18:51

RQ. Rows(last + 1 & ":" & Rows.Count).Delete
devrait suffire

gyrus
4 sept. 2019 à 19:03

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.

Réponse 2 / 2

Raymond PENTIER Messages postés 58387 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 16 avril 2024 17 087
5 sept. 2019 à 00:27

Bonjour sylmarco.

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

Cordialement.

Discussions similaires

exo pix

je veut créer des codes

Formule Excel : "SI" une cellule contient un mot, alors ?

EXCEL : Supprimer des lignes vides à la fin

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters