Supprimer lignes selon critère

[kikim]

Bonjour le forum,

J'aimerai faire ceci par macro:

Dans la plage des lignes "11:65563" Si valeur cellule H ="0" de "H11:H655633" donc supprimé ligne.

exemple: si h20 = 0 donc supprimer la ligne 20

Crdt,

 

[kikim]

Re : Supprimer lignes selon critère

Re forum,

Cette macro marche bien mais avec toute la colonne H!
Comment definir H11 à H 65563 ?

Merci

Sub efface_vide()
Dim l As Long
For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Cells(l, "H").Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub

 

[Dull]

Re : Supprimer lignes selon critère

Salut kikim, le Forum

à tester

Sub efface_vide()
Dim l As Long
For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Cells(l, [COLOR=Red][B]8[/B][/COLOR]).Value = "" Then Cells(l, [B][COLOR=Red]8[/COLOR][/B]).EntireRow.Delete
Next l
End Sub

Bonne Journée

 

[kikim]

Re : Supprimer lignes selon critère

Re,

Merci Dull pour la réponse, me reste toujours à limité la selection sur H11:65563 au lieu Colonne H entierrement

Une idée?

 

[kikim]

Re : Supprimer lignes selon critère

Re
Impecable carcharodon-carcharias !
Sinceres remerciements !

crdt,

 

[alfrede]

Re : Supprimer lignes selon critère

bonjour,

J'ai un peu le même problème, je souhaiterais supprimer entièrement la ligne si une des celulles de la colonne A est supérieur à 600 000.

Quelqu'un peut il m'aider??

merci d'avance

 

[rodrigues89]

Re : Supprimer lignes selon critère

Sub efface_vide()
Dim l As Long
For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Cells(l, 1).Value > "600000" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub

Bonne journée

Exemple ci dessous