Suppression de ligne vide

mutzik

XLDnaute Barbatruc

• 3 Septembre 2009

• #2

Re : Suppression de ligne vide

bonjour,

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

 

Vote positif 0 Vote négatif

J

joums

XLDnaute Occasionnel

• 3 Septembre 2009

• #3

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

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 3 Septembre 2009

• #4

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 ...

 

Vote positif 0 Vote négatif

J

joums

XLDnaute Occasionnel

• 3 Septembre 2009

• #5

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

 

Pièces jointes

• Classeurtest.xls

  14 KB · Affichages: 64
• Classeurtest.xls

  14 KB · Affichages: 66
• Classeurtest.xls

  14 KB · Affichages: 67

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 3 Septembre 2009

• #6

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

 

Pièces jointes

• Classeurtest(1).xls

  32.5 KB · Affichages: 92
• Classeurtest(1).xls

  32.5 KB · Affichages: 94
• Classeurtest(1).xls

  32.5 KB · Affichages: 95

Vote positif 0 Vote négatif

J

joums

XLDnaute Occasionnel

• 3 Septembre 2009

• #7

Re : Suppression de ligne vide

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

Code:

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 ?

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 3 Septembre 2009

• #8

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

 

Vote positif 0 Vote négatif

J

joums

XLDnaute Occasionnel

• 3 Septembre 2009

• #9

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 ?

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 4 Septembre 2009

• #10

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

 

Pièces jointes

• Classeurtest.xls

  96 KB · Affichages: 87
• Classeurtest.xls

  96 KB · Affichages: 94
• Classeurtest.xls

  96 KB · Affichages: 89

Vote positif 0 Vote négatif