XL 2021 supprimer les lignes vides de la ligne 8 à la dernière ligne vide

[Usine à gaz]

Bonjour à toutes et à tous,

Voilà une question que je ne m'étais pas posée jusqu'à présent lol

"Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete"" supprime toutes les lignes colonne "A" vide.

Mais est-il possible de supprimer les lignes colonne "A" vide à partir d'une ligne ?
Par exemple, dans le petit fichier test joint, je voudrais supprimer les lignes colonne "A" vide à partir de la ligne 8 jusqu'à la dernière ligne.

Pas certain que ce soit possible.
Jusqu'à maintenant, je n'ai pas trouvé...
Merci pour vos retours...

 

[Usine à gaz]

Salut,

C'est un tantinet ambiguë, tu veux supprimer les lignes vide que de la colonne B ou bien supprimer les lignes entières si c'est vide en colonne B

"

tu veux supprimer les lignes vide que de la colonne B ou bien supprimer les lignes entières si c'est vide en colonne B"

Je voudrais : supprimer les lignes entières si c'est vide en colonne B

 

[Lolote83]

Re.
Ma macro du post#12 n'est elle pas OK ?
@+ Lolote83

 

[Usine à gaz]

Re.
Ma macro du post#12 n'est elle pas OK ?
@+ Lolote83

Oui elle fonctionne
Merci Lolote83

 

[Valtrase]

Donc du coup une procédure qui fait les deux :

Sub SupprimeLigne(cColumn As Range, Start As Long, Optional EntireRow As Boolean = True)
    Set cColumn = cColumn.Cells(Start).Resize(Cells(Rows.Count, cColumn.Column).End(xlUp).Row - (Start + 1))
    Debug.Print cColumn.Address
    If WorksheetFunction.CountBlank(cColumn) > 0 Then
        Select Case EntireRow
            Case True
                cColumn.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
            Case False
                cColumn.SpecialCells(xlCellTypeBlanks).Delete (xlUp)
        End Select
    End If
End Sub

et pour l'appel :

SupprimeLigne range("B:B"),4

 

[Usine à gaz]

Re-Bjr Valtrase
C'est bon aussi.
Je te remercie

 

[bsalv]

bonjour le fil,

    Range("A" & xPreLig & ":A" & xDerlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

dans le temps, il y avait le problème que s'il y a +16.000 de areas, que ce code ne fonctionnait pas. Peut-être on résolu cela ???
Donc, le cas où il y a >2^14 blocs contigus à supprimer >>> erreur. Alors, il faut le faire en plusieurs étapes.