Suppression de ligne vide

[joums]

Bonjour,

Je cherche à supprimer les lignes vides.
J'ai trouvé sur le net pas de choses, cependant les macros sont tres tres longues.
Je voudrais alors limiter la plage de ligne => par exemple ligne 1 à 1000

Comment dois-je faire ?
Merci de votre aide

 

[mutzik]

Re : Suppression de ligne vide

bonjour,

selectionnes les lignes de 1 à 1000, click droit / supprimer

 

[joums]

Re : Suppression de ligne vide

J'ai du mal formuler ma question
Dans un fichier de 1000 lignes je souhaite supprimer certaines d'entres elles qui sont vides

 

[mutzik]

Re : Suppression de ligne vide

re,
bien entendu, j'avais compris cela. Ce que je voulais TE faire comprendre, c'est que :
1. ce sujet a été traité moultes fois sur le forum (voir tout en bas, sujet similaires ...)
2. au minimum, faut nous joindre un bout de ton fichier ...

 

[joums]

Re : Suppression de ligne vide

Oui, désolé de vous embêtez, j'ai bien chercher avant de poster (pas assez apparement)

je vous envoi un fichier en exemple et je continue de chercher en attendant
merci

 

[mutzik]

Re : Suppression de ligne vide

re, tu n'embètes personne, c'est juste moi qui ai l'esprit un peu taquin, aujourd'hui

voir fichier joint et executer la macro

 

[joums]

Re : Suppression de ligne vide

merci pour ta contribution,
j'ai repris une macro qui marche mais qui est tres lente

derniereligne = ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For d = derniereligne To 1 Step -1
        If Application.CountA(Rows(d)) = Empty Then Rows(d).Delete
    Next d

Ta macro marche également mais lentement, je pense qu'on mon Pc ou du moins le nombre de fichier ouvert doit jouer dans l'éxécution de la macro
pourrais tu m'expliquer ton code ?

 

[mutzik]

Re : Suppression de ligne vide

si tu as beaucoup de formules sur ta feuille/classeur, excel va recalculer toutes les formules à chaque suppression
- passes en calcul manuel, executes la macro, cela ira beaucoup plus vite

 

[joums]

Re : Suppression de ligne vide

Effectivement c'est beaucoup plus rapide

Et dans le cas où je veux faire que la suppression des lignes situées dans la zone (A1:A15000) que dois je remplacer dans ta macro ?

 

[mutzik]

Re : Suppression de ligne vide

re,

voici une version améliorée
si tu veux de 1 à 15000, tu changes :
1.
lig = Range("A65000").End(xlUp).Row
par 'lig = Range("A65000").End(xlUp).Row (en mettant la petite quote devant le code, ce qui fait que la ligne n'est plus prise en compte - elle passe en vert)
2.
For cpt = lig To 1 Step -1
à remplacer par
For cpt = 15000 To 1 Step -1
voili,

sinon :
- le calcul passe en manuel automatiquement et en automatique à la fin de la macro
- l'affichage est désactivé jusqu'à la fin du traitement

nb: avé la fichier c mieux