Supprimer lignes sur une feuille en VBA

Staple1600

XLDnaute Barbatruc

• 19 Juillet 2007

• #2

Re : Supprimer lignes sur une feuille en VBA

Bonsoir

Une proposition

Code:

sub test()
Dim cell as range
For each cell in activesheet.usedrange
if cell.value=0 then cell.entirerow.delete
Next
end sub

 

Dernière édition: 20 Juillet 2007

Vote positif 0 Vote négatif

L

Le Dragon

XLDnaute Nouveau

• 20 Juillet 2007

• #3

Re : Supprimer lignes sur une feuille en VBA

Merci pour la réponse, c'est super.

 

Vote positif 0 Vote négatif

C

CedricBDO

XLDnaute Nouveau

• 1 Août 2011

• #4

Re : Supprimer lignes sur une feuille en VBA

Je voudrais faire la même chose mais pour les lignes qui sont vides.
J'ai essayé ça mais ça ne marche pas :

Code:

'On supprime les lignes qui ont été déplacées et qui sont maintenant vides
j = 2
While wk1.Worksheets("Bidos").Cells(j, 1) = ""
wk1.Worksheets("Bidos").Rows(j).Delete
j = j + 1
Wend

Si vous pouviez m'aider ce serait super sympa. Merci

 

Dernière édition: 1 Août 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Août 2011

• #5

Re : Supprimer lignes sur une feuille en VBA

Bonjour,

essaye ceci, à noter que quand tu supprimes des lignes il est préférable de commencer par la fin et de remonter au cas ou tu rencontres les critères sur plusieurs cellules consécutives :

Code:

Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 1) = "" Then Rows(i).Delete
Next i

bon après midi
@+

 

Vote positif 0 Vote négatif

C

CedricBDO

XLDnaute Nouveau

• 1 Août 2011

• #6

Re : Supprimer lignes sur une feuille en VBA

Merci pour ton aide, mais j'ai finalement réussi à faire tourner la maccro.

Bonne Journée

 

Vote positif 0 Vote négatif