Sujet Précédent Sujet Suivant

Excel- VBA comment supprimer leslignes vides

Résolu/Fermé
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 - 21 févr. 2010 à 22:47
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 - 21 févr. 2010 à 23:01
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.
A voir également:

2 réponses

Réponse 1 / 2
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 575
21 févr. 2010 à 22:56
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.
0
Réponse 2 / 2
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
21 févr. 2010 à 23:01
Merci beaucoup g,

Je n'y croyais plus !

Bonne soirée !
0