colorer une cellule a partir d'une fonction custom

[Daniel_gre]

Bonjour,

J'ai ecris une fonction custom (dans un module) qui fonctionne tres bien...
maintenant je souhaite ameliorer ma fonction en colorant la cellule avec differentes couleurs suivant un test...
Impossible de faire colorer la cellule...
mon code est:
ColorCell = 6 'jaune
Worksheets('Reporting').Activate
Sheets('Reporting').Cells(CurrentColumn, CurrentRow).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 3

Par avance merci de vos conseils,

bonne journee,

Daniel.

 

[Thierry78]

Salut Daniel_gre,

Pourrais-tu joindre le fichier concerné?

A+

Tiherry78

 

[Daniel_gre]

Merci,
j'ai trouve ma solution.

cordialement