supprimer 1 ligne quand 1 cellule est vide

[greg]

Bonjour,
Je souhaiterais supprimer 1 ligne lorsque que la cellule de la colonne A est vide, mais ça me supprime toutes les lignes, même celle avec une cellule pleine.
Voilà 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 !

 

[Hervé]

Bonjour

Une autre approche, en vba pour supprimer des lignes, il vaut mieux partir de la fin


Dim i As Long

For i = 351 To 2 Step -1
If Range('a' & i) = '' Then Rows(i).Delete
Next i


Salut

 

[Creepy]

Salut !!

essaie ca :

Public Sub MEPTab()
Dim i As Integer
For i = Range('a65536').End(xlUp).Row To 4 Step -1
        If Cells(i, 1) = '' then 
           Rows(i).Delete
        End If
Next i
End Sub

Ce code est plus propre !

En ce qui concerne ton code ce qui cloche est 'Not IsEmpty(cellule)'
Tu lui dis si la cellule nes pas vide ! donc pleine !

Voila

++

Creepy

 

[titcoeur]

Salut

une correction de ton code serait ceci :


Sub Select_case()
Dim collection As Range
Dim cellule As Range

Set collection = Range('A2:A351')
For Each cellule In collection

If IsEmpty(cellule) = True Then
a = cellule.Row
Rows(a).Delete
End If
Next
End Sub




A+

 

[greg]

Merci de tout aide, mais ça ne fonctionne pas très bien...
ça supprime certaines des lignes avec une cellule vide, mais pas toutes!
Si quelqu'un a une autre idée, je suis preneur !
Merci à tous

 

[Creepy]

RE all,

Si la ligne ne s'efface pas c'est qu'elle n'est pas vide !

Donc peut contient elle un espace ?

Si oui il faut adapter ton code ! ET si ca ne marche pas met ton fichier en PJ

++

Creepy

 

[greg]

Merci Creepy, ça marche !
Je te remercit, c cool !