probleme macro

[pouty]

<< Bonjour au forum

<< J'ai un probleme de depassement capacite pour cette macro car mon fichier est 15000 LIGNES et ca plante et demande un peu d'aide pour resoudre le probleme merci


Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Byte, plage As Range

If Intersect(Target, Range("S4:S4100")) Is Nothing Then: Exit Sub

lig = Target.Row
Set plage = Range(Cells(lig, 1), Cells(lig, 26))

Select Case Target
Case Is = "X"
plage.Interior.ColorIndex = 6 'Jaune pâle pour "X"
Case Is = "1"
plage.Interior.ColorIndex = 27 'Jaune foncé pour "1"
Case Is = "En attente clt"""
plage.Interior.ColorIndex = 34 'Bleu clair pour "En attente clt"
Case Is = "Gagnée"
plage.Interior.ColorIndex = 35 'Vert clair pour "Gagnée"
Case Is = "0"
plage.Interior.ColorIndex = 3 'Rouge pour "0"
Case Is = "Terminée"
plage.Interior.ColorIndex = 31 'Vert foncé pour "Terminée"
Case Else
plage.Interior.ColorIndex = -4142 ' enlève la couleur '
End Select

Set plage = Nothing
End Sub

 

[Pierrot93]

Re : probleme macro

Bonjour,

modifie le type de donnée en "long" :
remplace :
Dim lig As Byte
par :
Dim lig As Long
bonne journée
@+

 

[pouty]

Re : probleme macro

<< Merci Pierrot pour ton soutien