Evènement Worksheet défaillant

Bonjour à tous,

Je fais à nouveau appel à vous en cette fin de semaine / début de week-end, car j'ai un problème au niveau d'un évènement worksheet : j'aimerais, à la modif de la cellule G32, que le graphique 13 associé change de titre de suite.

Seulement, après validation du nombre de jours avec Entrée, il faut que je "repasse" sur la cellule G32 pour que le titre change finalement..

Je me doute qu'il manque quelque chose dans l'écriture de mon bout de code, mais je ne vois pas quoi...

Pourriez-vous m'aider svp ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$G$32" Then Exit Sub
Dim nombre%
nombre = Range("G32")
ActiveSheet.ChartObjects("Graphique 13").Chart.ChartTitle.Text = "Résolus en " & nombre & " jours)"
End Sub

Merci d'avance

Bonjour

Utilises l'événement change

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$32" Then Exit Sub
Dim nombre%
nombre = Range("G32")
ActiveSheet.ChartObjects("Graphique 13").Chart.ChartTitle.Text = "Résolus en " & nombre & " jours)"
End Sub

Super merci