supprimer ligne vides entre la première ligne ecrite et la dernière

[reve24]

Bonjour à tous
je cherche une macro pour supprimer les lignes vides entre la première ligne ecrite et la dernière
voir fichier

Merci à tous d avance

 

[Staple1600]

Re : supprimer ligne vides entre la première ligne ecrite et la dernière

Bonjour

En effectuant un tri (Données/Trier)

Tu supprimes les lignes vides.

Ensuite en C2, mettre cette formule
=STXT(A2;2;3)*1
et faire une recopie vers le bas
puis trier sur cette colonne (tri croissant)

Le tout sans macro.... ou ensuite avec... grâce à l'enregistreur de macros.

EDITION: Bonjour Misange

 

[Misange]

Re : supprimer ligne vides entre la première ligne ecrite et la dernière

Bonjour

Si l'excellente suggestion du tri ne te convient pas tu peux toujours mettre ça dans ton classeur de macro perso et le relier à un bouton

Sub SuppLigneVides()
ModeRecalcul = Application.Calculation
' Réglage du recalcul sur mode manuel
Application.Calculation = xlCalculationManual
    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
Application.Calculation = ModeRecalcul
End Sub

 

[reve24]

Re : supprimer ligne vides entre la première ligne ecrite et la dernière

merci effectivement ta solution est celle qui repond à mes besoins
il est evident que je n aurais pas fait appel aux experts que vous etes pour effectuer un tri
merci genial

 

[Staple1600]

Re : supprimer ligne vides entre la première ligne ecrite et la dernière

Re


Le tri pourtant fait ce que tu souhaites...c'est juste un peu plus long 🙄

Tu as essayé au moins ?

Sinon un filtre automatique peut suffire aussi (avec comme critère: vide)
puis Édition/Supprimer la ligne

(toujours avec ou sans macro) (et la c'est juste un peu plus court)

 

[seghi0051]

Re : supprimer ligne vides entre la première ligne ecrite et la dernière

BOnjour,
j'ai un peu le meme soucis que reve24 sauf que moi je ne veux pas les supprimer.
Voilà mon probleme sur ma feuille facture (voire PJ) lorsque je mets mon n° de Clients ma facture se genère
toute seule mais le probleme c qu'il y a des blancs entre mes articles, par exemple entre le 1er et 4ème article qui ont été acheter
par le client numéros 1, il y auras deux lignes blanches entre ces deux articles(ce qui est tout a fait normal) donc est il possible d'effacer sans effacer ces lignes blanches.

Aidez moi svp,merci d'avance.

 

[Misange]

Re : supprimer ligne vides entre la première ligne ecrite et la dernière

Effacer sans effacer ? ou effacer sans supprimer ?
Pour effacer sans supprimer to remplace dans la macro
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
par
If Application.CountA(Rows(r)) = 0 Then Rows(r).ClearContents

 

[Staple1600]

Re : supprimer ligne vides entre la première ligne ecrite et la dernière

Bonjour

seghi0051
Il est d'usage de poser ses questions dans son propre fil de discussion.
Pas dans celui d'un autre ...
(voir la charte)