XL 2013 Mod 2 - une ligne sur deux lent sur 15000 lignes

[GADENSEB]

Bonjour,
Voici un fichier exemple (dans l'original il y a 15000 lignes)
Mon code est lent pour ce volume

Est-ce qu'il peut être amélioré ?

Sub Couleur()

For Each C In Range("A2:T" & Range("A65536").End(xlUp).Row)
If C.Row Mod 2 Then
C.Interior.ColorIndex = 15
Else
C.Interior.ColorIndex = xlNone
End If
Next

End Sub

Merci à tous

Seb

 

[pierrejean]

Bonjour GADENSEB

Macro a tester
NB A mettre de préférence dans un module

Sub test()
debut = Timer
  Cells.Interior.ColorIndex = xlNone
Dim zone As Range
For n = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 If n Mod 2 = 0 Then
  If Not zone Is Nothing Then
     Set zone = Application.Union(zone, Range("A" & n & ":" & "T" & n))
  Else
     Set zone = Range("A" & n & ":" & "T" & n)
  End If
End If
Next
zone.Interior.ColorIndex = 15
MsgBox (Timer - debut)
End Sub

 

[job75]

Bonjour GADENSEB, Pierre,

@ Pierre, Union pédale dans la choucroute si le nombre de plages disjointes traitées dépasse quelques centaines.

Ceci est rapide :

Sub Couleur()
Application.ScreenUpdating = False
With Range("A1:T" & Cells(Rows.Count, 1).End(xlUp).Row)
  .Columns(1).Insert xlToRight
  .Columns(0) = "=1/MOD(ROW(),2)"
  Intersect(.Columns(0).SpecialCells(xlCellTypeFormulas, 16).EntireRow, .Cells).Interior.ColorIndex = 15
  .Columns(0).Delete xlToLeft
End With
End Sub

Mais le plus rapide consiste à appliquer la couleur par MFC, c'est très classique.

A+