Afficher une forme au clic d'une cellule

Bonjour,

je voudrai, comme son nom l'indique afficher ma forme, à la sélection d'une cellule

j'ai essayer le code en vain:

Private Sub Worksheet_Change(ByVal Target As Range)
    Worksheets("Feuil1").Range("C5").Activate
        Shapes("Rectangle 4").Visible = True

End Sub

Voici également le fichier d'essai similaire à mon fichier initial

Merci pour votre aide

Bonjour,

Vous n'avez pas la bonne procédure événementielle :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("C5").Activate
    Me.Shapes("Rectangle 4").Visible = True
End Sub

Salut le fil,

Worksheets("Feuil1").Range("C5").Activate

Cela me turlupine un peu de voir cette écriture dans sélection change ...

Donc forme visible sur sélection de C5, sinon on cache

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        ActiveSheet.Shapes("Rectangle 4").Visible = (.Address = "$C$5")
        'ActiveSheet.Shapes("Rectangle 5").Visible = (.Address = "$G$10")
    End With
End Sub

Bonjour,

Merci pour votre réponse, cela fonctionne bien sur cette feuille et un de mon classeur, mais impossible de dupliquer sur une seconde feuille du classeur, en copiant et adaptant le code (pour un 2e Rectangle)

J'ai compris mon problème, il est que C12 et D12 son fusionné, dans ce cas comment puis-je l'appliquer ?

Salut le fil,

Ce code ne fonctionne que sur la feuille est active, en ce qui concerne la Propriété Address pour une cellule fusionnée tu dois donner l'adresse complète donc dans ton cas c'est "$C$12:$D$12".

Ne pas hésiter à utiliser les points d'arrêts, la touche F8, et les informations décernées par un Debug.Print.

Merci pour votre aide, c'est parfait tout fonctionne mieux