IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Private Sub Chart_Select


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Profil pro
    Inscrit en
    Novembre 2013
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2013
    Messages : 1
    Par défaut Private Sub Chart_Select
    Bonjour, je ouhaiterai modifier et récupérer les données d'un point d'une courbe sur un graphique Excel lorsque l'on clique dessus... jusque là aucun problème à partir du moment où je lance ma macro après avoir sélectionné mon point.

    Mais l'idéal serait que celle-ci se lance toute seule lorsque je clique sur le point et pour cela je voulais utiliser une fonction type :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
    Mais à quoi correspond le ElementID pour un point d'une série de données ?

    Merci pour votre aide et bon WE à venir.

    Alex

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Définition des ElementId

    Exemple pour sélectionner des séries de données (et non des points)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
     
    If ElementID = xlSeries Then MsgBox "La série n° " & Arg1 & " a été sélectionnée"
    End Sub

    Par contre si les points de la série ont des labels, on peut utiliser ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
     
    If ElementID = xlDataLabel Then
        If Arg2 <> 0 Then
            MsgBox "Le point " & Arg2 & " de la série n° " & Arg1 & " est sélectionné"
        Else
            MsgBox "Tous les points de la série " & Arg1 & " sont sélectionnés"
        End If
    End If
    End Sub

Discussions similaires

  1. Private Sub Form_Open . Dim maxi
    Par Nessie37 dans le forum VBA Access
    Réponses: 6
    Dernier message: 08/10/2007, 18h19
  2. code: Private Sub Form_Timer avec condition
    Par WITER dans le forum IHM
    Réponses: 3
    Dernier message: 25/07/2007, 23h33
  3. [VBA] Goto faisant référence en-dehors d'un Private Sub?
    Par Oceliane dans le forum VBA Access
    Réponses: 2
    Dernier message: 28/03/2007, 15h57
  4. Réponses: 9
    Dernier message: 06/06/2006, 22h05
  5. mettre plusieurs private sub sur un bouton ?
    Par juju33 dans le forum Access
    Réponses: 2
    Dernier message: 26/03/2006, 16h22

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo