commande VBA suppresion de lignes

[david.ridelaire]

Bonjour,

Je souhaiterai avoir une commande VBA qui me permette d'éffacer l'ensemble des lignes de la colonne A dont les cellules sont vides et ceci sur l'ensemble de la colonne A.

d'avance merci pour vos réponses
david

 

[Matheop]

Re : commande VBA suppresion de lignes

Salut david.ridelaire,

Je te propose la macro suivante :

Sub macro()

Dim lastUsedLine As Integer
lastUsedLine = Sheets(1).Range("A65536").End(xlUp).Row

For x = lastUsedLine To 1 Step -1
    If IsEmpty(Sheets(1).Cells(x, 1).Value) Then Sheets(1).Cells(x, 1).EntireRow.Delete shift:=xlShiftUp
Next x

End Sub

Ce code récupère la dernière cellule non vide de la colonne A de ta feuille 1. Ensuite une boucle allant de cette valeur à 1 (avec un pas de -1) te permet de vérifier les valeurs de chaque cellule de la colonne A. Si la cellule dans la colonne A est vide, alors on supprime l'intégralité de la ligne concernée.

Cordialement,
Mat'

 

[BOISGONTIER]

Re : commande VBA suppresion de lignes

Bonjour,

Suppression de lignes

JB

 

[david.ridelaire]

Re : commande VBA suppresion de lignes

Salut JB

j'ai essayé

On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

mais cela ne fonctionne pas dans mon fichier il y a quelque chose à rajouter à part Sub et End Sub?

 

[david.ridelaire]

Re : commande VBA suppresion de lignes

ci-joint le fichier qui me pose problème

d'avance merci

 

[BOISGONTIER]

Re : commande VBA suppresion de lignes

Sub sup()
For i = [A65000].End(xlUp).Row To 1 Step -1
  If Cells(i, 1) = "" Then Rows(i).Delete
Next i
End Sub

JB

 

[mikeo]

Re : commande VBA suppresion de lignes

Bonjour à tous,
Mes respects à JB,

David, les solutions proposées marchent toutes. Mais tes cellules ne sont pas vides. Il y a soit un espace, soit un ' qu'il faut supprimer avant.

A+