Supprimer lignes vides

[Tanmafa]

Bonjour,
j'ai essayé plusieurs macros trouvées sur ce site mais cela ne fonctionne pas correctement.
Je souhaite supprimer les lignes vides, sans décaler les cellules.
Ici, vous trouverez un extrait de mon fichier qui contient 30 onglets et environ 1500 lignes par onglet.
Je préfère une macro qui fonctionne sur l'onglet où je me trouve.
Merci de votre aide !
Tanmafa

 

[job75]

Bonjour Tanmafa, bievenue sur XLD,

Ne pas supprimer les lignes "vides" mais se contenter de les masquer :

Sub MasquerLignesVides()
Application.ScreenUpdating = False
With ActiveSheet
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .UsedRange
        .Columns(1).Insert xlToRight 'colonne auxiliaire
        .Columns(0) = "=1/(COUNTIF(RC[1]:RC[" & .Columns.Count & "],""><"")+COUNT(RC[1]:RC[" & .Columns.Count & "])>0)"
        On Error Resume Next 'si aucune SpecialCell
        .Columns(0).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
        .Columns(0).Delete xlToLeft
    End With
End With
End Sub

A+

 

[Tanmafa]

Merci beaucoup, ça marche !!!
Je vais m'en servir pour tous mes fichiers.

 

[Tanmafa]

En fait les lignes masquées gênent le tri lancé par colonne. La zone de tri s'arrête à la première ligne vide masquée.
Une autre aide ?
d'avance Merci !
Tanmafa

 

[job75]

Je ne sais pas ce que vous voulez faire mais vous pouvez toujours essayer de remplacer :

.Columns(0).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True

par :

.Columns(0).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete

 

[Tanmafa]

Magic !!!
Et merci