Mise en forme conditionnelle,automatique et avec des 8 conditions

GS82

XLDnaute Occasionnel
Salut les Xldiens et les Xldiennes
en fait j'ai 4 colonnes renfermées dans un grand tableau
les cellules de ces colonnes peuvent prendre des valeurs bien precise(8 valeurs seulement)
je cherche à ce que dés que je tape une valeur dans une de ces cellules, la cellule prend automatiquement une couleur precise,
bien evidemment a chauqe valeur une couleur

cad que je cherche a ce que ces cellule fonctionnnent exactenement
comme si elle avaient une mise en forme conditionnelle mais que au lieu qu'on dispose seulement de 3 conditions, on a 8.
j'arrive pas a trouver le truc, merci pour votre coup de main:)
 

abc

XLDnaute Impliqué
Re : Mise en forme conditionnelle,automatique et avec des 8 conditions

Bonsoir,
un code du forum a adapter à ton fichier
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:C10]) Is Nothing Then Exit Sub
Select Case zz
Case "1": zz.Interior.ColorIndex = 4
Case "2": zz.Interior.ColorIndex = 33
Case "3": zz.Interior.ColorIndex = 35
'etc.......
Case Else: zz.Interior.ColorIndex = xlNone
End Select
End Sub
A +
 

GS82

XLDnaute Occasionnel
Re : Mise en forme conditionnelle,automatique et avec des 8 conditions

salut abc et merci pour votre réponse
je vois
je coince tjrs sur des petits detail !!
je vous remerci infiniment abc, mon problème est resolu
bonne nuit