Discussion :

[castiel38]

Bonjour,

J'ai un travail à faire où je dois réaliser des graphiques pertinents. On me demande d’offrir la possibilité d’afficher un type de graphique au choix par l’insertion d’un bouton de commande. Pour cela, j'ai utilisé Excel 2007.

Comment faire ce qui est demandé ?
J'ai tout testé pour générer des graphiques en cliquant sur un bouton de commande mais rien ne marche et je n'y connais rien non plus en Macros.

Merci pour votre aide.

[Invité]

Bonjour,

Avez-vous regardé la FAQ Excel ? Générer des graphiques

Cordialement.

[Invité]

regardes la pièce joint

[castiel38]

Bonjour,

Alors j'ai regardé sur le forum, mais je n'ai pas trouvé ce que je cherche.
rdurupt, merci pour ta pièce joint mais cela ne correspond pas avec ce que je dois faire.
En bidouillant les macro et en adaptant quelques tuto trouvés sur internet. j'ai réussi à générer des graphiques en appuyant sur un bouton de commande ActivieX.

Je vous explique :
J'ai créé un UserFrom avec le VBA, appelé UserForm1 et j'ai inséré un premier graphique. En suite, j'ai créé un deuxième UserForm, nommé Userform2 et j'ai inséré un autre graphique. j'ai enregistré le tout. Puis je suis revenu sur ma feuille excel et j'ai créé un bouton de commande ActiveX. Pour ce bouton, j'ai inséré le code suivant à l'aide du VBA :

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
UserForm1.Show
UserForm2.Show
End Sub

J'enregistre le tout et je ferme le logiciel. Je l'ouvre à nouveau pour voir et tout fonctionne. Le problème c'est que je dois envoyer ce travail pas Mail et je ne sais pas si la personne,en cliquant sur le bouton, va pouvoir voir les graphiques. Je voulais donc savoir si il y a un code à rajouter pouvant fixer le tout de façon à pourvoir faire fonctionner les macros sur n'importe quel PC.

Merci pour vos réponses.

[Invité]

voilà tous les types de graphique que mon module de classe gère:

Code :

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

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
65
66
67
68
69
70
71
Enum Style
    ExlColumnClustered = xlColumnClustered
    ExlColumnStacked = xlColumnStacked
    ExlColumnStacked100 = xlColumnStacked100
    Exl3DColumnClustered = xl3DColumnClustered
    Exl3DColumnStacked = xl3DColumnStacked
    Exl3DColumnStacked100 = xl3DColumnStacked100
    Exl3DColumn = xl3DColumn
    ExlCylinderColClustered = xlCylinderColClustered
    ExlCylinderColStacked = xlCylinderColStacked
    ExlCylinderColStacked100 = xlCylinderColStacked100
    ExlCylinderCol = xlCylinderCol
    ExlConeColClustered = xlConeColClustered
    ExlConeColStacked = xlConeColStacked
    ExlConeColStacked100 = xlConeColStacked100
    ExlConeCol = xlConeCol
    ExlPyramidColClustered = xlPyramidColClustered
    ExlPyramidColStacked = xlPyramidColStacked
    ExlPyramidColStacked100 = xlPyramidColStacked100
    ExlPyramidCol = xlPyramidCol
    ExlLine = xlLine
    ExlLineStacked = xlLineStacked
    ExlLineStacked100 = xlLineStacked100
    ExlLineMarkers = xlLineMarkers
    ExlLineMarkersStacked = xlLineMarkersStacked
    ExlLineMarkersStacked100 = xlLineMarkersStacked100
    Exl3DLine = xl3DLine
    ExlPie = xlPie
    ExlPieExploded = xlPieExploded
    ExlPieOfPie = xlPieOfPie
    ExlBarOfPie = xlBarOfPie
    Exl3DPie = xl3DPie
    Exl3DPieExplodede = xl3DPieExploded
    ExlBarClustered = xlBarClustered
    ExlBarStacked = xlBarStacked
    ExlBarStacked100 = xlBarStacked100
    Exl3DBarClustered = xl3DBarClustered
    Exl3DBarStacked = xl3DBarStacked
    Exl3DBarStacked100 = xl3DBarStacked100
    ExlCylinderBarClustered = xlCylinderBarClustered
    ExlCylinderBarStacked = xlCylinderBarStacked
    ExlCylinderBarStacked100 = xlCylinderBarStacked100
    ExlConeBarClustered = xlConeBarClustered
    ExlConeBarStacked = xlConeBarStacked
    ExlConeBarStacked100 = xlConeBarStacked100
    ExlPyramidBarClustered = xlPyramidBarClustered
    ExlPyramidBarStacked = xlPyramidBarStacked
    ExlPyramidBarStacked100 = xlPyramidBarStacked100
    ExlArea = xlArea
    ExlAreaStacked = xlAreaStacked
    ExlAreaStacked100 = xlAreaStacked100
    Exl3DArea = xl3DArea
    Exl3DAreaStacked = xl3DAreaStacked
    Exl3DAreaStacked100 = xl3DAreaStacked100
    ExlXYScatter = xlXYScatter
    ExlXYScatterSmooth = xlXYScatterSmooth
    ExlXYScatterSmoothNoMarkers = xlXYScatterSmoothNoMarkers
    ExlXYScatterLines = xlXYScatterLines
    ExlXYScatterLinesNoMarkers = xlXYScatterLinesNoMarkers
    ExlDoughnut = xlDoughnut
    ExlDoughnutExploded = xlDoughnutExploded
    ExlBubble = xlBubble
    ExlBubble3DEffect = xlBubble3DEffect
    ExlRadar = xlRadar
    ExlRadarMarkers = xlRadarMarkers
    ExlRadarFilled = xlRadarFilled
    ExlSurface = xlSurface
    ExlSurfaceWireframe = xlSurfaceWireframe
    ExlSurfaceTopView = xlSurfaceTopView
    ExlSurfaceTopViewWireframe = xlSurfaceTopViewWireframe
End Enum

utilisation du module de classe:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
 
Dim Plage As Range
Dim Graph As New ClsGraph
Set Plage = Range("A1:C12")
Graph.Delete Sheets("Graph1"), "Graph1"
Graph.Nouveau Sheets("Graph1"), "Graph1"
Graph.Style ExlConeCol
Graph.Source Plage, xlRows
Graph.SeriesCollection "=Recap!$C$64:$CP$64"
Graph.SeriesCollection_Caption "Mois", msoElementPrimaryCategoryAxisTitleAdjacentToAxis
Graph.SeriesCollection_Caption "ETPs", msoElementPrimaryValueAxisTitleRotated
Graph.SeriesCollection_Caption "Plan de charge Technique groupé par famille", msoElementChartTitleAboveChart
Graph.Position 0, 0
Graph.Taille 550, 700
Graph.SeriesCollection_Visible
Graph.SaveAs_Image Sheets("Graph1"), "Graph1", ActiveWorkbook.Path & "\" & "graphe.gif"
 
End Sub

c'est pas ce que tu veux faire et bien dommage pour ma proposition.