supprimer ligne vide

[sigma]

Bonjour à tous,

je voudrais simplement supprimer les lignes vides par macro. J'ai cherché dans le forum mais il y a toujours trop de conditions associées pour que mon niveau proche du néant puisse l'adapter...

Je voudrais que s'il n'y a pas de données en colonne B, excel efface ma ligne.
je vous joins un fichier.

bien à vous et merci.

 

[DoubleZero]

Re : supprimer ligne vide

Bonjour, sigma, le Forum,

Dans un module standard, comme ceci ?

Option Explicit
Sub Lignes_vides_supprimer()
    Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

A bientôt

P. S. : Bonjour, JHA

 

[JHA]

Re : supprimer ligne vide

Bonjour à tous,

Un essai avec un filtre élaboré en feuille 2

Edit: Bonjour Doublezero

JHA

 

[sigma]

Re : supprimer ligne vide

JHA, Double Zero,
merci de vos solutions, j'ai opté pour celle de DoubleZ mais il faudrai que la macro débute en ligne 14 pour être applicable de la 14 à la fin, c'est possible ?

merci
A+

 

[DoubleZero]

Re : supprimer ligne vide

Bonjour à toutes et à tous,

... que la macro débute en ligne 14... pour être applicable de la 14 à la fin, c'est possible ?

Oui, comme cela :

Option Explicit
Sub Lignes_vides_supprimer()
    [b14:b100000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

A bientôt

 

[sigma]

Re : supprimer ligne vide

super,
merci beaucoup.
A+

 

[sigma]

Re : supprimer ligne vide

re,
Je vous remercie de votr aide mais j'essaie de comprendre la ligne de code... j'imagine que le "(xlCellTypeBlanks)" veut dire "je choisis une cellule vide" ?, si j'ai raison quel serait le code pour par exemple choisir une cellule en gras ?

bien à vous,

 

[DoubleZero]

Re : supprimer ligne vide

Re-bonjour,

... j'imagine que le "(xlCellTypeBlanks)" veut dire "je choisis une cellule vide" ?..

Oui , c'est exactement cela.

... quel serait le code pour par exemple choisir une cellule en gras ?..

Celui-ci :

Option Explicit
Sub Lignes_police_supprimer()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "b").End(xlUp).Row To 14 Step -1
        If Range("b" & i).Font.Bold = True Then Rows(i).Delete
    Next i
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[sigma]

Re : supprimer ligne vide

ah oui, c'est déjà moins simple...

Merci.