Bonjour
Sub triage2()
Dim ligne_deb As Byte, ligne_fin As Byte
Dim nbre_tri As Byte
Dim tri1 As Integer, clr1 As Integer
'Réaffiche les lignes masquées
Rows("10:5000").EntireRow.Hidden = False
ligne_deb = 10
ligne_fin = Range("a65535").End(xlUp).Row
tri1 = Asc(Cells(2, 1)) - 59
clr1 = Cells(5, 5).Interior.ColorIndex
For nbre_tri = ligne_deb To ligne_fin
x = Cells(nbre_tri, tri1)
Select Case x + CInt(Cells(nbre_tri, tri1).Offset(0, 1)) + 1 - Range("E1")
Case Is < 30
clr = 3
Case Is < 90
clr = 44
Case Else
clr = xlNone
End Select
Cells(nbre_tri, tri1).Interior.ColorIndex = clr
If clr <> clr1 Then
Rows("" & nbre_tri & ":" & nbre_tri & "").EntireRow.Hidden = True
End If
Next nbre_tri
End Sub
A partir de ce code je suis bloqué dans mon trie de couleur cellule à la 286 lignes alors que je pourrai aller bien au-delà normalement. Je ne comprends pas ce qui peut bloquer.
Cordialement