Discussion :

[Merzipan]

Hello à tous!

J'ai créé une macro qui copie le graphique d'une feuille pour aller le coller dans une autre. Comme c'est le cas pour pas mal de mes macros, j'aimerais faire en sorte que cette macro s'exécute automatiquement quand la valeur d'une cellule change.
J'ai utilise le code suivant (que j'ai utilisé d'ailleurs pour plusieurs autres macros) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Graph_Change(ByVal Target As Range)
 
If Not Application.Intersect(Range("I23"), Range(Target.Address)) Is Nothing Then
Call graphchange
End If
 
End Sub

Mais j'ai beau changer la valeur de cette cellule I23, la macro ne s'exécute pas! Alors que pour les autres macros si! Je ne pense pas que ce soit un problème avec la macro à exécuter, étant donné que quand je la lance manuellement en cliquant sur "run", le graphique se copie bien.
Je ne comprends vraiment rien... Help?

[Phil'oche]

Salut,

Je ne comprends pas bien la question... ta cellule I23 qui doit déclencher la procédure est sur une FEUILLE ! donc qu'est-ce que c'est, cet évènement Private Sub Graph_Change(ByVal Target As Range)

Il n'y aurait pas confusion avec Private Sub Worksheet_Change(ByVal Target As Range), par hasard ???

[Menhir]

Mais j'ai beau changer la valeur de cette cellule I23, la macro ne s'exécute pas!

On ne le répètera jamais assez : une question bien posée, c'est 90% de la solution.

Relis ta question et demande-toi "qu'est-ce qui change ?".
Réponse : la valeur de la cellule !

Donc ce n'est pas Graph_Change qu'il faut utiliser mais Worksheet_Change pour détecter la modification de la cellule source.

[Merzipan]

Oops, je suis vraiment bête, je pensais que Worksheet_Change servait de titre et pouvait être modifié
Merci à vous pour votre aide!