good57
XLDnaute Occasionnel
Bonjour à tous,
Voilà la macro qui me permet de supprimer les lignes vides sur la plage A7:AR500.
Mon problème est qu'elle ne fonctionne pas car même si certaines lignes sont vides, elle peuvent quand même contenir des formules.
Comment faire pour que ma macro supprime toutes ces lignes vides en ignorant la présence des formules.
Sub SupprimerLignesVides()
ActiveSheet.Range("A7:AR500").Select
derniereligne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For d = derniereligne To 1 Step -1
If Application.CountA(Rows(d)) = Empty Then Rows(d).Delete
Next d
Range("A1").Select
End Sub
Voilà la macro qui me permet de supprimer les lignes vides sur la plage A7:AR500.
Mon problème est qu'elle ne fonctionne pas car même si certaines lignes sont vides, elle peuvent quand même contenir des formules.
Comment faire pour que ma macro supprime toutes ces lignes vides en ignorant la présence des formules.
Sub SupprimerLignesVides()
ActiveSheet.Range("A7:AR500").Select
derniereligne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For d = derniereligne To 1 Step -1
If Application.CountA(Rows(d)) = Empty Then Rows(d).Delete
Next d
Range("A1").Select
End Sub