Supprimer ligne si cellule vide

sev · 30 Avril 2009

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 · 30 Avril 2009

Re : Supprimer ligne si cellule vide

bonjour sev,

voici un code :

Code:

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

a+

sev · 30 Avril 2009

Re : Supprimer ligne si cellule vide

Merci c'est OK

vbacrumble · 30 Avril 2009

Re : Supprimer ligne si cellule vide

Bonjour

Une autre méthode

Code:

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

ou si on ne connait la fin du tableau

Code:

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

Supprimer ligne si cellule vide

sev

Guest

Pièces jointes

mromain

XLDnaute Barbatruc

sev

Guest

vbacrumble

XLDnaute Accro

Discussions similaires

Supprimer ligne si cellule vide

sev

Guest

Pièces jointes

mromain

XLDnaute Barbatruc

sev

Guest

vbacrumble

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency