Macro graphique je craque !!

  • Initiateur de la discussion Initiateur de la discussion Creepy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
619
Réponses
9
Affichages
893
Retour