Excel- VBA comment supprimer leslignes vides

Résolu
mod77 Messages postés 1284 Date d'inscription   Statut Membre Dernière intervention   -  
mod77 Messages postés 1284 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.
A voir également:

2 réponses

Réponse 1 / 2
g Messages postés 1265 Date d'inscription   Statut Membre Dernière intervention   577
 
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 1284 Date d'inscription   Statut Membre Dernière intervention   53
 
Merci beaucoup g,

Je n'y croyais plus !

Bonne soirée !
0