Macro pour supprimer les lignes contenant des cellules vides

Bonjour à tous,

J'ai commencé la conception d'une macro me permettant de supprimer les lignes contenant des cellules vides dans une colonne,

Quand je réalise la manip à la main tout se passe bien, j'enregistre cette même manip en macro,

Mais quand je lance cette macro, celle-ci ne réalise pas la suppression des lignes,

Voici le code VBA de la macro (je n'ai aucune connaissance en VBA):

code macro

Et voilà ce que me fait la macro après exécution:

code macro2

Elle réalise bien la sélection des cellule vide mais pas la suppression des lignes correspondantes

Merci d'avance pour votre aide,

Cordialement,

C'est fait

Bonjour,

à tester,

Sub test()
rw = Cells(Rows.Count, "B").End(xlUp).Row
Range("B7:L" & rw).Sort key1:=Range("D7"), order1:=xlAscending, Header:=xlYes
Range("D8:D" & rw).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
rw = Cells(Rows.Count, "B").End(xlUp).Row
Range("B7:L" & rw).Sort key1:=Range("C7"), order1:=xlAscending, Header:=xlYes
End Sub

Merci pour ta réponse i20100,

J'ai pu créer une macro supprimant les lignes contenant une cellule vide :

Sub Ronde1Nuit()
'
' Ronde1Nuit Macro
'

'
    Range("C:D").Select
    Selection.Copy
    Sheets("Ronde1Nuit").Select
    Range("A1").Select
    ActiveSheet.Paste

    Worksheets("Ronde1Nuit").Range("A:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

    Sheets("Données brutes").Select
    Application.CutCopyMode = False

End Sub

Maintenant j'aimerais affiner celle-ci et supprimer les lignes dont certaines cellules sont vides (et non pas une seule), par exemple un tableau de 4 colonnes la première étant la date et les 3 autres contenant des valeurs:

si sur une ligne les 3 dernières cellules sont vides supprimer la ligne,

Auriez-vous des pistes pour réaliser ce traitement ?

Ci-joint mon fichier mis a jour

7excel-forum.xlsm (34.82 Ko)
Rechercher des sujets similaires à "macro supprimer lignes contenant vides"