Simuler un "KeyDown" dans Sheets ("Feuil1")

[néné06]

Bonsoir à toutes et à tous.

J'essaye de produire dans ma Feuil1 de la piece jointe, un effet de keydown.
Lorsque j'entre une valeur <= à 06:45 la cellule passerait en une couleur.
Lorsque j'entre une valeur >= à 21:30 la cellule passerait en une autre couleur.
Lorsque j'entre une valeur texte la cellule passerait en une autre couleur.
Actuellement ,lors de l'entrée d'une valeur,dans une cellule, seul la notation s'affiche mais pas le fond.
apres avoir entrée cette valeur , si je reclic sur une cellule notée,les couleurs du fond s'affichent par Worksheet_SelectionChange(ByVal Target As Range).

J'aimerai que le fond de la cellule change , dés la frappe sur le clavier.

D'avance merci

 

[ERIC S]

Re : Simuler un "KeyDown" dans Sheets ("Feuil1")

bonsoir

pourquoi passer par macro, une miseen forme conditionnelle ne suffit pas?

 

[néné06]

Re : Simuler un "KeyDown" dans Sheets ("Feuil1")

Bonsoir ERIC S

La MFC ne me suffit pas.
je doit appliquer plusieurs MFC sur certaines cellules et au boulot ,les machines tournent sur 2003.

Merci pour ta suggestion!

 

[ERIC S]

Re : Simuler un "KeyDown" dans Sheets ("Feuil1")

re

il faut utiliser change et non selection_change

à tester

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> 0 Then
    If Not IsNumeric(Target.Value) Then
        Target.Interior.ColorIndex = 36
    Else
        If Target.Value <= 0.28125 Then Target.Interior.ColorIndex = 17
        If Target.Value >= 0.8958333 Then Target.Interior.ColorIndex = 8
    End If
End If
End Sub

 

[néné06]

Re : Simuler un "KeyDown" dans Sheets ("Feuil1")

Merci ERIC S

Cela fonctionne impec .
J'avais essayé avec "change",mais j'avais abandonné avant de valider l'entrée, car je ne voyais pas la couleur changer pendant la frappe.
J'étais parti dans l'idée d'effectuer les changements de couleur, dés la frappe,mais ta méthode me convient parfaitement.

Encore MERCI!!