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

VB 6 et antérieur Discussion :

[VB6]Graphique Excel


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé Avatar de biquet
    Homme Profil pro
    Inscrit en
    Juillet 2003
    Messages
    199
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Juillet 2003
    Messages : 199
    Par défaut [VB6]Graphique Excel
    Bonjour,

    Je pilote excel à partir de VB6 et je dois réaliser un graph sur une feuille excel.
    voici un bout de code
    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
    For k = 1 To i - 1
        XL.Sheets("feuil" & k).Select
        nbepoint = 35 + Text2.Text
     
     
        XL.Range("C35:C" & nbepoint & ";F35:F" & nbepoint).Select
        XL.Charts.Add
        XL.ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
        XL.ActiveChart.SetSourceData Source:=XL.Sheets("feuil" & k).Range("C35:C" & nbepoint & ";F35:F" & nbepoint), PlotBy:=xlColumns
        XL.Sheets("feuil" & k).Select
        XL.ActiveChart.Location Where:=xlLocationAsObject, Name:="feuil" & k
        With ActiveChart
            .HasTitle = False
            .Axes(xlCategory, xlPrimary).HasTitle = True
            .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "aaaaa"
            .Axes(xlValue, xlPrimary).HasTitle = True
            .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "bbbbb"
        End With
        XL.ActiveSheet.Shapes("Graphique " & k).IncrementLeft -173.25
        XL.ActiveSheet.Shapes("Graphique " & k).IncrementTop 13155.75
    Mon problème vient de la zone marquée en rouge car Pour le prog, name = nom de la form sur lequel le code s'éxécute (name=form6)

    si quelqu'un a une idée?

    par avance merci

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    peu-être :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
       XL.ActiveChart.Location xlLocationAsObject, "feuil" & k

  3. #3
    Membre confirmé Avatar de biquet
    Homme Profil pro
    Inscrit en
    Juillet 2003
    Messages
    199
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Juillet 2003
    Messages : 199
    Par défaut
    merci pour la réponse mais si j'ai 2 feuille excel, il me met les graph sur la feuille 2 et si j'ai 20 feuille excel, il me met tout mes graph sur la feuille 20

    une autre possibilité?


    merci

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2005
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2005
    Messages : 44
    Par défaut
    Pour ma part, je n'ai jamais réussi à mettre mes graphes directement dans la bonne feuille (ils vont tous se mettre dans la 1ere feuille du classeur).

    Donc ma solution a été de couper et coller à postériori mes graphes de ma 1ere feuille à la feuille voulue (c'est pas très clean mais ça marche ).

Discussions similaires

  1. création de graphique Excel depuis VB6
    Par jeanjean0403 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 27/04/2009, 13h08
  2. [VB6] Copie graphique excel dans picturebox (problème)
    Par Xerath dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 10/01/2008, 15h47
  3. Exportation d'un graphique VB6 sous Excel.
    Par eldiablo13 dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 13/10/2007, 15h42
  4. création graphique excel à partir VB6
    Par getea85 dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 06/10/2005, 14h59
  5. [VB6]Ouvril excel a une certaine feuille a partir de VB
    Par tomrou59 dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 28/07/2003, 12h17

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