Marquer une cellule active

Bonjour à tous,

J'ai écrit une courte macro (en m'inspirant d'un forum) qui me permet de colorer en vert une cellule active. La couleur disparait lorsque cette cellule n'est plus active.

Vous trouverez cette macro simple ci dessous.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Static selection_precedente As String

If selection_precedente <> "" Then

'Suppression de la couleur de fond de la sélection précédente :

Range(selection_precedente).Interior.ColorIndex = xlColorIndexNone

End If

'Coloration de la sélection actuelle :

Target.Interior.Color = RGB(181, 244, 0)

'Enregistrement de l'adresse de la sélection actuelle :

selection_precedente = Target.Address

End Sub

Quelqu'un peut il m'aider à la modifier afin qu'un chiffre (1 par exemple) ou une lettre (A par exemple) apparaisse lorsque la cellule est active.

Ce chiffre ou cette lettre doit disparaitre lorsque la cellule n'est plus active.

Un grand merci par avance

Bien à tous

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static selection_precedente As String

If selection_precedente <> "" Then
'Suppression de la couleur de fond de la sélection précédente :
Range(selection_precedente).Interior.ColorIndex = xlColorIndexNone
Range(selection_precedente) = ""
End If

'Coloration de la sélection actuelle :
Target.Interior.Color = RGB(181, 244, 0)
Target = "A"

'Enregistrement de l'adresse de la sélection actuelle :
selection_precedente = Target.Address

End Sub

Bonjour et bienvenue sur le forum

Bonjour à tous

Une variante.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static selection_precedente As String
    Static valeur_precedente As String

    If selection_precedente <> "" Then
        'Suppression de la couleur de fond de la sélection précédente :
        Range(selection_precedente).Interior.ColorIndex = xlColorIndexNone
        Range(selection_precedente).Value = valeur_precedente
        valeur_precedente = Target.Value
    End If

    'Coloration de la sélection actuelle :
    Target.Interior.Color = RGB(181, 244, 0)
    Target = "A"
    'Enregistrement de l'adresse de la sélection actuelle :
    selection_precedente = Target.Address
End Sub

Bye !

Un très grand merci pour cette réponse rapide et complète.

J'essaie cela tout de suite.

Merci encore

Bien cordialement

Re-Bonjour

je viens d'essayer cette variante.

Tout fonctionne très bien.

Vraiment encore merci

Bonjour,

Votre m'ayant été très précieuse, je me permets de poursuivre mes questions.

Comment puis je compléter votre macro précédente afin que lorsque je ferme le fichier toutes les cellules de la colonne A se vident.

Merci d'avance