Discussion :

[jpclabaux]

Bonjour,
J'ai une macro installée sur différentes versions d'Excel.
Je donne la possibilité aux utilisateurs de choisir de type de graphique qui sera généré.
Est-il possible de lister les types de graphiques disponibles dans la version d'Excel utilisée pour pouvoir afficher cette liste et leur permettre de choisir?
Merci.
Jean

[Theze]

Bonjour,

Une éventuelle piste qu'il va te falloir adapter car pour le type de graphique, seul le numéro est retourné et non la constante qui le représente et je n'ai pas trouvé comment récupérer cette dernière. Dans la fenêtre d'exécution le résultat des constantes et un message pour le nombre de types :

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
 
Sub Graphique()
 
    Dim Fe As Worksheet
    Dim Dico As Object
    Dim Cle As Variant
    Dim Graph As Shape
    Dim S As Shape
    Dim I As Integer
 
    Set Fe = ActiveSheet
    Set Dico = CreateObject("Scripting.Dictionary")
 
    'pour 2007, il m'est retourné 52 types de graphique avec comme maximum, la valeur 112
    'alors que quand je compte manuellement le nombre de propositions avec "ChartType = "
    'j'en trouve 73 !
    For I = 1 To 200
 
        On Error Resume Next
        Set Graph = Fe.Shapes.AddChart(I)
 
        Dico(Graph.Chart.ChartType) = Graph.Chart.ChartType
 
    Next I
 
    'dans la fenêtre d'exécution
    For Each Cle In Dico.Keys
 
        Debug.Print "Numéro du graphique : " & Cle
 
    Next Cle
 
    MsgBox "Il y a " & Dico.Count & " posibilités de graphiques !"
 
    'suppression des graphiques
    For Each Graph In Fe.Shapes
 
        If InStr(Graph.Name, "Graph") <> 0 Then
 
            Graph.Delete
 
        End If
 
    Next Graph
 
End Sub

[clementmarcotte]

Bonjour,

Bonjour,

Une éventuelle piste qu'il va te falloir adapter car pour le type de graphique, seul le numéro est retourné et non la constante qui le représente et je n'ai pas trouvé comment récupérer cette dernière. Dans la fenêtre d'exécution le résultat des constantes et un message pour le nombre de types :

La liste est là


En pratique, peut-être en se faisant une Table de référence à quelque part dans un classeur.

[Theze]

Bonjour,

Bonjour Clément et merci pour la liste que je ne connaissais pas, et bien, comme tu dis, il suffit de se faire un tableau de correspondance !

[jpclabaux]

Bonjour et merci à vous deux!

Ca répond parfaitement à mon besoin.
Bonne journée!