Macro pour retour couleur d'origine

Bonjour

J'ai une feuille dans laquelle j'ai inséré des formes. Une de celle ci ce colorie grasse à une macro et je voudrais en trouver une autre pour qu'elle puisse retrouver sa couleur d'origine lorsque l'on clique sur une cellule.

Ci joint le fichier test.

Merci pour l'aide apporter pour ce sujet.

Ta

Bonjour,

à mettre dans le module de Feuil1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$F$4" Then
        [F19].ClearContents
        ' mettre en bleu
        '...
    End If
End Sub

se déclenche à la sélection de F4.
Tu dois ajouter la mise en couleur comme dans ton autre macro
eric

Bonjour

Tout d'abord merci pour la réponse.

J'ai donc intégré tous les codes mais la sélection de l'objet rond est en apparence au changement de couleur retour.

je n'arrive pas à comprendre comment l'enlever.

Ci joint le fichier modifié avec le "bug"

Bonne journée

Ta

Bonjour,

ajouter avant le End If :

Application.EnableEvents = False
Target.Select
Application.EnableEvents = True

eric