Aide pour fonction recherche

Bonjour

ma vu baisse et j'ai de plus en plus de mal à repérer la case qui est entouré quand on fait une recherche

j'ai trouvé un petit code sympa mais il faudrait l'améliorer car il supprime l'ancienne couleur de la cellule

Et je ne peux plus mettre des couleurs de fond du coup.

ci-joint un petit exemple avec le code

peut être simplement un encadrement en gras ?

Merci d'avance

Gilles

Bonjour,

A essayer

Option Explicit

Dim LastRange As Range
Dim MemOldColor As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not LastRange Is Nothing Then
    LastRange.Interior.Color = MemOldColor
    MemOldColor = xlNone
  End If
  Set LastRange = Target
  MemOldColor = Target.Interior.Color
  Target.Cells.Interior.Color = RGB(0, 255, 0)
End Sub

@+

Bonjour

Merci Bruno réponse super rapide

la première fonction fonctionne bien à chaque fois que je fais ma recherche et que j'utilise les flèches par exemple

la couleur de fond revient...Super

Par contre si j'utilise la souris pour prendre plusieurs cases...elles ce colorie en fond noir ? (et je ne peux pas faire le CTRL Z pour revenir en arrière)

Et puis je ne sais pas comment faire si je veux remettre une couleur de fond sur plusieurs cellule de mon fichier

est ce qu'il faut que j'utilise une fonction "bouton" pour inhiber ou pas ce code ?

du style mode recherche ou mode saisie de données

Merci d'avance

Gilles