Discussion :

[sony25]

Bonjour,

j'aimerai activer ma macro après validation ou sortie de ma cellule.
Juste après la saisie.
Permettant, par rapport à un mot précis, de colorier ma cellule.
Je sais que par MFC on peut le faire, mais vu que je suis sous 97 et que j'en ai plein à saisir, il me faut passer par une macro.


Pour le moment j'ai essayé ça, mais ça ne me l'actif pas à la sortie de la cellule. Mais seulement quand je sors et je reviens sur la cellule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If UCase(ActiveCell.Value) = "CP" Then
  ActiveCell.Value = "CP"
  Selection.Interior.ColorIndex = 41
  End If
 
  If UCase(ActiveCell.Value) = "Abs" Then
  ActiveCell.Value = "ABS"
  Selection.Interior.ColorIndex = 41
  End If

...etc

Une idée?

[jfontaine]

Bonjiour,

Utilise l'evenement Change à la place de SelectionChange

[sony25]

J'ai déjà essayé.
Ca fait rien...

[mercatog]

Ceci est un exemple qui prends en compte le cas général où une plage est modifiée (et non seulement une seule cellule)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim Klr As Integer
 
For Each c In Target
    Select Case UCase(c)
        Case "CP": Klr = 41
        Case "ABS": Klr = 45
            '...suite
        Case Else: Klr = xlNone
    End Select
    c.Interior.ColorIndex = Klr
    Application.EnableEvents = False
    c = UCase(c)
    Application.EnableEvents = True
Next c
End Sub

[sony25]

Quoi dire....
Si ce n'est..... MERVEILLEUX!!!

Merci à toi!