Réaliser une macro en VBA pour excel afin de créer un graphe

Version imprimable

04/12/2005, 12h03
xavier le breuil

Réaliser une macro en VBA pour excel afin de créer un graphe

BONJOUR,

Je souhaite faire une macro qui dessine un graphe.

J'ai utilisé pour cela l'enregistreur automatique d'excel.

Mais voila lorsque je veux utiliser cette macro avec un autre classeur elle bloque sur :

ActiveChart.SetSourceData Source:=ActiveSheet(TOTO_1).Range( _
"FX1:FX3343,GW1:GW3343,HD1:HD3343"), PlotBy:=xlColumns

Car ActiveSheet(TOTO_1) change de nom et peux etre sous le nouveau classeur "TOTO_2" que dois je faire pour éliminer ce problème.

Merci de votre aide

Ps je peux vous faire parvenir les données que je traite si cela peux vous aider.
04/12/2005, 12h52
SfJ5Rpw8

d'ou sort ce code :

Code:

ActiveSheet(TOTO_1)

il ne me semble pas correct ?

ensuite , toto_1 et toto_2 c'est quoi un classeur une feuille?

Bonjour bbil

voici le code entier de cette macro qui me pose certain probleme lorsque je souhaite l'utiliser dans un autre classeur comptenant les mêmes type de données, mais dont la feuilles active "TOTO_1" s'appelle "TOTO_n"

je peux t'envoyer le fichier et la macro si tu le souhaite

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub data1vsdatas()
'
' data1vsdatas Macro
' Macro enregistrée le 04/12/2005 par Administrateur
'
 
'
    Columns("FX:FX").Select
    ActiveWindow.SmallScroll ToRight:=27
    Range("FX:FX,HD:HD,HE:HE,GY:GY").Select
    Range("GY1").Activate
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("TOTO_1").Range( _
        "FX1:FX6467,GY1:GY6467,HD1:HE6467"), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="DATA vs DATAS 234"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "DATA1 vs DATAs 2;3;4"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveChart.SeriesCollection(4).Select
    ActiveChart.SeriesCollection(4).AxisGroup = 2
    ActiveChart.SeriesCollection(3).Select
    ActiveChart.SeriesCollection(3).AxisGroup = 2
    ActiveChart.SeriesCollection(2).Select
    ActiveChart.SeriesCollection(2).AxisGroup = 2
    ActiveChart.Legend.Select
    Selection.Left = 449
    Selection.Top = 1
    Selection.Width = 269
    Selection.Height = 38
    ActiveChart.ChartTitle.Select
    Selection.Left = 42
    Selection.Top = 2
    ActiveChart.ChartArea.Select
    ActiveChart.Legend.Select
    Selection.Left = 303
    Selection.Width = 409
    ActiveChart.PlotArea.Select
    Selection.Width = 707
    With Selection.Border
        .ColorIndex = 16
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    Selection.Interior.ColorIndex = xlNone
    ActiveChart.Legend.Select
    ActiveChart.Legend.LegendEntries(3).LegendKey.Select
    With Selection.Border
        .ColorIndex = 3
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = xlNone
        .MarkerForegroundColorIndex = xlNone
        .MarkerStyle = xlNone
        .Smooth = False
        .MarkerSize = 3
        .Shadow = False
    End With
End Sub

.. comment lance tu ta macro ... ? si tu la lance depuis la feuille contenant les données..
voici le debut de conde à modifier pour mémoriser dans une variable range la plage servant comme source de donnéee..
Code:

1 2 3 4 5 6 7 8 9 10 11 .. Dim rSource As Range ' Definie source données Set rSource = ActiveSheet.Range("FX:FX,HD:HD,HE:HE,GY:GY") Charts.Add ActiveChart.ChartType = xlLine ActiveChart.SetSourceData Source:=rSource _ , PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="DATA vs DATAS 234" With ActiveChart ...
Attention la ligne
Code:

1 2 ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="DATA vs DATAS 234"
définit l'emplacement du graphique dans nouvelle feuille nommée "DATA vs DATAS 234" , nom qui doit être unique dans le classeur !...

04/12/2005, 14h35
xavier le breuil

Merci bbil

c'était si simple !!! :oops:

J'ai pourtant passer pas mal d'heures sur le net et dans les bouquins sans trouver la solution.

Je savais que cette macro pouvais etre simplifier sur beaucoup de domaine mais je buttais toujours sur cette fonction "ActiveChart.SetSourceData Source:= ;;;;"

peux tu m'expliquer ton choix :

Dim rSource As Range
Set rSource = ActiveSheet.Range("FX:FX,HD:HD,HE:HE,GY:GY")

est une donnée spécifique à VBA

Encore milles merci car vue l'ensemble de graph que j'ai à traiter et la taille des fichiers, je peux t'assurer que ton aide ma été +++que précieuse.

Juste une dernière question

Dans ce cas on ne traite pas le fait qu'il y est des cellules vides dans les colonnes FX HD HE GY est cela peux poser un problème lorsqu'il ya moins de données.

A+

Je pense que je ferais encore appel à ta maitrise du code VBA d'ici quelques jours.

Bon Dimanche
:D
04/12/2005, 14h41
xavier le breuil

.. comment lance tu ta macro ... ?

Juste pour répondre à ta question BBIL

Oui je la lance à partir de la feuille de donées, j'espère même arriver à lui affecter un bouton sur une barre perso, car comme je te le disais précédement j'ai pas mal de graphe à réaliser.

Salut