Discussion :

[manutazounet]

Bonsoir à toutes et tous,

J'ai un code qui fonctionne, elle sert à supprimer toute les lignes ou il y a des lettres dans une colonne spécifique. Sauf que cela met un temps fou à s'exécuter. Je ne vois pas comment améliorer cela. Si vous avez des idées ou pistes je suis preneur. Merci

Le code :

Sub SUPPRIMERLIGNE()
Dim i As Integer
Sheets("ACTIVITE JOUR").Select
For i = 3 To Range("C9000").End(xlUp).Row

If Not IsNumeric(Cells(i, 3)) Then
Rows(i).Delete
i = i - 1
End If

Next i

End Sub

[E KERGRESSE]

Bonjour,

Une proposition en neutralisant le calcul et le rafraichissement de l'écran :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub SUPPRIMERLIGNE()
 
Dim I As Long
Dim HeureDebut
 
    HeureDebut = Timer
 
    With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
    End With
 
    With Sheets("ACTIVITE JOUR")
         For I = .Range("C9000").End(xlUp).Row To 3 Step -1
             If Not IsNumeric(.Cells(I, 3)) Then .Rows(I).Delete
         Next I
    End With
 
    With Application
         .ScreenUpdating = True
         .Calculation = xlCalculationAutomatic
    End With
 
    Debug.Print Round(Timer - HeureDebut, 0) & " seconde(s)"
 
End Sub

[EricDgn]

et si ce n'est pas encore assez rapide, une autre méthode expliquée dans ce post: delete-rows-from-table-macro-based-on-criteria. Traduction:

Sur des ensembles de données volumineux comme celui-ci, je préfère utiliser des tableaux plutôt que de supprimer des lignes. Le concept est assez simple : vous chargez les valeurs de vos cellules cibles dans un tableau (Data), puis vous créez un deuxième tableau vide de même taille (NewData). Ensuite, vous parcourez les données et copiez toutes les lignes de données que vous souhaitez conserver dans la ligne vide suivante de NewData. Enfin, vous remplacez les valeurs de la cellule cible par NewData, supprimant ainsi les lignes que vous ne souhaitez pas conserver.

mais cela devrait également être fait très rapidement en passant par PowerQuery.

[manutazounet]

Bonjour,

Une proposition en neutralisant le calcul et le rafraichissement de l'écran :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub SUPPRIMERLIGNE()
 
Dim I As Long
Dim HeureDebut
 
    HeureDebut = Timer
 
    With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
    End With
 
    With Sheets("ACTIVITE JOUR")
         For I = .Range("C9000").End(xlUp).Row To 3 Step -1
             If Not IsNumeric(.Cells(I, 3)) Then .Rows(I).Delete
         Next I
    End With
 
    With Application
         .ScreenUpdating = True
         .Calculation = xlCalculationAutomatic
    End With
 
    Debug.Print Round(Timer - HeureDebut, 0) & " seconde(s)"
 
End Sub

Je ne comprends pas ton "Timer" tu peux m'expliquer stp?

[E KERGRESSE]

C'est juste pour contrôler le temps de traitement, sinon il n'est pas utile.
Le Debug.Print permet de faire apparaître la valeur dans la fenêtre exécution (Ctrl-G) dans l'éditeur VBA.

[EricDgn]

Les instructions utilisant Timer n'ont pas vraiment d'utilité et peuvent être supprimées. Elles sont juste là pour indiquer le temps qu'il a fallu à la routine pour s'exécuter.

[manutazounet]

Bonjour,

Une proposition en neutralisant le calcul et le rafraichissement de l'écran :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub SUPPRIMERLIGNE()
 
Dim I As Long
Dim HeureDebut
 
    HeureDebut = Timer
 
    With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
    End With
 
    With Sheets("ACTIVITE JOUR")
         For I = .Range("C9000").End(xlUp).Row To 3 Step -1
             If Not IsNumeric(.Cells(I, 3)) Then .Rows(I).Delete
         Next I
    End With
 
    With Application
         .ScreenUpdating = True
         .Calculation = xlCalculationAutomatic
    End With
 
    Debug.Print Round(Timer - HeureDebut, 0) & " seconde(s)"
 
End Sub

Merci cela fonctionne déja plus rapidement que mon code. Je vais essayer aussi avecPowerQUery, que je ne connais pas du tout, voir si je peux encore améliorer la vitesse.

[tototiti2008]

Bonjour,

à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Test()
Dim Lig As Long
    With Application
             .ScreenUpdating = False
             .Calculation = xlCalculationManual
    End With
    With Sheets("ACTIVITE JOUR")
        Lig = .Range("C" & Rows.Count).End(xlUp).Row
        .Activate
        .Range("C3:C" & Lig).Select
        Selection.SpecialCells(xlCellTypeConstants, 22).Select
        Selection.EntireRow.Delete
    End With
    With Application
             .ScreenUpdating = True
             .Calculation = xlCalculationAutomatic
    End With
End Sub

Si la colonne C contient des formules, remplacer xlCellTypeConstants par xlCellTypeFormulas

[Thumb down]

Bonjour,

Il faut bannir de tes codes les select, sélection et autres activate !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.Range("C3:C" & Lig).SpecialCells(xlCellTypeConstants, 22).EntireRow.Delete

Sans avoir vérifié la véracité du code !