[SOS] Multi courbes sur meme graphe

[Benzema]

Bonjour,

Je cherche a tracer plusieurs courbes sur 1 meme graphe.
En effet, jai plusieurs rapport avec les memes colonnes a tracer en X et Y a chaque fois, mon but est de pouvoir comparer tous ces rapports en tracant les courbes sur le meme graph.

J'ai essayer avec 1 boucle For mais il ya recouvrement du graphe par le dernier rapport, si quelqu'un as un exemple simple je suis preneur car je deviens fous...

Merci de votre aide et vos lumiere, car moi mon ampoule a grille ^^

Clem

 

[Benzema]

Re : [SOS] Multi courbes sur meme graphe

Bon bah, apres mettre enerve jai reboot le pc et comme par magie ca marche... Malgres les fermetures de excel que javais fait.

Merci de ton aide, je vais tenter de perseverer maintenant =)

 

[Benzema]

Re : [SOS] Multi courbes sur meme graphe

Salut Pierrot,

J'ai une question sur ton code:

.Values = Sheet4.Range("B31:B33")

Si je remplace B31:B33 par une variable Range declaree globale est ce que ca marche ? (J'aimerai tracer les memes cellules que celle de la feuille "TX_WAN..." avec la sheet4 donc je tente de passer par 1 variable globale, mais ca ne marche pas trop !)

Merci,
Bon aprem
Clem

 

[Pierrot93]

Re : [SOS] Multi courbes sur meme graphe

Bonjour,

si ta variable est de type "range" cela devrait passer.... A voir comment elle est déclarée et initialisée...

bonne fin d'après midi
@+

 

[Benzema]

Re : [SOS] Multi courbes sur meme graphe

Je pense que l'erreur vient du fait que j'ai une adresse d'une cellule d'une feuille, et je veux utiliser la meme adresse mais pour 1 autre feuille et excel apprecie moyennement !

Merci,
Clem

Option Explicit



Public c As ChartObject
Public calc As Range, y As Range, y1 As Range, x As Range, numreport As Integer, s As Series

Public y_choice As Range, y1_choice As Range, x_choice As Range, v As Range

Sub tests()
' tests Macro
' Macro recorded 14.10.2010 by Amilien 19.10.2010






'Calculate the number of values in a column
Set calc = Range("A:A").Find("not implemented", , xlValues, xlWhole, , , False)


'Y-axis selection---------------------------------------------------------------------------------

If Not calc Is Nothing Then
Set y_choice = Application.InputBox("Choose the Y axis column (address title's cell)", Type:=8)
'Calculate the number of values in a column
Set y = Range(y_choice.Offset(1, 0), Cells(calc.Row - 1, y_choice.Column))
y.Name = "y": y_choice.Name = "y_choice"

End If

If Not calc Is Nothing Then
Set y1_choice = Application.InputBox("Choose the Y1 axis column (address title's cell)", Type:=8)

Set y1 = Range(y1_choice.Offset(1, 0), Cells(calc.Row - 1, y1_choice.Column))

y1.Name = "yy": y1_choice.Name = "y1_choice"
End If


'X-axis selection----------------------------------------------------------------------------------

If Not calc Is Nothing Then
Set x_choice = Application.InputBox("Choose the X axis column (address title's cell)", Type:=8)
Set x = Range(x_choice.Offset(1, 0), Cells(calc.Row - 1, x_choice.Column))
x.Select

x.Name = "x": x_choice.Name = "x_choice"

End If







' Chart configurations ---------------------------------------------------------------------------------

With Sheets("Sheet1")
Set c = .ChartObjects.Add(.Range("G15").Left, .Range("G15").Top, 800, 400)
End With

With c.Chart
.ChartType = xlLineMarkers
.SetSourceData Source:=Sheets("TX_WLAN_11n_framed_802.11n_HT40").Range("y,yy"), PlotBy:=xlColumns
.SeriesCollection(1).XValues = "=TX_WLAN_11n_framed_802.11n_HT40!x"
.SeriesCollection(2).XValues = "=TX_WLAN_11n_framed_802.11n_HT40!yy"

.SeriesCollection(2).AxisGroup = 2
.HasTitle = True
.ChartTitle.Characters.Text = "XY Graph"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = Range("x_choice")
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = Range("y_choice")
.Legend.Position = xlBottom
.Legend.Font.Size = 8
.Legend.Font.Bold = True
.ChartTitle.Text = "XY Graph"
.ChartTitle.Font.Size = 8
.ChartTitle.Font.Bold = True
.Axes(xlCategory).TickLabels.Font.Size = 8
.Axes(xlValue).TickLabels.Font.Size = 8
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = Range("y1_choice")
.SeriesCollection(1).Name = Range("y_choice")
.SeriesCollection(2).Name = Range("y1_choice")
End With



End Sub

Sub rajoutSerie()
Dim c As ChartObject, s As Series

Sheet2.Select

'Calculate the number of values in a column
Set calc = Range("A:A").Find("not implemented", , xlValues, xlWhole, , , False)


'Y-axis selection---------------------------------------------------------------------------------


'Calculate the number of values in a column
y = Range(y_choice.Offset(1, 0), Cells(calc.Row - 1, y_choice.Column))


y1 = Range(y1_choice.Offset(1, 0), Cells(calc.Row - 1, y1_choice.Column))


Set c = Sheet2.ChartObjects(1)
With c.Chart
Set s = .SeriesCollection.NewSeries
With s
.Values = Sheet4.Range("y")
.Name = Sheet2.Range("A1").Text
End With
End With
End Sub

 

[Pierrot93]

Re : [SOS] Multi courbes sur meme graphe

Re,

essaye ceci :

.Values = y

logiquement; l'objet "range" si il est convenablement initialisé, comporte le nom de la feuille dont il est "parent"....

 

[Benzema]

Re : [SOS] Multi courbes sur meme graphe

Merci ca marche,
du coup comment trouver 1 moyen pour garder que l'adresse d'une cellule sans avoir la feuille de calcul avec....?

Parce que la du coup je retrace les memes courbes par dessus pas trop utiles ^^

Bon journee

 

[Pierrot93]

Re : [SOS] Multi courbes sur meme graphe

Bonjour,

regarde ceci :

Dim c As Range, a As String
Set c = Range("A1:D1")
a = c.Address
MsgBox a

bonne journée
@+

 

[Benzema]

Re : [SOS] Multi courbes sur meme graphe

Re,

Ah tout s'explique il faut passer par 1 string !
J'apprend pas mal de truc grace a toi merci !

Dim c As Range, a As String
Set c = Range("A1: D1")
a = c.Address
MsgBox a

Si j'ai declarer a en globale :

Public a as String, b as range

dans ma deuxieme fonction ou j'opere sur une autre feuille, si je fais

b.Adress=a

le compilateur dit "Assignment to constant not permited"

ca ne peut pas marcher car il s'agit d'un string, ya t'il une subtilite pour recuperer les adresses stocker dans a ?

Bon ap'!

 

[Pierrot93]

Re : [SOS] Multi courbes sur meme graphe

Re,

Aarf, désolé j'avais zappé, mais je vois que tu as eus une réponse ici :
https://www.excel-downloads.com/threads/modifier-un-string-en-adresse-de-cellule.152242/
bonne soirée
@+