format personnalisé

Re : format personnalisé

Bonsoir
Je souhaiterais dans la mesure du possible ajouter par le biais de VBA la possibilité de colorer la cellule en fonction des valeurs, seulement il s'agit de la colonne "C". Les cellules concernées sont fusionnées. De C9 à C14, C16 à C21,
C23 à C28, C30 à C33 et C35 à C36. Les codes des couleurs sont 5,4,6,7 et 3 respectivement bleu vert jaune rose et rouge.
J'ai essayé d'introduire CES CODES CI-JOINT dans une même feuille malheureusement cela ne fonctionne pas.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [D9:W63])
If Not Target Is Nothing Then CouleurClasse Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("C9:C50")) Is Nothing Then
With Target
Select Case Target.Value
Case 1
.Interior.ColorIndex = 5
Case 2
.Interior.ColorIndex = 4
Case 3
.Interior.ColorIndex =6
Case 4
.Interior.ColorIndex = 7
Case 5
.Interior.ColorIndex = 3
End Select
End With
End If
End Sub

Je tiens surtout à m'excuser.

Re : format personnalisé

Re,

Je ne comprends pas comment vous suivez ce fil et ce que vous faites avec mes codes 😕

1) Je vous ai dit que cette macro ne fonctionne pas puisqu'il y a des formules dans la plage :

2) Il ne peut pas y avoir 2 macros Worksheet_Change dans une même feuille...

3) Vous ne croyez pas que vous en faites un peu trop avec les couleurs ?

Votre fichier commence à être une usine à gaz (voyez son poids).

Perso j'ai peur des explosions, alors j'arrête là.

Bon courage pour la suite.

A+

Re : format personnalisé

Bonjour
Vous êtes mieux placé que moi pour estimer la nécessité ou la possibilité des codes. La feuille "qualité" est une feuille de synthèse ou les couleurs expriment la qualité des eaux en temps réel et la capacité de jauger la fiabilité des résultats de chacun des points d'eaux suivi. Quant à vos codes; elles sont tout à fait appropriées pour les objectifs assignés au programme.
Je vous ai assez pris de temps.
MERCI