Supprimer ligne si cellule vide

gourdin · 15 Août 2016

Bonjour,

Je souhaite supprimer par macro toute les lignes de la plage "A5:A500" contenant des cellules vides
Pour cela je pensai pouvoir utiliser le code suivant :
Range("A5:A500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Mais cela ne fonctionne pas.

Après recherche sur le net, il semblerai que les cellules que je pensais "vides" ne le sont pas en réalité en raison d'un copier coller préalable. En effet quand je selectionne une cellule soi-disant vide et que je supprime son contenu, celle ci est considérée alors comme vide par le code.

Avant de me lancer dans d'autres solutions (filtre, tri, ajout colonne, formule, boucle etc.) qui risquent d'être compliquée pour moi, pourriez vous me dire si vous connaissez une solution simple à ce problème ?

Merci

Chris401 · 15 Août 2016

Bonjour

Essaye en supprimant les espaces inutiles avant

VB:

For Each c In Range("A5:A500")
    c = Application.WorksheetFunction.Trim(c)
Next c
Range("A5:A500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

gourdin · 15 Août 2016

Bonjour Chris

Cela ne fonctionne pas.
Message d'erreur : "Erreur d'exeution 1004 - Pas de cellule correspondante"
En pièce jointe un bout de mon fichier
Merci

DoubleZero · 15 Août 2016

Bonjour à toutes et à tous,

Comme ceci ?

VB:

Option Explicit
Sub Ligne_supprimer_si()
    Dim c As Range
    Columns(1).Insert
    For Each c In Columns(2).SpecialCells(xlCellTypeConstants, 23)
        c.Offset(, -1).FormulaR1C1 = "=CODE(RC[1])"
    Next
    On Error Resume Next
    With Columns(1): .SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete: .Delete Shift:=xlToLeft: End With
End Sub

A bientôt

gourdin · 15 Août 2016

Bonsoir Double zéro,

Merci pour cette solution qui fonctionne bien.

Supprimer ligne si cellule vide

gourdin

XLDnaute Impliqué

Chris401

XLDnaute Accro

gourdin

XLDnaute Impliqué

Pièces jointes

DoubleZero

XLDnaute Barbatruc

gourdin

XLDnaute Impliqué

Discussions similaires