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 :

Lier contrôle "Spreadsheet" et "ChartSpace" ?


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mars 2008
    Messages
    57
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 57
    Par défaut Lier contrôle "Spreadsheet" et "ChartSpace" ?
    Bonjour,

    j'ai crée sous Excel VBA un UserForm dans lequel j'ai placé deux objets (entre autres) : un feuille de calcul SpreedSheet et un graphique ChartSpace. Cependant, il ne m'est pas possible de relier le graphique avec les données de la feuille de calcul. A partir des options du graphique j'ai uniquement accès à une connexion par BDD ou alors à une feuille de calcul propre au graphique.

    Evidemment, je souhaite effectuer les calculs dans la feuille et afficher les résultats dans le graphique. Mais visiblement ce n'est pas possible, je vais donc rester avec mon interface dans la boite de dialogue (userform) et mes données et graphique sous Excel. Peu pratique, non ?

  2. #2
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonsoir


    tu peux utiliser et adapter cet exemple

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    Option Explicit
    Option Base 1
     
    'Nota:
    'Utilisez l'objet WCChart pour la bibliothèque OWC9.
    'Dim Cht As WCChart
     
    'Bibliothèques OWC10 et OWC11
    Dim Cht As ChChart
    Dim C
     
     
    Private Sub UserForm_Initialize()
     
        'Spécifie la source de données pour le graphique
        ChartSpace1.DataSource = Spreadsheet1
     
        Set C = ChartSpace1.Constants
        'Ajoute le graphique
        Set Cht = ChartSpace1.Charts.Add
     
        'Définit le type de graphiUE
        Cht.Type = C.chChartTypeLine
    End Sub
     
     
     
    Private Sub CommandButton1_Click()
        'Intègre les données du SpreadSheet dans le controle ChartSpace
        Cht.SetSpreadsheetData "Sheet1!A1:B5", False
    End Sub


    bonne soirée
    michel

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Mars 2008
    Messages
    57
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 57
    Par défaut
    Merci SilkyRoad, je vais tester ta solution. J'ai l'impression que les controles sur le graphique sont tout de même limités par rapport à l'interface Excel classique ? A tester.

  4. #4
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonjour

    J'ai l'impression que les controles sur le graphique sont tout de même limités par rapport à l'interface Excel classique ?

    OWC n'est pas limité et tu peux réaliser beaucoup de choses sympa (par VBA) mais à l'origine ces contrôles ne sont pas prévu pour ça et il est toujours préférable d'utiliser les outils de l'application Excel et de créer tes graphiques dans la feuille de calcul.


    bonne journée
    michel

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Mars 2008
    Messages
    57
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 57
    Par défaut
    Merci michel pour ta précision, j'en prend bonne note pour mes futures travaux ! ;-)

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