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

Usine à gaz · 3 Mai 2023

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...

Lolote83 · 3 Mai 2023

Bonjour @Usine à gaz
Avec ce code, cela devrait le faire

VB:

Sub SupprimeLigne()
    xPreLig = 9                                 'Première ligne
    xDerlig = Range("A65000").End(xlUp).Row     'Dernière ligne
    Range("A" & xPreLig & ":A" & xDerlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

@+ Lolote83

Usine à gaz · 3 Mai 2023

Valtrase à dit:
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 · 3 Mai 2023

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

Usine à gaz · 3 Mai 2023

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

Oui elle fonctionne
Merci Lolote83

Valtrase · 3 Mai 2023

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

VB:

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 :

Code:

SupprimeLigne range("B:B"),4

Usine à gaz · 3 Mai 2023

Re-Bjr Valtrase

C'est bon aussi.
Je te remercie

bsalv · 3 Mai 2023

bonjour le fil,

Code:

    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.

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Lolote83

Usine à gaz

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Valtrase

XLDnaute Occasionnel

Usine à gaz

XLDnaute Barbatruc

bsalv

XLDnaute Occasionnel

Discussions similaires