cellule active coloriée

bonjour,
Public c As Object

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
c.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 36
Cancel = True
Set c = ActiveCell
End Sub

Philippe NOSS
www.exefac.Com

bonjour,
l'instruction Dim doit être mise dans la section déclaration du module de
feuille
Dim tutu As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
tutu.Interior.ColorIndex = 0
ActiveCell.Interior.ColorIndex = 36
Set tutu = ActiveCell
Cancel = True
End Sub

Par ailleurs, je ne vois pas à quoi sert le Cancel=true qui existait dans ta
proc et que dans le doute je t'ai quand même laissé, ne sachant pas s'il
s'agissait d'une variable que tu utilises par ailleurs.

A+

Bonjour,

En mettant le code ci dessous, ma cellule active est bien coloriée en jaune.
Cependant, lorsque cette dernière change, la couleur de fond reste sur
l'ancienne cellule active.
Que dois-je faire pour que cette dernière reprenne sa couleur initiale ?

Merci.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Interior.ColorIndex = 36
Cancel = True
End Sub

Bonjour,

'à coller dans un module ou dans celui de ThisWorkbook
Public x As Variant
Private Sub Workbook_Open()
x = ActiveCell.Address
End Sub

'à coller dans le module de la feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If x <> "" Then
Range(x).Interior.ColorIndex = Null
End If
Selection.Interior.ColorIndex = 36
Cancel = True
x = Target.Address
End Sub


Amicalement
Sitting Hoax
"Deedooz" <nospam-deedooz@free.fr> a écrit dans le message de news:
udgW2TEjFHA.1412@TK2MSFTNGP09.phx.gbl...

Bonjour,

En mettant le code ci dessous, ma cellule active est bien coloriée en
jaune.
Cependant, lorsque cette dernière change, la couleur de fond reste sur
l'ancienne cellule active.
Que dois-je faire pour que cette dernière reprenne sa couleur initiale ?

Merci.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Interior.ColorIndex = 36
Cancel = True
End Sub

Merci a tous pour vos réponses

Pour AnonymousA : oui le cancel est en trop..... erreur dans un de mes
copier/coller.

"Deedooz" <nospam-deedooz@free.fr> a écrit dans le message de
news:udgW2TEjFHA.1412@TK2MSFTNGP09.phx.gbl...

Bonjour,

En mettant le code ci dessous, ma cellule active est bien coloriée en
jaune.

Cependant, lorsque cette dernière change, la couleur de fond reste sur
l'ancienne cellule active.
Que dois-je faire pour que cette dernière reprenne sa couleur initiale ?

Merci.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Interior.ColorIndex = 36
Cancel = True
End Sub