Dépassement de capacité

Résolu
boboros -  
 boboros -
Bonjour,

J'ai réalisé un programme pour colorier les cellules dans Excel en fonction du mot que je mets dans une colonne.
Malheureusement, après la ligne 250 cela ne marche plus et on me met qu'il y a un problème de capacité.

Merci d'avance de m'apporter une solution.

Je vous joins mon code ci-dessous:

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

If Intersect(Target, Range("AA1:AA5000")) Is Nothing Then: Exit Sub

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

Select Case Target
Case Is = "A"
plage.Interior.ColorIndex = 48 'Gris pour "A"'
Case Is = "B"
plage.Interior.ColorIndex = 2 'Blanc pour "B"'
Case Is = "C"
plage.Interior.ColorIndex = 10 'Vert pour "C"'
Case Is = "D"
plage.Interior.ColorIndex = 10 'Vert pour "D"'
Case Is = "E"
plage.Interior.ColorIndex = 33 'Bleu pour "E"'
Case Is = "F"
plage.Interior.ColorIndex = 45 'Orange pour "F"'
Case Is = "G"
plage.Interior.ColorIndex = 3 'Rouge pour "G"'
Case Is = "H"
plage.Interior.ColorIndex = 3 'Rouge pour "H"'
Case Is = "I"
plage.Interior.ColorIndex = 10 'Vert pour "I"'
Case Else
plage.Interior.ColorIndex = -4142 'Enlève la couleur'

End Select

Set plage = Nothing
End Sub

########################################################

Encore merci.

1 réponse

  1.
    Zoul67 Messages postés 2001 Statut Membre 149
     
    Bonjour,

    ça doit être après la ligne 256 (2^8...)
    Tu as défini lig comme étant un octet. Ainsi, il ne peut pas dépasser 255.

    Mets-le en Integer, en Variant ou en Double, ou alors ne lui affecte pas de type.

    PS : je trouve un peu curieux d'utiliser Worksheet_Change pour ça

    A+
    1
    1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
       
      Jusqu'à Excel 2003 tu peux utiliser:
      Dim lig As Integer, plage As Range

      A partir d'Excel 2007 il vaut mieux utiliser :
      Dim lig As Long, plage As Range
      0
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Salut Patrice,

      J'ajouterai qu'avec les capacités des ordinateurs actuels, la différence entre Integer et Long étant quasi incommensurable, il convient de toujours utiliser Long.
      En effet, même sur 2003, on peux dépasser les 32000 lignes et des...
      Il faut aussi penser à la portabilité de vos applications, excel 2003 ayant déjà 10 ans.

      Bonne journée
      0
    3. boboros
       
      Merci beaucoup à tous pour vos remarques.
      Mon programme marche comme je veux maintenant :)
      Encore Merci
      0

Discussions similaires

"AMD a détecté un dépassement de délai du pilote"
XDA -
XDA -

16 réponses
Dépassement de délai du pilote AMD, rx 7900 xtx
Jaguar064 -
BmV -

16 réponses