supprimer 1 ligne quand 1 cellule est vide

Hervé

XLDnaute Barbatruc

• 10 Mai 2005

• #2

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

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 10 Mai 2005

• #3

Salut !!

essaie ca :

Code:

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

 

Vote positif 0 Vote négatif

T

titcoeur

Guest

• 10 Mai 2005

• #4

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+

 

Vote positif 0 Vote négatif

G

greg

Guest

• 10 Mai 2005

• #5

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

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 10 Mai 2005

• #6

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

 

Vote positif 0 Vote négatif

G

greg

Guest

• 10 Mai 2005

• #7

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

 

Vote positif 0 Vote négatif