Suppression rapide de lignes en VBA

Efgé

XLDnaute Barbatruc

• 28 Février 2013

• #16

Re : Suppression rapide de lignes en VBA

Bonjour à tous,J'avais édité mon post (des problèmes d'Explorer 8 m'emp^che régulière ment de mettre des < > )Donc la condition est:

VB:

If T(I, 8) < > "" Then

Regarde l'exemple joint, je ne garde que les lignes qui ont des données en colonne H, je supprime les données de la feuille et je dépose les nouvelles données sur la même feuille.Cordialement

 

Pièces jointes

• Synthèse(5).zip

  416.6 KB · Affichages: 97
• Synthèse(5).zip

  416.6 KB · Affichages: 76
• Synthèse(5).zip

  416.6 KB · Affichages: 83

Dernière édition: 28 Février 2013

Vote positif 0 Vote négatif

R

Risbal14

XLDnaute Nouveau

• 28 Février 2013

• #17

Re : Suppression rapide de lignes en VBA

Jim7963,

Ta macro fonctionne très bien.

Elle met moins d'une minute pour traiter les 7 000L.

Par contre elle met plus de 10 minutes pour traiter 50 000 L.

Les méthodes proposées par TRI mettent moins d'une minute pour traiter le même nombre de lignes.

La méthode d'Efgé semble la plus fonctionnelle puisqu'elle permet de conserver la mise en forme du fichier et de traiter assez rapidement la suppression des lignes.

A suivre.

Boris.

 

Vote positif 0 Vote négatif

R

Risbal14

XLDnaute Nouveau

• 28 Février 2013

• #18

Re : Suppression rapide de lignes en VBA

OK, je teste dès que la macro de JIM7963 a fini de tourner.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Février 2013

• #19

Re : Suppression rapide de lignes en VBA

Re
J'ai modifié l'exemple de mon post précédent.
Cordialement

 

Vote positif 0 Vote négatif

R

Risbal14

XLDnaute Nouveau

• 28 Février 2013

• #20

Re : Suppression rapide de lignes en VBA

Efgé,

la macro a l'air de bien fonctionner.

Est-il possible de faire l'inverse pour les feuilles, à savoir :

-Onglet 1 : Données brutes : conserver les données d'origine sans modifications.

- Onglet 2 : Données traitées : avoir les données modifiées après suppression des lignes.

D'avance merci.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Février 2013

• #21

Re : Suppression rapide de lignes en VBA

Re
Comme ceci si tu as bien deux feuilles une "Données brutes" et une "Données Traitées"

VB:

Sub Test()
Dim I&, J&, K&, T As Variant
K = 1
With Sheets("Données brutes")
    T = .Range("A1:O" & .Cells(Rows.Count, 1).End(xlUp).Row)
    .Rows(1).Copy Sheets("Données Traitées").Range("A1")
End With
        
For I = 2 To UBound(T, 1)
    If T(I, 8) < > "" Then
            K = K + 1
            For J = 1 To UBound(T, 2)
                T(K, J) = T(I, J)
            Next J
    End If
Next I

With Sheets("Données Traitées")
    Application.ScreenUpdating = False
    .Columns(1).Resize(, UBound(T, 2)).ClearContents
    .Range("A1").Resize(K, UBound(T, 2)) = T
    .Columns.AutoFit
    Application.ScreenUpdating = True
End With
End Sub

Cordialement

 

Pièces jointes

• Synthèse(6).zip

  417.6 KB · Affichages: 45
• Synthèse(6).zip

  417.6 KB · Affichages: 36
• Synthèse(6).zip

  417.6 KB · Affichages: 29

Vote positif 0 Vote négatif

R

Risbal14

XLDnaute Nouveau

• 28 Février 2013

• #22

Re : Suppression rapide de lignes en VBA

Merci Efgé, merci à tous,

ça marche nickel.

Traitement effectué en quelques secondes pour plus de 50 000L

Bonne fin de journée.

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 28 Février 2013

• #23

Re : Suppression rapide de lignes en VBA

Bonsoir à tous,
@ Risbal14

Voici un exemple un peu plus long car j'ai placé un index que je supprime après pour avoir la classement d'origine et traiter plus de lignes.

ce code peut être amélioré.

Essayes et dis-nous

A+

René

 

Pièces jointes

• Copie de Copie de Macro synthèse globale-3.xlsm

  645.5 KB · Affichages: 32

Vote positif 0 Vote négatif