je crée un graphique sur excel avec du code vba avec une source de données prédéfinie.
 
Mais sur ce meme graphique j'aimerai insérer d'autre courbe venant d'une autre plage de données avec des formes différentes pour pouvoir bien différencier les 2, sans evidement changer le noms de mes abscisses et ordonnées du graphe.
 
voici mon code pour générer mon graphique :
 
Dim GraphPPMTypeDef As Chart
    Set GraphPPMTypeDef = ThisWorkbook.Charts.Add
    GraphPPMTypeDef.ChartType = xlColumnStacked
    GraphPPMTypeDef.ChartArea.Interior.Color = vbWhite
    ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 8.25, 9#, 89.25, 21.75).Select
    If OptionButtonPPM.Value = True Then
        Selection.Characters.Text = "Information graphique PPM Type défaut"
    ElseIf OptionButtonPPDM.Value = True Then
        Selection.Characters.Text = "Information graphique PPDM Type défaut"
    End If
    GraphPPMTypeDef.SetSourceData _
                Source:=Sheets("Base de donnees DOPA" ).Range("donnee" ), _
                PlotBy:=xlColumns
    With GraphPPMTypeDef
        .HasTitle = True
            With .ChartTitle
                If DenoAppro.Value = True Then
                    .Characters.Text = "Indicateur PPM Appro pièces"
                ElseIf DenoCollec.Value = True Then
                    .Characters.Text = "Indicateur PPM Collection"
                ElseIf DenoApCol.Value = True Then
                    .Characters.Text = "Indicateur PPM Appro pièces + Collection"
                End If
                .Shadow = True
                .Border.Weight = xlColumns
            End With
    End With
    GraphPPMTypeDef.Location _
        Where:=xlLocationAsObject, _
        Name:="Graphiques Indicateurs"
    End If
 
j'ai déjà essayé de rentrer une nouvelle série mais celle ci s'incorpore aux données déjà existante et je vois pas comment l'afficher dans une autre forme graphique que xlColumnStacked.
 
Voila si vous avez des questions parce que vous ne comprenez pas mon pb hésitez pas
 
Merci bcp

en fait j'aimerai avec mon meme graphique GraphPPMTypeDef, gérer 2 plages en meme temps, une avec des colonnes pour les données et une avec des lignes par exemple pour les objectifs
c'est possible via vba ?

J'ai essayé la dedans  
GraphPPMTypeDef.SetSourceData _  
                Source:=Sheets("Base de donnees DOPA" ).Range("donnee" ), _  
                PlotBy:=xlColumns  
'je rajoute une plage
                Source:=Sheets("Base de donnees DOPA" ).Range("AutrePlage" ), _  
                PlotBy:=xlColumns         <----
 
et la je voudrai les mettres en courbes mais je connais pas le nom
 
mais de ttes facons avec 2 plages ca marche pas, mais suis je peut etre dans une bonne direction ???
 
Merci

j'ai essayé aussi de rajouter ceci avant ma deuxieme plage :
 
GraphPPMTypeDef.ChartType = xlLine
 
mais du coup toutes mes données sont en lignes
 
faut il créer 2 graphiques et les collés en meme tps ou on peut tout faire sur un seul ?

personna sait afficher 2 plages de données différentes sur un meme graphiques avec des style différents ?
 
une plage en colonne : xlColumns
une plage en ligne : xlLine

ou alors juste pour rajouter une ligne correspnodant à une valeur dans une cellule, pour avoir une ligne d'objectif par exemple

personne sait rajouter une ligne sur un graphique existant en code vBa ?
 

Finalement t'as besoin de personne pour discuter  

lol c'est clair je fais mon monologue comme un grand ^^

ou alors dans une plage, par exemple si la table de données est un tableau a 8 colonnes, de mettre les 6 premieres en xlColumns et de mettre les 2 dernieres en xlLine
 
Possible ?

ces questions ne recoupent-elles pas les infos déjà fournies sur le topic proche de celui-ci, dont tu es à l'origine et où Paul t'avait déjà filé des réponses ?

hmm je ne vois pas de kel post tu parles

http://forum.hardware.fr/hardwaref [...] 2860-1.htm par exemple

code :  
Dim GraphPPMTypeDef As Chart
    Set GraphPPMTypeDef = ThisWorkbook.Charts.Add
    GraphPPMTypeDef.ChartType = xlColumnStacked
    GraphPPMTypeDef.ChartArea.Interior.Color = vbWhite
    ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 8.25, 9#, 89.25, 21.75).Select
    If OptionButtonPPM.Value = True Then
        Selection.Characters.Text = Now()
    ElseIf OptionButtonPPDM.Value = True Then
        Selection.Characters.Text = "Information graphique PPDM Type défaut"
    End If
    GraphPPMTypeDef.SetSourceData _
                Source:=Sheets("Base de donnees DOPA" ).Range("donnee" ), _
                PlotBy:=xlColumns
    Dim Objectif As Series
        Set Obejectif = GraphPPMTypeDef.SeriesCollection.NewSeries
        Objectif.Values = Worksheets("Base de donnees DOPA" ).Range("F17" )
        Objectif.Name = "=" & .Name & "D17"
    With GraphPPMTypeDef
         
        .HasTitle = True
            With .ChartTitle
                If DenoAppro.Value = True Then
                    .Characters.Text = "Indicateur PPM Appro pièces"
                ElseIf DenoCollec.Value = True Then
                    .Characters.Text = "Indicateur PPM Collection"
                ElseIf DenoApCol.Value = True Then
                    .Characters.Text = "Indicateur PPM Appro pièces + Collection"
                End If
                .Shadow = True
                .Border.Weight = xlColumns
            End With
    End With
    GraphPPMTypeDef.Location _
        Where:=xlLocationAsObject, _
        Name:="Graphiques Indicateurs"
 
 
erreur : reference incorrect ou non qualifié (erreur sur le .Name de la nouvelle serie)
 
j'avance un peu mais petit blocage !

a mon avis il faut creer une nouvelle serie et pouvoir definir un nouveau type graphique (xlLine)

ya personne qui sait rajouter une serie a un graph ici et qui sait comment la faire apparaitre avec une autre methode graphique ???

tjs personne pour mon pb graphique ? LOL

relance du lundi !
 
upPpPpP