Supprimer des lignes vides automatiquement

C

claire

Guest
bonjour à tous

J'ai un petit problème. En fait j'ai un tableau où il y a des données. Dans ce tableau il y a des lignes qui sont remplies et des lignes où il n'y a rien. Je voudrai donc supprimer les lignes ki ne comportent aucun renseignements.

Est ce que quelqu'un pourrait me dire comment il faut faire pour supprimer ces lignes automatiquement (en fait faire comprendre à excel que quand il n'y a pas de données dans une ligne il doit supprimer la ligne.)

Merci d'avance
 

excalibur

XLDnaute Impliqué
bonjour claire , le forum tu peus le faire par macro Sub SupprimeRow()
Dim DerLgn As Integer, Lgn As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With ActiveSheet
DerLgn = .Range('A65536').End(xlUp).Row
End With
For Lgn = DerLgn To 2 Step -1
If Cells(Lgn, 1).Value = '' Then
Cells(Lgn, 1).EntireRow.Select
Selection.EntireRow.Delete Shift:=xlUp
End If
Next
Application.Calculation = xlCalculationAutomatic
[a1].Select
End Sub ' salutations
 

Hervé

XLDnaute Barbatruc
Supporter XLD
Bonjour claire, excalibur

:)

excalibur, petites informations.

Tu n'es pas obligé de sélectionner une ligne pour pouvoir la supprimer.

Cells(Lgn, 1).EntireRow.Select
Selection.EntireRow.Delete Shift:=xlUp

pourrait avantageusement etre remplacé par : rows(Lgn).delete

le with activesheet est dans ce cas inutile, car derlgn = range.... (sans le . devant range, travaille obligatoirement sur la feuille active.

Enfin, tu forces le mode de calcul en début et en fin de macro, sans savoir qu'elle etait le paramètre choisi par l'utilisateur du classeur. je me permet de te conseiller de stocker d'abord ce parametre en début de macro.

para=application.calculation
Application.Calculation = xlCalculationManual

'ton traitement ici

Application.Calculation =para

Ne vois dans mon intervention que l'envie de renvoyer l'ascenseur.

salut
 

Discussions similaires

Statistiques des forums

Discussions
300 890
Messages
1 988 175
Membres
210 096
dernier inscrit
aidebatsi