XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5

Usine à gaz · 20 Janvier 2024

Bonjour à toutes et à tous

Me revoilou pour un code que je n'arrive pas à faire correctement.
Dans mon fichier test joint : Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5

Pour l'instant, mes tentatives ne fontionnent pas bien.
Auriez-vous le bon code ?
Un grand merci à toutes et à tous
Je continue mes tentatives...

Phil69970 · 20 Janvier 2024

Bonjour Lionel

je te propose ce code

VB:

Sub Macro1()
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
Range("A5:M" & Derlig).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

Il te reste à l'associer avec un bouton par exemple mais cela tu sais le faire

Merci de ton retour

Phil69970 · 20 Janvier 2024

Bonjour Lionel

je te propose ce code

VB:

Sub Macro1()
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
Range("A5:M" & Derlig).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

Il te reste à l'associer avec un bouton par exemple mais cela tu sais le faire

Merci de ton retour

Phil69970 · 20 Janvier 2024

Lionel

Avec ce code amélioré je supprime que les cellules vides pas la ligne entière à confirmer que tu veux bien cela

VB:

Sub Macro1()
Dim Derlig&, c As Range
Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
For Each c In Worksheets("Feuil1").Range("A5:M" & Derlig).Cells
    If c = "" Then
        'on a trouvé au moins 1 cellule vide
        Worksheets("Feuil1").Range("A5:M" & Derlig).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
        Exit For
    End If
Next
End Sub

Usine à gaz · 20 Janvier 2024

Bonjour
Merci, c'est tout bon
De mon côté, j'avais trouvé avec ce code : Range("A5:z1000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Mais je préfère ton code...

Usine à gaz · 20 Janvier 2024

Phil69970 à dit:
Lionel

Avec ce code amélioré je supprime que les cellules vides pas la ligne entière à confirmer que tu veux bien cela

VB:

Sub Macro1() Dim Derlig&, c As Range Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row For Each c In Worksheets("Feuil1").Range("A5:M" & Derlig).Cells If c = "" Then 'on a trouvé au moins 1 cellule vide Worksheets("Feuil1").Range("A5:M" & Derlig).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp Exit For End If Next End Sub

C'est ton 1er code qui me convient car ce sont bien les lignes que je doit supprimer, pas uniquement les cellules.
Mais je le garde aussi, il pourra me servir.
Grand merci à toi.

Phil69970 · 20 Janvier 2024

Lionel

Attention
Mon 1er code Et le 2eme code ne supprime QUE les cellules vides

La différence entre mes 2 codes c'est que si il n'y a pas de cellules vides dans le 1er code le code plante

Si tu veux supprimer la ligne entière

Range("A5:M" & Derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlUp

Et seulement la cellules vide

Range("A5:M" & Derlig).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

Et dans l'exemple que tu as fait si on supprime la ligne entière des que l'on trouve une cellule vide alors il ne te reste plus qu'une page blanche !!

Usine à gaz · 20 Janvier 2024

Grâce à Phil
Voilà le fichier qui fonctionne...

XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Phil69970

Phil69970

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Discussions similaires