Supprimer ligne si cellule vide

[sev]

Bonjour, je vous soumet un petit problème :

Je voudrais supprimer les lignes des cellules de la colonne D qui ne contiennent pas de valeures pour le tableau D160😀250.

Ci joint un fichier

 

[mromain]

Re : Supprimer ligne si cellule vide

bonjour sev,

voici un code :

For i = 250 To 160 Step -1
    If Range("D" & i).Value = "" Then Rows(i).Delete
Next i

a+

 

[sev]

Re : Supprimer ligne si cellule vide

Merci c'est OK

 

[vbacrumble]

Re : Supprimer ligne si cellule vide

Bonjour


Une autre méthode

Sub suplig()
Range("D156:D250").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

ou si on ne connait la fin du tableau

Sub suplig()
Range("D156:D" & [D65536].End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub