couleur de cellule active

[philippe]

Bonjour, j'ai voulu utiliser la procédure ci-dessous issue d'un fil de Thierry. Mon problème est que çà ne fonctionne pas comme je le souhaiterais. En effet, normalement cette procédure permet de changer la couleur de la cellule active et de restituer sa couleur précédente dès que l'on change de cellule. Chez moi la couleur précédente n'est pas restituée mais reste en jaune. Quelqu'un pourrait il voir ce qui ne va pas ?

Merci beaucoup

Philippe

Dim AdressePrecedent As String
Dim CouleurPrecedent As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo Sortie
If CouleurPrecedent = Null Or AdressePrecedent = "" Then
With ActiveCell
AdressePrecedent = .Address
CouleurPrecedent = .Interior.ColorIndex
End With
End If

Range(AdressePrecedent).Interior.ColorIndex = CouleurPrecedent
With Range(Target.Address).Interior
CouleurPrecedent = .ColorIndex
.ColorIndex = 36
End With
AdressePrecedent = Target.Address
Sortie:
End Sub

 

[philippe]

Bonjour

Excusez moi d'insister mais ma question n'interesse personne ?

Même pas Thierry ?

Merci

Philippe