macro automatique

[torg59]

Bonjour,
J'aimerais qu'une des macros que j'ai déjà écrit s'éxécute automatiquement lorsque je clique sur une cellule qui vérifie un certain critère (police d'écriture en bleue par exemple...)
Merci pour votre aide!

 

[porcinet82]

Re : macro automatique

Salut,

En supposant que la cellule en question soit la cellule A1 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    If Cells(1, 1).Font.ColorIndex = 5 Then
        [COLOR=seagreen]'ta macro[/COLOR]
    End If
End If
End Sub

@+