Discussion :

[potili2]

bonjour
je pense utiliser ce type de code

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case Target.Value
            Case Is > 0
                Target.Offset(0, 1).Interior.ColorIndex = 10
            Case Is < 0
                Target.Offset(0, 1).Interior.ColorIndex = 4
        End Select
    End If

ceci fonctionne très bien, mais si les données arrivent par une liaison DDE, l'évènement n'est pas déclenché. y a t il une possibilité de tourner la difficulté?
merci.
Jean Pierre