Petite Macro pour suppression de lignes

[DRILL]

Bonjour a tous,

J'aurai besoin d'une petite macro pour supprimer des lignes dans un fichier.
Fichier test joint
Nota je ne peux pas utiliser de fonction "filtre" car mon fichier fait plus de 35000 lignes, variable selon l'importation.

Le but est de supprimer les lignes ou les cellules de la colonne C "UM" sont vides.

Salutations
DRILL.

 

[DRILL]

Re : Petite Macro pour suppression de lignes

Bonsoir Carcharodon,

Bug sur ligne "For i = 2 To 65536"

Une idee?

Slts
DRILL

 

[Yaloo]

Re : Petite Macro pour suppression de lignes

Bonsoir Drill,

Peut être avec qq chose comme ça :

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+

 

[DRILL]

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

 

[DoubleZero]

Re : Petite Macro pour suppression de lignes

Bonsoir, le Fil, le Forum,

Une autre suggestion :

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 🙂 !

 

[DRILL]

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

 

[Yaloo]

Re : Petite Macro pour suppression de lignes

Re

Je suis arrivé à ça,

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+

 

[DRILL]

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

 

[DoubleZero]

Re : Petite Macro pour suppression de lignes

Re-bonsoir,

... Et comme ceci 🙂 ?

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

 

[DoubleZero]

Re : Petite Macro pour suppression de lignes

Re-re-bonsoir,

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

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

 

[DRILL]

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

 

[DoubleZero]

Re : Petite Macro pour suppression de lignes

Bonjour, le Fil, le Forum,

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

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

feuille vierge

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

Bonne journée 🙂.