Excel 2007 - Mise en forme conditionnelle - Comment transformer des codes de couleur en couleurs? - excel-vba, excel-2007, vba, excel

J'ai un code macro très simple qui montre la couleur du code de couleur qui est enregistré à l'intérieur d'une cellule:

Sub ShowColour()
ColCod = Selection()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = ColCod
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Je cherche maintenant un moyen de changer lele contenu de la cellule dans un autre code de couleur et lui est immédiatement montré sa couleur. J'ai expérimenté la mise en forme conditionnelle, mais il semble que je ne peux choisir que parmi des formats prédéfinis. Quelqu'un peut-il me donner un indice?

Réponses:

Si je vous comprends bien, vous devez ajouter ce code dansmodule de feuille approprié, comme celui nommé "Sheet1 (Sheet1)" (pas dans le module standard comme Module1). En conséquence, ce code déclenchera un événement approprié pour vous.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrorHandler
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = Target.Value
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Exit Sub
ErrorHandler:
MsgBox "Color number rather doesn"t exists"
End Sub

J'ai gardé votre code de base à l'intérieur, car ce serait plus facile pour vous.