Supprimer des lignes rapidement en VBA

[MJ13]

Bonjour à tous

J'ai des fichiers d'extraction de 1000 à 200 000 lignes avec une centaine de lignes maximum à supprimer qui sont après la colonnes 5.

Comment le faire rapidement en VBA 😕.

Merci d'avance 🙂.

 

[Papou-net]

Re : Supprimer des lignes rapidement en VBA

Bonjour Michel,

Etonnant de ta part une question aussi simple et aussi floue (ou alors, je ne l'ai pas comprise) ?

Je pense que tu veux supprimer les cellules à droite de la colonne 5 au lieu des lignes.

Une petite suggestion, si tu ne peux joindre un fichier type : enregistrer une macro puis la condenser.

Sinon, un exemple serait bienvenu.

Cordialement.

 

[MJ13]

Re : Supprimer des lignes rapidement en VBA

Bonjour Papou

Je pense que tu veux supprimer les cellules à droite de la colonne 5 au lieu des lignes.

Merci pour ta réponse 🙂. Mais non, je veux supprimer toutes lignes qui ont des données après la colonne 5.

 

[Pierrot93]

Re : Supprimer des lignes rapidement en VBA

Bonjour Michel🙂, Papou

pas forcement tout compris non plus... essaye peut être un filtre auto sur la colonne S...

bonner journée
@+

 

[Efgé]

Re : Supprimer des lignes rapidement en VBA

Bonjour MJ13 🙂, Papou-net 🙂, Pierrot93 🙂
Si j'ai bien compris, ce qui n'est pas certain

Sub Test()
Dim R As Range
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Cells(i, Columns.Count).End(xlToLeft).Column > 5 Then _
    Set R = Union(Rows(i), IIf(R Is Nothing, Rows(i), R))
Next i
If Not R Is Nothing Then
    Application.ScreenUpdating = False
    R.Delete
    Application.ScreenUpdating = True
End If
End Sub

Cordialement

 

[mikachu]

Re : Supprimer des lignes rapidement en VBA

Bonjour tout le monde,

Si j'ai bien compris ça pourrait être un truc du genre de ça:

Sub supligne()

For i = Feuil1.Rows.Count To 1 Step -1
If Cells(i, 256).End(xlToLeft).Column > 5 Then Cells(i, 1).EntireRow.Delete

Next i

End Sub

 

[MJ13]

Re : Supprimer des lignes rapidement en VBA

Bonjour Pierrot, Efgé, Mikachu

Désolé, mais je pensais que c'était clair comme question 😱.

Merci pour vos réponses 🙂. Après test sur 240 000 lignes, avec le code de Efgé, j'obtiens 1,7 seconde et avec celui de Mikachu 6.5 secondes. Je vais m'orienter dans mon cas vers le code de Efgé.

Encore merci et bon Week-end 🙂.