Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1242 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Insertion de pls graphiques dans une feuille excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Insertion de pls graphiques dans une feuille excel

n°1706940
cmoicv
Posté le 24-03-2008 à 13:39:50  profilanswer
 

Bonjour,  
 
comme indiqué dans le sujet, je souhaite insérer plusieurs graphiques dans une même feuille excel, mais avec des données sources différentes. J'ai écrit un premier code générant le premier graphique. Il n'y a alors pas de problème. En revanche, quand j'utilise le même type de code pour générer le second graphique, j'obtiens l'erreur d'exécution 1004 : "la méthode cells de l'objet global a échoué". Pour VBA, les plages ne contiennent aucune donnée. Les variables utilisées sont définies par ailleurs et ne posent aucun pb. (j'ai testé le code du second graphique seul et il fonctionne).  
Voici le code utilisé :
 
Sub Graphmagn()
 
' Tracer un graphique : magnétisation en fonction de Béta
   
Dim Plagea As Range
Dim Plageb As Range
Dim Plage As Range
 
    ' Définir la plage de données
Set Plagea = Range(Cells(2, TR + 3), Cells(m + 1, TR + 3))
Set Plageb = Range(Cells(2, TR + 5), Cells(m + 1, TR + 5))
Set Plage = Union(Plagea, Plageb)
 
    'Propriétés du graphique
    Charts.Add
    ActiveChart.ChartType = xlXYScatterLines
    ActiveChart.SetSourceData SourcePlage, PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = _
        "Evolution de la magnétisation en fonction de la température"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Température Béta"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Magnétisation"
    End With
    ActiveChart.HasLegend = False
End Sub
 
 
Si quelqu'un pouvait m'aider à comprendre. Merci d'avance

mood
Publicité
Posté le 24-03-2008 à 13:39:50  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Insertion de pls graphiques dans une feuille excel

 

Sujets relatifs
Macro excel passer plusieurs variable[VBA] Bug de VBA EXCEL
Excel : Copier une valeur d'un onglet[Excel+VBA]Liste déroulante associée à une autre liste déroulante !
Récupération image dans un document ExcelExcel To Web
Comment protéger une macro dans excel de tout accès extérieurformulaire sous excel
Concatener tous mes classeurs ouverts EXCEL[Excel] Condition et changement de couleur
Plus de sujets relatifs à : Insertion de pls graphiques dans une feuille excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR