Discussion :

[Invité]

y'a t il une possibilité de rendre ce code plus rapide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Dim DerLigne As Integer
 
 Sheets("Feuil1").Activate
 
   DerLigne = Range("a" & Range("a:a").Rows.Count).End(xlUp).Row
 
 
   For n = DerLigne To 1 Step -1
    If Cells(n, 11).Value = "KO" Then
    Cells(n, 11).EntireRow.Delete
    End If
   Next n

[Trystan441]

Bonjour,

J'aurais fait de la manière suivante :

Un tri pour obtenir les cellules avec "KO"
Clearcontents des lignes visibles
tri ascendant des lignes restantes pour envoyer les lignes vides à la fin de ton tableau

[Invité]

Bonjour,

J'aurais fait de la manière suivante :

Un tri pour obtenir les cellules avec "KO"
Clearcontents des lignes visibles
tri ascendant des lignes restantes pour envoyer les lignes vides à la fin de ton tableau

[unparia]

Bonjour

Le code SVP

lequel des trois instructions qui t'ont été indiquées par Trystan441 ?
(mets-y un peu du tien, s'il te plait)

[LogiLogi]

Salut !

Met ce code en début de VBA :

Code :

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

1
2
3
4
5
 
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

Puis ceci en fin de VBA

Code :

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

1
2
3
4
5
 
 With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End with

[Trystan441]

L'enregistreur de macro te donnera tout ce dont tu as besoin pour réaliser ça !

Si tu as des questions sur la syntaxe, n'hésites pas,

[Invité]

Salut !

Met ce code en début de VBA :

Code :

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

1
2
3
4
5
 
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

Puis ceci en fin de VBA

Code :

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

1
2
3
4
5
 
 With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End with

[Trystan441]

Le morceau de code ci-dessous te permet de stopper le rafraîchissement d'image de ton classeur Excel (ScreenUpdating) ainsi que le calcul automatique (Calculation)
Place ce premier morceau juste après ton Sub. Ca va donc accélérer ta procédure.

Code :

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

1
2
3
4
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

Le code ci-dessous remettra au mode actif le rafraîchissement d'image ainsi que le calcul pour que tu puisses utiliser normalement ton classeur Excel.
Place ce second morceau juste avant ton End Sub

Code :

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

1
2
3
4
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With

[el_slapper]

Le Code de Trystan441 est un grand classique, et il permet d'éliminer toutes les pertes de performances liées aux mises à jour visibles lors de travail sur les données. C'est indispensable de mettre ce genre de choses partout (avec à chaque fois le début et la fin) dès qu'on travaille avec des quantités de données un peu importantes.

[MarcelG]

Bonjour à vous,

Salut El Slapper (cela faisait longtemps!)

Outre les remarques - judicieuses - qui précèdent.

D'un bloc et sans intervention annexe et/ou balayage.

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
Option Explicit
 
Sub Suppr_KO()
 
Dim dernl As Long
 
With Worksheets("Feuil1")
        dernl = .Cells(.Rows.Count, 1).End(xlUp).Row
        With .Range("A1:A" & dernl)
                .Replace What:="KO", Replacement:="", Lookat:=xlWhole
                .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        End With
End With
 
End Sub

Bon week-end à vous, et Bon week-end au Forum.