Accélérer Macro

Private Sub CommandButton1_Click()
'TempsDepart = Timer
Application.ScreenUpdating = False
Dim i As Long, j As Long
Dim Cellule As Range
'afficher lignes
Rows("2:50000").EntireRow.Hidden = False
'supprimer couleur
Columns("K:K").Interior.Pattern = xlNone
'colorer les cellules et mas quer les lignes
coul = 6
Total = 0
For j = [F65536].End(xlUp).Row To 2 Step -1
If Cells(j, 6).Value = "K" Then
If Not Cells(j, 11).Value = "T" Then
Cells(j, 11).Select
With Selection.Interior
.ColorIndex = 6
Total = Total + 1
End With
Else
Rows(j).Hidden = True
End If
End If
Next
Range("A1").Select
'msg box avec le nombre d'erreurs
MsgBox "Il y a " & Total & " erreurs sur le service KMRT"

TempsFin = Timer
' Affiche le temps total en secondes
'MsgBox Format(TempsFin - TempsDepart, "0.0") & " Secondes"
'Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Re


Pourquoi conserver le Select 😕

Code:

If Not Cells(j, 11).Value = "T" Then
Cells(j, 11).Interior.ColorIndex = 6
Total = Total + 1

Cliquez pour agrandir...