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