Excel- VBA comment supprimer leslignes vides
Résolu
mod77
Messages postés
1320
Date d'inscription
Statut
Membre
Dernière intervention
-
mod77 Messages postés 1320 Date d'inscription Statut Membre Dernière intervention -
mod77 Messages postés 1320 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans la Feuil2 en colonne "A", j'ai des phrases écrites sur des lignes différentes.
Ce qui fait qu'il y a plein de lignes vides entre chaque phrase.
J'aimerai qu'elles soient affichées les unes sous les autres sans lignes vides entre, dans la même colonne "A" de la Feuil2.
Quelqu'un peut_il me donner une formule pour arriver à ce résultat SVP ?
J'ai essayé avec ce code:
livide = Cells(Columns(1).Cells.Count, [“A”]).End(xlUp).Row + 1
Range(Cells(1, 1), Cells(1, livide)).Clear
mais ça marche pas.
Merci.
Dans la Feuil2 en colonne "A", j'ai des phrases écrites sur des lignes différentes.
Ce qui fait qu'il y a plein de lignes vides entre chaque phrase.
J'aimerai qu'elles soient affichées les unes sous les autres sans lignes vides entre, dans la même colonne "A" de la Feuil2.
Quelqu'un peut_il me donner une formule pour arriver à ce résultat SVP ?
J'ai essayé avec ce code:
livide = Cells(Columns(1).Cells.Count, [“A”]).End(xlUp).Row + 1
Range(Cells(1, 1), Cells(1, livide)).Clear
mais ça marche pas.
Merci.
Configuration: Windows XP Excel 2002 SP-2
2 réponses
-
Bonjour,
Pour supprimer les rangées vides :
Sub SupRanVid()
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Bonne soirée. -
Merci beaucoup g,
Je n'y croyais plus !
Bonne soirée !
