• Initiateur de la discussion Initiateur de la discussion pouty
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pouty

XLDnaute Junior
<< 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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
318
Réponses
7
Affichages
164
Réponses
4
Affichages
223
Réponses
4
Affichages
177
Réponses
4
Affichages
243
Réponses
4
Affichages
427
Réponses
16
Affichages
1 K
Retour