Exécuter une macro sur modif d'un graphique

[jerjerrod]

Bonjour à tous,

J'ai un graphique représentant un nuage de point.
Je voudrais exécuter une macro lorsque l'utilisateur déplace un des points de ce nuage.

Comment est-ce possible ?

Merci d'avance

 

[jerjerrod]

Malheureusement j'avais testé cette possibilité, et il n'exécute pas l'événement WorkSheet_Change.
(par contre si on fait ctrl+z pour annuler le changement, il l'exécute, cherchez l'erreur...)

 

[Hervé]

bonjour jerjerod, josé

j'avais déjà été confronté à ce souci dans un autre post, et m'en etait sorti en utilisant l'evenement calculate et une formule =somme()

exemple en piece jointe.

Mais bon, méthode peu satisfaisante.

salut [file name=Classeur9_20060606124015.zip size=6630]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur9_20060606124015.zip[/file]

 

[Hervé]

re



A croire que l'on à suivi les memes formations xldiennes josé.

salut

 

[Hervé]

re

entierement de ton avis josé.

la cellule modifié n'est pas sélectionné par excel.

donc l'evenement selectionchange ne peut etre actionné.

par contre je ne m'explique pas le silence de l'evenement change.

a plus

salut

 

[jerjerrod]

Ok merci beaucoup ! Je vais m'en tenir à la fonction calculate qui a l'air d'être assez fiable, même si elle va s'exécuter dans pleins de cas où j'en aurai pas besoin.

En tout cas c'est vraiment très sympa de votre part.

 

[Hervé]

re


non non, j'ai un médicament contre les gonflements de cheville, josé, il me suffit d'aller voir les codes des maitres Ti, _thierry, DidierMdf,etc...

Ca dégonfle tres tres vite les chevilles.



salut

 

[MichelXld]

bonsoir les amis

une autre possibilité consiste à utiliser les evenements associés aux graphiques



par exemple pour gerer le 1er graphique de la Feuil1

'------- au niveau de ThisWorkbook -------
'initialise la classe

Option Explicit
Dim Cl As Classe1

Private Sub Workbook_Open()

Set Cl = New Classe1
Set Cl.Grph = Feuil1.ChartObjects(1).Chart
End Sub


'----- à placer dans un module de classe nommé Classe1 ---
'gestion evenement lors de modification dans les series

Option Explicit

Public WithEvents Grph As Chart

Private Sub Grph_SeriesChange(ByVal SeriesIndex As Long, _
ByVal PointIndex As Long)
MsgBox 'toto' 'restons dans les classiques ...;o)
End Sub



Il existe d'autres type d'evenements, à adapter en fonction de ton projet



bonne soirée
MichelXld

 

[MichelXld]

rebonsoir José

tu as découvert ma vraie nature ...;o)


Si tu utilises un onglet graphique , tu peux acceder directement aux evenements disponibles (comme pour une feuille ou ThisWorkbook)

Pour plus d'infos tu peux consulter cet article tres complet de Jon Peltier

http://www.computorcompanion.com/LPMArticle.asp?ID=221

et l'aide Microsoft (Excel2003) : voir la liste des Events en bas de la page

Ce lien n'existe plus


Il y aussi quelques infos dans la wikipage 1: 'Les evenements dans la feuille graphique'



Les modules de classe sont utilisés pour les graphiques placés dans la feuille

Un autre exemple avec cette démo de notre ami Zon

Lien supprimé



bonne soirée
MichelXld