supprimer une ligne quand une cellule est vide

Question

Bonjour, 
Je souhaiterais supprimer 1 ligne lorsque que la cellule de la colonne A est vide, mais &#231;a me supprime toutes les lignes, m&#234;me celle avec une cellule pleine. 
Voil&#224; mon programme: 

Sub Select_case() 
Dim collection As Range 
Dim cellule As Range 

Set collection = Range("A2:A351") 
For Each cellule In collection 
Select Case cellule 
Case Not IsEmpty(cellule) 
Rows.Delete 
End Select 
Next 
End Sub 

Merci d'avance !

jpleroisse · Answer

Il n'est pas possible de supprimer un ligne uniquement sur une cellule vide, par exemple, si a1 est vide mais que B1 contient des donn&#233;es, cette ligne ne sera pas supprim&#233;e.
Cette macro supprime les lignes vides entre les donn&#233;es.

Sub SupprimerLignesVides()
Dim Derni&#232;reLigne As Long
Dim r As Long
Derni&#232;reLigne = ActiveSheet.UsedRange.Row - 1
Derni&#232;reLigne = Derni&#232;reLigne + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = Derni&#232;reLigne To 1 Step -1
If Application.WorkSheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

jpleroisse

valtrase · Answer

Lut,
dans ton code tu marques Rows.delete ton prob vient surement de l&#224;
remplaces par cellule.entirerow.delete

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Fennec66 · Answer

Bonjour, 

J'ai testé ce code. Dans le premier exemple, en effet, il supprime carrément tout. 

En remplaçant par cellule.entirerow.delete, ça fonctionne mais il faut le faire plusieurs fois, il ne le fait pas en un seul passage et je ne vois pas trop pourquoi, le code a l'air correct.

valtrase · Answer

Lut,
vieux sujet là !
Il m'est arrivé ce genre de problèmes 
Tu devrais tester ton code en partant de la fin de tes lignes et non pas du début le fait de supprimer des lignes pose problème au niveau du code.

LR = Selection.Rows.Count  "ou une plage de lignes"

    With Selection
        For n = LR To 1 Step -1
            Ton code ici 
        Next n
    End With

Cordialement, Jean-Paul  		
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé

Supprimer une ligne quand une cellule est vide

4 réponses

Discussions similaires