supprimer ligne vide

DoubleZero

XLDnaute Barbatruc

• 18 Décembre 2015

• #2

Re : supprimer ligne vide

Bonjour, sigma, le Forum,

Dans un module standard, comme ceci ?

Code:

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

A bientôt

P. S. : Bonjour, JHA

 

Dernière édition: 18 Décembre 2015

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 18 Décembre 2015

• #3

Re : supprimer ligne vide

Bonjour à tous,

Un essai avec un filtre élaboré en feuille 2

Edit: Bonjour Doublezero

JHA

 

Pièces jointes

• test (filtre élaboré).xlsx

  171.1 KB · Affichages: 28

Vote positif 0 Vote négatif

S

sigma

XLDnaute Occasionnel

• 21 Décembre 2015

• #4

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+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 21 Décembre 2015

• #5

Re : supprimer ligne vide

Bonjour à toutes et à tous,

sigma à dit:

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

Cliquez pour agrandir...

Oui, comme cela :

Code:

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

A bientôt

 

Vote positif 0 Vote négatif

S

sigma

XLDnaute Occasionnel

• 21 Décembre 2015

• #6

Re : supprimer ligne vide

super,
merci beaucoup.
A+

 

Vote positif 0 Vote négatif

S

sigma

XLDnaute Occasionnel

• 21 Décembre 2015

• #7

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,

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 21 Décembre 2015

• #8

Re : supprimer ligne vide

Re-bonjour,

sigma à dit:

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

Cliquez pour agrandir...

Oui , c'est exactement cela.

sigma à dit:

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

Cliquez pour agrandir...

Celui-ci :

Code:

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

 

Vote positif 0 Vote négatif

S

sigma

XLDnaute Occasionnel

• 21 Décembre 2015

• #9

Re : supprimer ligne vide

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

Merci.

 

Vote positif 0 Vote négatif