Discussion :

[ric009]

Bonjour,

J'expose mon problème :

J'ai un tableau dans lequel s'exécute de nombreuse macro pour couper les bout de tableau inutile mais le problème et que cela laisse plein de ligne vide.
Je voudrais savoir comment supprimer une ligne si TOUTES les cellules sont vides, car j'ai des lignes où il peut y avoir une seul valeur et avec les différents codes que j'ai essayé ces lignes sont supprimés.

Merci par avance pour votre aide

[mercatog]

Exemple à adapter à ton cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    LastLig = .UsedRange.Rows.Count + .UsedRange.Row - 1
    For i = LastLig To 2 Step -1
        If Application.CountA(.Rows(i)) = 0 Then .Rows(i).Delete
    Next i
End With

[ric009]

Merciiiii !

Cela fonctionne parfaitement.

Serait-il possible d'avoir des commentaires pour ce fameux code ? Pour pouvoir comprendre comment il fonctionne ^^

Merci par avance !

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim LastLig As Long, i As Long
 
'Désactive la mise à jour affichage écran
Application.ScreenUpdating = False
With Worksheets("Feuil1") 'adapte le nom de ta feuille
    'dernière ligne remplie de la feuille
    LastLig = .UsedRange.Rows.Count + .UsedRange.Row - 1
    'on fait la boucle du bas en haut de la plage utilisée de ta feuille
    For i = LastLig To 2 Step -1
        'si la ligne est vide, on la supprime
        'CountA est l'équivalent de la fonction Excel NBVAL
        'Donc si le nombre de valeurs de la ligne i est nulle, on supprime cette ligne
        If Application.CountA(.Rows(i)) = 0 Then .Rows(i).Delete
    Next i
End With

[ric009]

Merci pour ton aide !
Bonne journée à toi