Comment peut on faire pour qu'unr cellule selectionner soit identifier

J

Jare

Guest
Bonjour,

Comment peut on faire pour identifier en permanence par une couleur de fond la cellule sélectionner, exemple: A1 selectionner (A1 couleur), j'appuis entré et je me trouve sur A2 (A2 couleur, mais plus A1).

Merci d'avance.
 
T

Thierry

Guest
Salut Jare,

On peut le faire par en mettant ce code dans Module de feuille.
La cellule sera jaune pâle, (ou la sélection entière)

Inconvénient : Si tu veux colorer des cellules de cette feuille tu ne pourras plus (ou alors faudra virer cette macro auto)

Avantage : La macro restitue la couleur d'origine des cellules si elles étaient déjà colorées. (Si la zone sélectionnée ne contient pas plusieurs couleurs différentes, car dans ce cas la macro exit)

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

Bonne Nuit
@+Thierry
 

Discussions similaires