C
Creepy
Guest
Bonjour à tous,
J'essaie de faaire des Mapping (Graphique en croix avec des points). Mes données en X et Y sont de ce type : 25 23 NA 22 21.
Sachant que le NA est inseré de facon aléatoire (definit par l'utilisateur).
En faites mes premiers chiffres representent mon année N-1 & les deuxièmes mon année en cours.
Comment faire pour que :
1 - Mes premiers chiffres soient en noire dans mon graph et les deuxième en rouge ?
2 - Je voudrais ecrire des libellés d'etiquette et noms des valeurs comme proposé dans la création de graph (parexemple je voudrais le titre (DEDE) correspondant à 25 à coté du point et non cette valeur. Ainsi je peux distinguer mon dede N-1 et mon DEDE N sur le graph !
Merci d'avance
++
Creepy
Ps : Voici le code source de mon bouton qui génère mes points !
Dim Saut1 As String
Dim Saut2 As String
Dim Nom1 As Variant
Saut1 = Feuil1.Range("c12").End(xlToRight).Address
Saut2 = Feuil1.Range("c27").End(xlToRight).Address
Nom1 = Feuil1.Range("c1").End(xlToRight).Address
Sheets("Graph AGE-NF").Select
With Sheets("Graph AGE-NF")
.ChartType = xlXYScatter
.SetSourceData Source:=Sheets("AGE-NF").Range("C1:" & Nom1), PlotBy:=xlColumns
.SeriesCollection(1).XValues = Sheets("AGE-NF").Range("c12:" & Saut1)
.SeriesCollection(1).Values = Sheets("AGE-NF").Range("c27:" & Saut2)
.ActiveChart.SeriesCollection(1).Name = Sheets("AGE-NF").Range ("c27:" & Nom1)
.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue, _
AutoText:=True, LegendKey:=False, HasLeaderLines:=True
End With
End Sub
J'essaie de faaire des Mapping (Graphique en croix avec des points). Mes données en X et Y sont de ce type : 25 23 NA 22 21.
Sachant que le NA est inseré de facon aléatoire (definit par l'utilisateur).
En faites mes premiers chiffres representent mon année N-1 & les deuxièmes mon année en cours.
Comment faire pour que :
1 - Mes premiers chiffres soient en noire dans mon graph et les deuxième en rouge ?
2 - Je voudrais ecrire des libellés d'etiquette et noms des valeurs comme proposé dans la création de graph (parexemple je voudrais le titre (DEDE) correspondant à 25 à coté du point et non cette valeur. Ainsi je peux distinguer mon dede N-1 et mon DEDE N sur le graph !
Merci d'avance
++
Creepy
Ps : Voici le code source de mon bouton qui génère mes points !
Dim Saut1 As String
Dim Saut2 As String
Dim Nom1 As Variant
Saut1 = Feuil1.Range("c12").End(xlToRight).Address
Saut2 = Feuil1.Range("c27").End(xlToRight).Address
Nom1 = Feuil1.Range("c1").End(xlToRight).Address
Sheets("Graph AGE-NF").Select
With Sheets("Graph AGE-NF")
.ChartType = xlXYScatter
.SetSourceData Source:=Sheets("AGE-NF").Range("C1:" & Nom1), PlotBy:=xlColumns
.SeriesCollection(1).XValues = Sheets("AGE-NF").Range("c12:" & Saut1)
.SeriesCollection(1).Values = Sheets("AGE-NF").Range("c27:" & Saut2)
.ActiveChart.SeriesCollection(1).Name = Sheets("AGE-NF").Range ("c27:" & Nom1)
.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue, _
AutoText:=True, LegendKey:=False, HasLeaderLines:=True
End With
End Sub