Blocage macro

oxygene101

XLDnaute Nouveau
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
 

oxygene101

XLDnaute Nouveau
Re : Blocage macro

Bonjour

Voici le fichier pour ceux qui voudrait bien s'y pencher !

Pourquoi un problème de variable alors qu'il devrait aller jusqu'au bout du tableur

Cordialement
 

Pièces jointes

  • Controle periodique 2008 A.zip
    19.9 KB · Affichages: 15
Dernière édition:

Discussions similaires

Réponses
1
Affichages
224

Statistiques des forums

Discussions
312 842
Messages
2 092 714
Membres
105 517
dernier inscrit
Freddy93