Action avec "ENTER"

[Lu K]

Bonjour le Forum,

Je me permet de faire appel à vous pour un petit problème ! Je sais que c'est réalisable mais je n'y arrive pas :

Je souhaite tout simplement mettre en couleur rouge une cellule de la colonne "I" lorsque que je valide cette cellule par Entrée.

J'ai essayé plein de code, mais rien n'y fait.

Merci à tous ceux qui voudront bien m'aider.

 

[job75]

Re : Action avec "ENTER"

Re,

Pas fait attention que vous utilisiez Font, xlNone ne fonctionne pas avec Font :

Target.Font.ColorIndex = IIf(Target <> "", 3, [COLOR="Red"]xlAutomatic[/COLOR])

A+

 

[Lu K]

Re : Action avec "ENTER"

Allez encore une petite pour la route :

Pour que le code fonctionne aussi avec "Entrée" du pavé numérique ?

 

[job75]

Re : Action avec "ENTER"

Re,

Pour que le code fonctionne aussi avec "Entrée" du pavé numérique ?

La route...

Private Sub Worksheet_Activate()
Application.OnKey "~", "Entree"
Application.OnKey "{ENTER}", "Entree"
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "~"
Application.OnKey "{ENTER}"
End Sub

A+

 

[Lu K]

Re : Action avec "ENTER"

Extra, Merci Job75 !!!