{VBA Excel}Questions sur la creation graphique

Version imprimable

Edit AlainTech: Le message original était de Thomas69 et la réponse de ferronimus.
Suite à une fausse manoeuvre les 2 messages ont été fusionnés.

Voila j'ai réaliser ce code grace a l'enregistreur
mais je voudrais y apporter une modification

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub graph()
'
' graph Macro
' Macro enregistrée le 06/08/2007 par GS
'
' Touche de raccourci du clavier: Ctrl+a
'
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Sheets("Production").Range("A1:K1045"), _
        PlotBy:=xlColumns
    ActiveChart.SeriesCollection(2).Delete
    ActiveChart.SeriesCollection(1).Name = "=Production!R2C8:R2C8"
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = _
        "Phase 11.1 - CHARGEMENT MANUEL - EMPATAGE CAF 2534"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "LOTS"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Valeurs"
    End With
    ActiveChart.HasLegend = False
End Sub

le rouge est le titre de mon graphe
mais je voudrais faire apparaitre en titre le nom de l'action en cours donc si je change le nom de l'action sur mon graphe suivant le nom doit changer
et la ce n'est pas le cas et je ne vois pas comment faire

un ptite idée svp

ave une inputbox pour savoir quelle est le nom de l'action en cour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub graph()
dim graph_name as string
 
graph_name=inputbox("non de l'action en cour??")
 
 
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Sheets("Production").Range("A1:K1045"), _
        PlotBy:=xlColumns
    ActiveChart.SeriesCollection(2).Delete
    ActiveChart.SeriesCollection(1).Name = "=Production!R2C8:R2C8"
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = graph_name
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "LOTS"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Valeurs"
    End With
    ActiveChart.HasLegend = False
End Sub

06/08/2007, 08h37
Thomas69

le titre ce trouve dans la colonne H mais sur une ligne que je connais pas vu que je fais un trie avant la selection de mon graphique

ferronimus tu as une trouvée une bonne solution mais bon sachant que la personne va créer plusieurs graphique je voulais bien le reprendre le nom de l'action automatiquement
06/08/2007, 08h46
ferronimus

Pr le nom de ton graph il faut plus d'information, si tu sait pas comment il s'apelle et qu'il est placé de façon aléatoire, on va avoir du mal a le trouvé.
06/08/2007, 08h49
Thomas69

si l'utilisateur connait le nom de la phase car il l'as lui meme selectionner
je sais qu'il est place dans la colonne H mais apres la ligne cela varie

un coup ca va etre la ligne 5 et apres la 18

c'est pour ca que le numéro de la ligne je le recupere par rapport a la cellule activée
06/08/2007, 08h53
ferronimus

alor si c'est par rapport à la cellule selectionné tu peus mettre :

Code:

graph_name=selection.value

au début à la place de la inputbox
06/08/2007, 09h07
Thomas69

ca me fait a chaque fois comme titre FAUX
06/08/2007, 09h23
AlainTech

Désolé...
J'ai fait une fausse manoeuvre.
J'ai fusionné la question de Thomas69 et la réponse de ferronimus dans le premier message.
Je vais essayer de réparer.
06/08/2007, 09h53
Thomas69

j'ai toujours rien de trouver et vous de votre coté une idée un ancien sujet peut etre?
06/08/2007, 10h14
ferronimus

Une question comment lance tu ta macro, pendant la macro selectionne tu une feuille, une cellule, une plage de cellule
06/08/2007, 10h17
Thomas69

sur mon tableau excel je choisis le produit plusieurs lots s'affiche
je choisis apres une action
et les valeurs de cette action s'affiche avec tous les lots

et la je clique sur un bouton qui lance ma macro

et je ne selectionne rien de speciale
moi j'ai essayer de laisser une cellule avec le titre qui m'interressait selectionné

et dans le useform je mettais la cellule selectionné mais je n'y arrive pas
06/08/2007, 10h32
ferronimus

Moi en selectionnant, la cellule comportant le titre puis en lançant ma macro de différentes façon sa fonctionne j'ai bien le nom voulu sur le graph, peus tu présenter les actions à effectuer par l'utilisateur et par la macro tu parle d'userform il sert a quoi

pour avoir toujours le contenu de la dernière cellule sélectionnée...

Code:

1
2
3
4
5
6
7
8
9
10
11
'Dans un module
Dim a$
 
'Dans la feuille de sélection
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a$ = Target.Text
End Sub
 
'et enfin.. dans la Macro
 
.ChartTitle.Characters.Text =a$

Essaye avec ça..
A+

06/08/2007, 10h37
Thomas69

c'est bon je viens de comprendre
il y avait une erreur dans mon code que j'avais modifier pour afficher un autre type de graphique

c'est bon ton code marche parfaitement c'est moi qui est fait l'erreur
désolé

merci pour ton aide
tu peux mettre resolu