Détruit ligne si col G vide ...lent

ChTi160

XLDnaute Barbatruc

• 3 Février 2006

• #2

Salut Temjeh
bonjour José
je pense que tu peux via l'enregistreur de macro utiliser edition atteindre la tu choisis cellules et cellules vides et ensuite tu fais un truc du genre Sélection.entireRow.delete
tu m'excuse mais je suis a la bourre et je vais au boulot je regarderai ce soir si personne n'a résolu ton problème
un exemple avec la colonne A plage A1:A15
Sub deleteV1()
'
' deleteV1 Macro
' Macro enregistrée le 03/02/2006 par Jean Marie
Range('A1:A15').Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
End Sub

bonne journée

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 3 Février 2006

• #3

Merci de te mettre sur mon dossier

Non je gagne pas plus de vitesse avec Byte.

Mes lignes son variables le 222 est que je voulais ne pas lui mettre pour col G au complet. Je ne sais pas si je lui met dans le code aulieu de 222 last cell de col A un genre de:

For i = Range('A65536').End(xlUp).select To 1 Step -1
If Range('g' & i) = '' Then Rows(i).Delete
Next i

Car pour 30 lignes il prend 15 seconde a deleter les lignes

Merci

Temjeh

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 3 Février 2006

• #4

Merci ChTi, jmps

Pour ta formule jmps i y a bug sur:

For i = Range('G65536').End(xlUp).Row To 1 Step -1

Merci

Temjeh

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 3 Février 2006

• #5

Non ca va

J'avais laisser le Byte aulieu du Long

Je gane un peu mais si j'ai 100 ligne alors c'est aussi long

Merci

Je reste à l'écoute

Temjeh

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 3 Février 2006

• #6

Oui merci beaucoup

Effectivement ca va plus vite

J,ai fermé mon classeur et réouvert(j'avais trop jouer avec)

Merci

Sans abusé j,ai aussi un message perdu plus bas de la sem dernière si tu as une idée

Lien supprimé

Temjeh

 

Vote positif 0 Vote négatif

G

GIBI

Guest

• 3 Février 2006

• #7

Bonjour,

je dirais même plus

Dim I as as Integer ' mais ça ne fera pas grande diff

Application.ScreenUpdating = False
For i = Range('A65536').End(xlUp).Row To 1 Step -1
If cells(I).value = '' Then Rows(i).Delete
Next i
Application.ScreenUpdating = True

cells(I).value (cela évite la concaténation ('g' & i) )

Bon courage

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 3 Février 2006

• #8

Merci GIBI j'examine ca

Temjeh

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 12 Février 2006

• #9

Bonjour

Attention, le delete d'une cellule ou d'une ligne provoque l'événement de Calculate. il faut neutralise cet événement.

Code:

Application.ScreenUpdating = False
Application.EnableEvents = False
For i = Range('A65536').End(xlUp).Row To 1 Step -1
If cells(I).value = '' Then Rows(i).Delete
Next i
Application.EnableEvents = True
Application.ScreenUpdating = True

@+Jean-Marie

 

Vote positif 0 Vote négatif

O

omahenry

XLDnaute Nouveau

• 26 Décembre 2008

• #10

Re : Détruit ligne si col G vide ...lent

Sur des feuilles de quelques milliers de lignes, avec ce genre de travail en supprimant beaucoup de lignes, j'ai cru observer que chaque suppression de ligne provoque la recopie de TOUT ce qui suit. Je gagne un temps ENORME si, au lieu de DETRUIRE certaines lignes, je crée une nouvelle feuille dans laquelle je COPIE les autres lignes (celles que je veux garder), puis je détruis la feuille d'origine et je renomme la nouvelle feuille [sheets("provisoire").name="nomDorigine"].

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 26 Décembre 2008

• #11

Re : Détruit ligne si col G vide ...lent

Bonsoir omahenry et Bienvenue sur XLD,

Pas suivi ce fil, donc...

Mais quelle est ta question ?

Bonne soirée.

Jean-Pierre

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 26 Décembre 2008

• #12

Re : Détruit ligne si col G vide ...lent

Bonsoir à tous,

Pour moi, si tu veux supprimer toutes les lignes dans lesquelles la valeur de G est nulle, le plus simple est de tout regrouper à la fin en faisant un tri sur la colonne G.

Ensuite tu calcules les lignes de début et de fin des cellules vides en G puis tu supprimes le range d'un seul coup.

Enfin tu retries sur la colonne A pour reclasser tes valeurs.

Ce qui donne:

Code:

Sub suplignes()
Dim Derlig As Long, Ligsup As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Columns("A:H").Select
Selection.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Derlig = Range("A65536").End(xlUp).Row
Ligsup = Range("G65536").End(xlUp).Row + 1
Range("G" & Ligsup & ":G" & Derlig).EntireRow.Delete
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

@+

Gael

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 26 Décembre 2008

• #13

Re : Détruit ligne si col G vide ...lent

Bonsoir,

Euh, vous avez regardé, les dates des fils en question????

Notre ami "omahenry" remonte des fils de 2006....

Je pense que la personne qui en avait besoin a dû trouver son bonheur, depuis le temps......

Bonne soirée

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 26 Décembre 2008

• #14

Re : Détruit ligne si col G vide ...lent

Re,

Oui, vu la date d'origine...

Pas bien compris non plus, mais bon......

Bonsoir tous.

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 26 Décembre 2008

• #15

Re : Détruit ligne si col G vide ...lent

Bonsoir à tous,

Absolument pas fait attention à la date. J'espère que le problème a été résolu depuis. 🙂

@+

Gael

 

Vote positif 0 Vote négatif