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

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

Lolote83 à dit:
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

Bonjour et merci Lolote83 🙂
Je regarde ça
🙂

Usine à gaz · 3 Mai 2023

Re-Bjr Lolote83 🙂

"Avec ce code, cela devrait le faire"
ça le fait très bien.
Merci à toi
🙂

Lolote83 · 3 Mai 2023

Re bonjour,
Je me suis aperçu que si la macro était lancée une première fois, cela fonctionnait. Du coup, plus de ligne vide entre celle du début et celle de fin.
Cependant, si on relance la macro, cela bugg
En rajoutant un simple "On Error Resume Next", plus de souci

VB:

Sub SupprimeLigne()
    On Error Resume Next
    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

Lolote83 à dit:
Re bonjour,
Je me suis aperçu que si la macro était lancée une première fois, cela fonctionnait. Du coup, plus de ligne vide entre celle du début et celle de fin.
Cependant, si on relance la macro, cela bugg
En rajoutant un simple "On Error Resume Next", plus de souci

VB:

Sub SupprimeLigne() On Error Resume Next 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

Merci Lolote 🙂
J'avais vu aussi et ajouté le On Error Resume Next
🙂

Valtrase · 3 Mai 2023

Salut le fil,
Je pense qu'il faut éviter de prendre l'habitude de balancer des Error Resume Next partout, surtout quand on peux l'éviter.
Ici, il suffit de tester si la colonne contient des vides

VB:

Sub SupprimeLigne()
    Dim xPreLig As Long
    xPreLig = 9                                 'Première ligne

    Dim xDerlig As Long
    xDerlig = Range("A65000").End(xlUp).Row     'Dernière ligne
    
    Dim TestingRange As Range
    Set TestingRange = Range("A" & xPreLig & ":A" & xDerlig)
    If WorksheetFunction.CountBlank(TestingRange) > 0 Then
        TestingRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
End Sub

Lolote83 · 3 Mai 2023

Bonjour @Valtrase

Je pense qu'il faut éviter de prendre l'habitude de balancer des Error Resume Next partout, surtout quand on peux l'éviter.

C'est vrai, mais pour un petit code comme celui-ci, je ne pense pas que cela génère beaucoup de problème pour la suite. Mais je reste d'accord avec toi sur le principe
@+ Lolote83

Usine à gaz · 3 Mai 2023

Re-Bjr Lolote83 🙂, Bjr Valtrase 🙂

Pour tester sur d'autres colonnes, Sur Colonne B par exemple,
J'ai remplacé les A par des B et .... ça fonctionne pas.

Vous auriez le code pour supprimer les lignes colonne "B" vide à partir de la ligne 8 jusqu'à la dernière ligne ?
Un grand merci à vous deux
🙂

Lolote83 · 3 Mai 2023

Re bonjour,
Si comme tu le dis, en remplaçant "A" par "B", cela devrait être OK. Par contre, si cela supprime bien les lignes vides de la colonne B (mais sans tenir compte - pas testé) que la colonne A soit vide ou non
Dis nous
@+ Lolote83

Usine à gaz · 3 Mai 2023

Lolote83 à dit:
Re bonjour,
Si comme tu le dis, en remplaçant "A" par "B", cela devrait être OK. Par contre, si cela supprime bien les lignes vides de la colonne B (mais sans tenir compte - pas testé) que la colonne A soit vide ou non
Dis nous
@+ Lolote83

OUI : pour tester j'ai tenté mais ça ne fonctionne pas = il ne supprime rien si je mets B à la place de A
🙂

Lolote83 · 3 Mai 2023

Re,
J'ai fait le test chez moi et cela supprime bien les lignes de la colonne B

VB:

Sub SupprimeLigneB()
    On Error Resume Next
    xPreLig = 9                                 'Première ligne
    xDerlig = Range("B65000").End(xlUp).Row     'Dernière ligne
    Range("B" & xPreLig & ":B" & xDerlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Mais si une ligne de la colonne A n'est pas vide et que B est vide, cela supprime bien la ligne en question
@+ Lolote83

Lolote83 · 3 Mai 2023

Re,
Par contre, si tu souhaites conservé les données de la colonne A et celle de la colonne B

Code:

Sub SupprimeLigneVide()
    Call RemonteLesDonnées("A")
End Sub

Sub RemonteLesDonnées(xCol)
    Application.ScreenUpdating = False
    xPreLig = 9                                     'Première ligne
    xDerLig = Range(xCol & "65000").End(xlUp).Row   'Dernière ligne
    For F = xDerLig To xPreLig Step -1
        If Cells(F, xCol) = Empty Then
            Cells(F, xCol).Delete Shift:=xlUp
        End If
    Next F
    Application.ScreenUpdating = True
End Sub

Lancer une première fois avec "A" puis "B" dans le code Call RemonteLesDonnées

En fait, on ne sais pas trop si tu souhaites ou pas conserver les données des colonnes précédemment testées
@+ Lolote83

Usine à gaz · 3 Mai 2023

Merci Lolote83 🙂

L'objet de mon #post1 (mon besoin) est bien de supprimer les lignes colonne "A" vide à partir de la ligne 8 jusqu'à la dernière ligne = c'est bon, ton code fonctionne bien.

L'objet de mon #post9 (test) est de supprimer les lignes colonne "B" vide à partir de la ligne 8 jusqu'à la dernière ligne ? sans tenir compte de la colonne A, c'est à dire si en A, c'est vide et pas en B, on garde la ligne
🙂

Valtrase · 3 Mai 2023

Salut,

L'objet de mon #post9 (test) est de supprimer les lignes colonne "B"

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

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Lolote83

Lolote83

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Valtrase

XLDnaute Occasionnel

Lolote83

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Valtrase

XLDnaute Occasionnel

Discussions similaires

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

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency