GADENSEB
XLDnaute Impliqué
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é ?
Merci à tous
Seb
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é ?
Code:
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