Supprimer des lignes vides automatiquement

[claire]

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]

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é]

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

 

[excalibur]

bonjour herve , le forum je te remercie pour ces conseils tres futiles bonne journee

 

[excalibur]

rebonjour Herve le forum erratum dans mon post precedent il faillait lire UTILES & non FUTILES milles excuses encore Herve salutations