Action avec "ENTER"

job75

XLDnaute Barbatruc

• 7 Juin 2010

• #16

Re : Action avec "ENTER"

Re,

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

Code:

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

A+

 

Vote positif 0 Vote négatif

L

Lu K

XLDnaute Occasionnel

• 7 Juin 2010

• #17

Re : Action avec "ENTER"

Allez encore une petite pour la route :

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juin 2010

• #18

Re : Action avec "ENTER"

Re,

Lu K à dit:

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

Cliquez pour agrandir...

La route...

Code:

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+

 

Vote positif 0 Vote négatif

L

Lu K

XLDnaute Occasionnel

• 7 Juin 2010

• #19

Re : Action avec "ENTER"

Extra, Merci Job75 !!!

 

Vote positif 0 Vote négatif