Colorer provisoirement cellule active

bonjour
un petit bout de code que j'avais trouvé sur ce forum, je n'ai rien
inventé
bon courage
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 36
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
Pushed = True
Application.ScreenUpdating = True
End Sub
MarcT

à mettre dans le code de la page

Merci ça marche impec

bonjour
un petit bout de code que j'avais trouvé sur ce forum, je n'ai rien
inventé
bon courage
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 36
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
Pushed = True
Application.ScreenUpdating = True
End Sub
MarcT

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static rngPrec As Range
If Not rngPrec Is Nothing Then
rngPrec.Interior.ColorIndex = xlNone
End If
ActiveCell.Interior.ColorIndex = 36
Set rngPrec = ActiveCell
End Sub


"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news:3A6A4920-D274-4B5A-97F4-EDC9D3855920@microsoft.com...

Bonjour à tous

Est'il possible de colorer provisoirement la cellule active afin que
l'utilisateur sache bien où il est , la coloration disparaissant lorsque
l'on

quitte la cellule

| Merci ça marche impec

Et avec les formats existants il se passe quoi ??
;-)

AV|

Pfff.
En proposant une soluce ce serait mieux !

Une solution qui respecte les formats en place :
Sélection de toute la feuille (Ctrl+A) --> MEFC --> la formule est :
=OU(CELLULE("colonne")=COLONNE();CELLULE("row")=LIGNE())
--> Format.etc.


Dans le module de la feuille :
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
Application.ScreenUpdating = False
Calculate
End Sub

AV