probleme graphique

probleme graphique - VB/VBA/VBS - Programmation

Marsh Posté le 24-07-2006 à 10:41:33    

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 :)

Reply

Marsh Posté le 24-07-2006 à 10:41:33   

Reply

Marsh Posté le 24-07-2006 à 13:08:16    

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 ?

Reply

Marsh Posté le 24-07-2006 à 13:29:51    

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 :)

Reply

Marsh Posté le 24-07-2006 à 13:52:56    

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 ?

Reply

Marsh Posté le 25-07-2006 à 08:33:54    

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

Reply

Marsh Posté le 25-07-2006 à 09:23:54    

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

Reply

Marsh Posté le 26-07-2006 à 14:45:54    

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

Reply

Marsh Posté le 26-07-2006 à 14:46:49    

Finalement t'as besoin de personne pour discuter  :lol:


Message édité par Paul Hood le 26-07-2006 à 14:47:12
Reply

Marsh Posté le 26-07-2006 à 15:05:44    

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

Reply

Marsh Posté le 26-07-2006 à 15:49:44    

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 ?

Reply

Marsh Posté le 26-07-2006 à 15:49:44   

Reply

Marsh Posté le 26-07-2006 à 16:16:43    

GillooZ a écrit :

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 ?

Reply

Marsh Posté le 27-07-2006 à 08:34:43    

hmm je ne vois pas de kel post tu parles

Reply

Marsh Posté le 27-07-2006 à 09:58:18    

GillooZ a écrit :

hmm je ne vois pas de kel post tu parles


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

Reply

Marsh Posté le 28-07-2006 à 10:35:24    

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 !

Reply

Marsh Posté le 31-07-2006 à 09:20:24    

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

Reply

Marsh Posté le 31-07-2006 à 11:44:47    

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

Reply

Marsh Posté le 01-08-2006 à 09:26:28    

tjs personne pour mon pb graphique ? LOL

Reply

Marsh Posté le 07-08-2006 à 09:35:01    

relance du lundi !
 
upPpPpP

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed