[Déplacé VB6 -- VBA] suppression lignes vides

Question

Bonjour, 

je débute avec vba et je souhaite réaliser une chose simple 

dans une feuille excel de données, je souhaiterais supprimer toutes les lignes entièrement vides (je garde donc les lignes qui ont au moins une cellule remplie)
j'ai généré le code suivant mais cela se révèle inefficace. avez-vous des pistes ? merci


[i]Sub suppr()

Dim dernière_ligne As Variant
Dim r As Variant

dernière_ligne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = dernière_ligne To 1 Step -1
      If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r


End Sub/i

qice · Answer

Salut,
Sub effac()

Dim derlign As Long
Dim cont As Long
Application.ScreenUpdating = False   

  With ActiveSheet.UsedRange
    derlign = .Cells(.Cells.Count).Row
  End With
  
  For cont = derlign To 1 Step -1
    If WorksheetFunction.CountA(Rows(cont)) = 0 Then
      Rows(cont).Delete
    End If
  Next cont
Application.ScreenUpdating = true
End Sub

[Déplacé VB6 --> VBA] suppression lignes vides

1 réponse

Votre réponse

Discussions similaires