suppression de lignes vides

[Jean-Bernard]

Bonjour,
Dans un fichier que je triture avec des macros, je veux, entre 2 sous totaux, suprimer les lignes vides automatiquement,
qu'elle macro puis-je utiliser.
Merci

 

[ZON]

Salut à tous,

En utilisant la méthode specialcells, par exemple pour effacer les cellules vides de la colonne D

columns(4).cells.specialcells(xlcelltypeblanks).delete

sinon il faut être plus précis


A+++

 

[philippe]

Salut,

Imprécis quand aux références des sous-totaux (fixes ou aléatoires ?),
voici déja une méthode pour supprimer les lignes vides dans une plage.

Sub DetruireLigne()
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For R = DerniereLigne To 1 Step -1
If Application.CountA(Rows(R)) = 0 Then Rows(R).Delete
Next R
End Sub

Si tu n'arrives pas à l'adapter, donnes plus de précision, ou mets
un extrait de fichiers en piece jointes.

a+

 

[Jean-Bernard]

Bonjour philippe,
Impeccable, cela fonctionne à la perfection.
Merci beaucoup
A+