Celllule active en couleur

[Eugène Schild]

Dans un grand tableau Excel, bien rempli, il est assez difficile de trouver la cellule active.
J'aimerai donner une couleur à cette cellule.
Avez-vous une idée comment y parvenir.

Cordialement et merci d'avance.

 

[Valérie]

Salut le forum et Eugène,

Ci-joint un fichier avec un exemple mais attention, cela fonctionne si les autres cellules sont sans couleur et sans format conditionnel.

J'espère que cela répondra à ta question

@+
Valérie

 

[Eugène Schild]

Bonsoir Valérie,
Merci pour ta réponse rapide.
C'est presque ce que je cherche.
J'aurai préféré que cela fonctionne aussi avec des cellules en couleur.
D'autre part comment l'utiliser sur un tableau existant.
Peut-être as-tu la solution.
Cordialement,
Eugène

 

[Mytå]

Bonsoir le forum

Eugène la macro modifier de Valérie qui garde l'ancienne couleur de la cellule

Dim VIELLE As Range, couleur As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
VIELLE.Interior.ColorIndex = couleur
couleur = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 36
Set VIELLE = ActiveCell
End Sub


Mytå

 

[Eugène Schild]

Bonjour le Forum, bonjour Myta,

Merci pour ta réponse, mais j'avoue que je suis dépassé par le sujet.
Peut-tu m'éclairer ou m'envoyer la macro en annexe.
Merci d'avance.
Donne aussi un coup d'oeil à ma réponse à Valérie.

Cordialement,
Eugène