G
greg
Guest
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 !
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 !