Discussion :

[raziel33]

Bonjour à tous, j'ai deux questions concernant les graphiques :

Première question : j'ai construit plusieurs graphiques qui traitent tous un même sujet (la population) mais sur des périodes différentes (années).
J'ai une page de données où l'utilisateur rentre entre autre l'année qu'il souhaite étudier.
Je voudrais que le titre de mes graphiques soient : " Population de la France en "l'année entrée par l'utilisateur". "
Et pour le moment je n'arrive qu'à afficher la partie "fixe" de mon titre à savoir : "Population de la France en..."
Comment faire pour insérer dans mon titre un texte variable rattaché à une cellule?

voici mon code même si je doute qu'il soit très utile pour cette question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With Sheets("Données")
    Charts.Add.Name = "Population"
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range(.[B3], .[IV3].End(xlToLeft)), _
                PlotBy:=xlRows
    ActiveChart.Location Where:=xlLocationAsNewSheet
    End With

Seconde question : comment faire pour graduer les axes comme je le souhaite et de manière dynamique?
Par exemple si j'ai une variable N, comment avoir un axe des abscisses gradué de -N à N.

merci d'avance


P.S : ah oui est-il possible d'afficher les numéros de ligne lorsque l'on codeen VBA sur une macro?

[SilkyRoad]

bonsoir

Comment faire pour insérer dans mon titre un texte variable rattaché à une cellule?

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveChart.ChartTitle.Text = 
	"Population de la France en " & Worksheets("Feuil2").Range("B2")

est-il possible d'afficher les numéros de ligne lorsque l'on codeen VBA sur une macro?

Tu peux installer l'utilitaire gratuit MZtools:
http://excel.developpez.com/outils/?page=vbe#mztools


bonne soirée
michel

[raziel33]

Parfait, ça marche très bien.

merci beaucoup

Une petite idée pour ma deuxième question :
"comment faire pour graduer les axes comme je le souhaite et de manière dynamique?
Par exemple si j'ai une variable N, comment avoir un axe des abscisses gradué de -N à N."

[SilkyRoad]

bonsoir


Tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim N As Integer, x As Integer
Dim Tableau()
 
N = 5
ReDim Tableau(-N To N)
 
For x = -N To N
    Tableau(x) = x
Next x
 
ActiveChart.SeriesCollection(1).XValues = Tableau

bonne soirée
michel