Blocage macro

[oxygene101]

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

 

[skoobi]

Re : Blocage macro

Bonjour,

sans fichier joint et une explication plus détaillée ça sera dur de t'aider (à mon avis).

 

[jeanpierre]

Re : Blocage macro

Bonjour oxygene101, skoubi, le forum,

Revoir tes déclarations de variables et notamment : ligne_fin.

A te lire.

Jen-Pierre

 

[Denis]

Re : Blocage macro

Bonjour le Fil et le Forum
essais de remplacer Byte dans tes déclarations, par Integer ou Long
Bon courage et à +
Denis

 

[oxygene101]

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

 

[Dolichotis]

Re : Blocage macro

Salut oxygene !

Une variable de type byte va jusqu'à 255 (je crois) alors que ton tableau fait plus de 350 lignes.

 

[jeanpierre]

Re : Blocage macro

Re,

Comme dit : (mais je n'avais pas lu ton code , seulement le début)

Dim ligne_deb As Integer, ligne_fin As Integer
Dim nbre_tri As Integer
Dim tri1 As Integer, clr1 As Integer

Et cela fonctionne.