Petite Macro pour suppression de lignes

D

DRILL

XLDnaute Occasionnel

• 28 Juin 2011

• #2

Re : Petite Macro pour suppression de lignes

Bonsoir Carcharodon,

Bug sur ligne "For i = 2 To 65536"

Une idee?

Slts
DRILL

 

Dernière édition: 28 Juin 2011

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 28 Juin 2011

• #3

Re : Petite Macro pour suppression de lignes

Bonsoir Drill,

Peut être avec qq chose comme ça :

Code:

Sub Sup_Ligne()
Dim Ligne As Integer
For Ligne = [H65536].End(xlUp).Row To 2 Step -1
  If Cells(Ligne, 3) = "" Then
    Rows(Ligne).EntireRow.Delete
  End If
Next Ligne
End Sub

A+

 

Dernière édition: 28 Juin 2011

Vote positif 0 Vote négatif

D

DRILL

XLDnaute Occasionnel

• 28 Juin 2011

• #4

Re : Petite Macro pour suppression de lignes

Bonsoir Yaloo,

Le code marche impec sur le fichier test, mais quand je le passe sur mon fichier de 37000 lignes ca bug.

Le debug me pointe une error 6 sur la ligne suivante

For Ligne = [H65536].End(xlUp).Row To 2 Step -1

Slts
DRILL

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 28 Juin 2011

• #5

Re : Petite Macro pour suppression de lignes

Bonsoir, le Fil, le Forum,

Une autre suggestion :

Code:

Sub Ligne_supprimer_si()
Application.ScreenUpdating = False
lastrow = Range("A65536").End(xlUp).Row + 1
For i = lastrow - 1 To 2 Step -1
    If Range("C" & i) = "" Then Rows(i).Delete Shift:=xlUp
Next i
Application.ScreenUpdating = True
End Sub

Bon dodo 🙂 !

 

Vote positif 0 Vote négatif

D

DRILL

XLDnaute Occasionnel

• 28 Juin 2011

• #6

Re : Petite Macro pour suppression de lignes

Bonsoir DoubleZero,

Code impec, ca marche sur mon fichier de 37K lignes... Ca mouline pas mal mais le resultat est bon.

Grand Merci a vous tous.
SLts
DRILL

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 28 Juin 2011

• #7

Re : Petite Macro pour suppression de lignes

Re

Je suis arrivé à ça,

Code:

Sub Sup_Ligne()
Application.ScreenUpdating = False
 Dim Ligne As Long
 For Ligne = [H65536].End(xlUp).Row To 2 Step -1
   If Cells(Ligne, 3) = "" Then
     Rows(Ligne).EntireRow.Delete
   End If
 Next Ligne
Application.ScreenUpdating = True
End Sub

A+

 

Vote positif 0 Vote négatif

D

DRILL

XLDnaute Occasionnel

• 28 Juin 2011

• #8

Re : Petite Macro pour suppression de lignes

Yaloo,

Code impec itoo,

Je n'ai pas fais de chrono entre les deux... mais il me semble que le code de yaloo arrive en tete avec quelques secondes de moins.

Slts
DRILL

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 28 Juin 2011

• #9

Re : Petite Macro pour suppression de lignes

Re-bonsoir,

... Et comme ceci 🙂 ?

Code:

Sub Ligne_supprimer_si___()
    Columns("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 28 Juin 2011

• #10

Re : Petite Macro pour suppression de lignes

Re-re-bonsoir,

... Ou, plutôt, comme ceci 😕 ?

Code:

Sub Ligne_supprimer_si___()
    Application.ScreenUpdating = False
    Columns("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

D

DRILL

XLDnaute Occasionnel

• 28 Juin 2011

• #11

Re : Petite Macro pour suppression de lignes

Doublezero,

Interressant ce code... le probleme c'est que quand je le lance ... je me retrouve avec une feuille vierge.
Radicale pour supprimer les lignes.
🙂

Slts
Drill

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 28 Juin 2011

• #12

Re : Petite Macro pour suppression de lignes

Bonjour, le Fil, le Forum,

DRILL à dit:

... je me retrouve avec une feuille vierge...Radicale pour supprimer les lignes.

Cliquez pour agrandir...

Cette "mésaventure" ne s'est pas produite lorsque j'ai testé le code sur le fichier initial.

feuille vierge

Cliquez pour agrandir...

Je n'en comprends hélas pas la raison 😕 !

Bonne journée 🙂.

 

Vote positif 0 Vote négatif