Bonjour le forum,
Voilà, je pense que tout est dans le titre : je cherche une macro me permettant de supprimer toutes les lignes qui sont entièrement vides dans mon tableau et uniquement celles-là ! Le but est de ne plus laisser de lignes vides pour créer des plages dynamiques avec la fonction DECALER.
J'ai essayé deux macros, mais soit certaines lignes sont oubliées, soit la macro ne fait rien du tout :
Le fichier test que je vous joins n'est qu'un tout petit exemple. Le fichier réel fait près de 2500 lignes. Il faudrait donc que la macro soit la plus légère possible pour pouvoir s'exécuter rapidement. Pour information, dans le fichier test, comme dans le réel, seules les colonnes A à G sont susceptibles d'être remplies.
Si quelqu'un pouvait m'aider, ce serait vraiment très bien.
Merci d'avance.
Cordialement.
Voilà, je pense que tout est dans le titre : je cherche une macro me permettant de supprimer toutes les lignes qui sont entièrement vides dans mon tableau et uniquement celles-là ! Le but est de ne plus laisser de lignes vides pour créer des plages dynamiques avec la fonction DECALER.
J'ai essayé deux macros, mais soit certaines lignes sont oubliées, soit la macro ne fait rien du tout :
Code:
Sub SupprimerLignesVides()
Dim c As Long
Dim vLigne As Long
vDernièreligne = Sheets(Sheets.Count).UsedRange.Rows.Count
Application.ScreenUpdating = False
For vLigne = vDernièreligne To 1 Step -1
If Application.CountA(Rows(vLigne)) = 0 Then Rows(vLigne).Delete
Next
End Sub
Code:
'Sub Supprimer_les_lignes_vides()
'Sheets(Sheets.Count).Range("A1:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
'End Sub
Le fichier test que je vous joins n'est qu'un tout petit exemple. Le fichier réel fait près de 2500 lignes. Il faudrait donc que la macro soit la plus légère possible pour pouvoir s'exécuter rapidement. Pour information, dans le fichier test, comme dans le réel, seules les colonnes A à G sont susceptibles d'être remplies.
Si quelqu'un pouvait m'aider, ce serait vraiment très bien.
Merci d'avance.
Cordialement.