Discussion :

[breizhcola29]

Bonjour le forum,

j'ai un petit problème concernant un graph de type Radar, au niveau de la sélection de données. Voici le code

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
 
Sub graph()
 
    Dim objChart As Chart, valeur As Range, valeur2 As Range
 
	'A1:F1 correspond aux "titres" et A12:F12 correspond aux données
    Set valeur = Union(Worksheets("Feuille1").Range("A12:F12"), Worksheets("Feuille1").Range("A1:F1"))
    'Set valeur = Range("Donnees2")  'Plage de Données (A1 -> F1, A12 -> F12) , ne marche pas
 
    'Ajout du grahique en indiquant la source
    Set objChart = Workbooks(1).Charts.Add
    objChart.ChartType = xlRadarMarkers 'Type de graphique, en l'occurence radar
    objChart.SeriesCollection.Add _
        Source:=valeur
        'Ajout de la plage de données
        'Nom de la légende
    ActiveChart.SeriesCollection(1).Name = "Restitution des valeurs"
 
    With ActiveChart
        .Name = "Valeurs"
        .HasTitle = True
        .ChartTitle.Characters.Text = "Restitution des valeurs"
        .Axes(xlValue).MaximumScale = 4 'Echelle verticale, valeur max = 4 , car la moyenne des notes dépasse pas 4
        .Axes(xlValue).MajorUnit = 1 'Echelle
 
    End With
 
End Sub

Je ne peux pas vous montrez la feuille 1 car se sont des données confidentiels. Le problème c'est qu'un coup j'ai un graphique nickel et un autre coup j'ai un graphique bizarre avec plein de séries de sélectionnées.
En espérent que vous ayez compris mon problème .
Merci d'avance,

[mercatog]

Ajoute juste après le Add (ligne 11 de ton code), la ligne

Code :

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

objChart.ChartArea.ClearContents

PS. Tes séries viennent de la sélection des plages d cellules quand on insère le graphique

[breizhcola29]

Merci de ta réponse. Malgré ta réponse, je ne comprends pas pourquoi un coup j'ai un bon graphique et un autre coup un mauvais, j'ai vraiment l'impression d'avoir un graphique aléatoire

[joe.levrai]

Bonjour,

à défaut d'expliquer pourquoi il intègre parfois des séries non désirées, et de savoir si la proposition de mercatog règle ton problème ...

tu peux contrôler cette anomalie en contrôlant combien ton graphique comporte de séries : s'il y a plus d'une série, tu effaces les séries non désirées

je te propose aussi de contrôler dynamiquement l'échelle, en fonction de la valeur maximale réelle de ta plage de données

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
Sub graph()
 
Dim Sh As Worksheet
 
Set Sh = ThisWorkbook.Worksheets("Feuil2")
Sh.Shapes.AddChart(xlRadarMarkers).Select
 
With ActiveChart
 
    .SetSourceData Source:=Sh.Range("A1:F1,A12:F12")
    .SeriesCollection(1).Name = "Restitution des valeurs"
 
    If .SeriesCollection.Count > 1 Then
        For i = 1 To .SeriesCollection.Count
            MsgBox .SeriesCollection(i).Name
        Next i
    End If
 
    .HasTitle = True
    .ChartTitle.Characters.Text = "Restitution des valeurs"
    .Axes(xlValue).MaximumScale = Application.WorksheetFunction.Max(Sh.Range("A12:F12")) 'ton échelle est calquée sur la valeur maximale de tes données
    .Axes(xlValue).MajorUnit = 1
 
End With
Set Sh = Nothing
End Sub

[breizhcola29]

Merci de ta réponse. Pour l'instant, la réponse de mercatog me convient mais si je vois que j'ai encore des séries aléatoire, je me pencherais sur ta solution ! =)