Macro après validation d'une cellule

Version imprimable

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:

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?

05/10/2011, 20h51
jfontaine

Bonjiour,

Utilise l'evenement Change à la place de SelectionChange
05/10/2011, 20h58
sony25

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

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:

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

05/10/2011, 21h29
sony25

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

Merci à toi! :ccool: