Supprimer lignes selon critère

K

kikim

Guest

• 19 Décembre 2009

• #2

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 19 Décembre 2009

• #3

Re : Supprimer lignes selon critère

Salut kikim, le Forum

à tester

Code:

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

 

Vote positif 0 Vote négatif

K

kikim

Guest

• 19 Décembre 2009

• #4

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?

 

Vote positif 0 Vote négatif

K

kikim

Guest

• 19 Décembre 2009

• #5

Re : Supprimer lignes selon critère

Re
Impecable carcharodon-carcharias !
Sinceres remerciements !

crdt,

 

Vote positif 0 Vote négatif

A

alfrede

Guest

• 12 Mai 2011

• #6

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

 

Vote positif 0 Vote négatif

R

rodrigues89

Guest

• 13 Mai 2011

• #7

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

 

Pièces jointes

• efface si sup.xlsm

  15.4 KB · Affichages: 214

Dernière modification par un modérateur: 13 Mai 2011

Vote positif 0 Vote négatif