Discussion :

[richert90]

Bonjour,

Voici mon problème:

J’aimerais faire un nuage de points en VBA, j'ai enregistré une macro que j'ai ensuite adaptée sauf que je n'ai que des valeurs 0 pour "chaque valeur en abscisse". Je vous joint ce fichier avec le graphique que j’obtiens

Merci d'avance pour votre aide

Voici le code que j'ai fais pour faire ce graphique (qui marche car le graphique apparait, et je n'ai aucun message d'erreurs)

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
'1) On choisit les données
    Sheets("Feuil2").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatter 'Type du graphique: ici nuage de points
    ActiveChart.SeriesCollection.NewSeries
    'ActiveChart.SetSourceData Source:=Sheets("dataBase").Range("A1:A" & i & "," & lettre2 & "1 :" & lettre2 & i)
    ActiveChart.SeriesCollection(1).XValues = "=dataBase!$A$2:$A$" & i
    ActiveChart.SeriesCollection(1).Values = "=dataBase!$" & lettre2 & "$2:$" & lettre2 & "$" & i
    '2) on rajoute un cadre autour de la légende
    ActiveChart.Legend.Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
    End With
 
    '3) On insère un titre sur le graphique
    ActiveChart.ChartArea.Select
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    Selection.Format.TextFrame2.TextRange.Characters.Text = _
        "Nombre de défauts sur 100m en fonction du temps"
    With Selection.Format.TextFrame2.TextRange.Characters(1, 47).ParagraphFormat 'Format du titre
        .TextDirection = msoTextDirectionLeftToRight
        .Alignment = msoAlignCenter
    End With
    With Selection.Format.TextFrame2.TextRange.Characters(1, 47).Font
        .BaselineOffset = 0
        .Bold = msoTrue
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(0, 0, 0)
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 18
        .Italic = msoFalse
        .Kerning = 12
        .Name = "+mn-lt"
        .UnderlineStyle = msoNoUnderline
        .Strike = msoNoStrike
    End With
 
    '4) On ajoute un titre à l'axe des abscisses:
    ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    Selection.Format.TextFrame2.TextRange.Characters.Text = "Temps"
    With Selection.Format.TextFrame2.TextRange.Characters(1, 5).ParagraphFormat
        .TextDirection = msoTextDirectionLeftToRight
        .Alignment = msoAlignCenter
    End With
    With Selection.Format.TextFrame2.TextRange.Characters(1, 5).Font
        .BaselineOffset = 0
        .Bold = msoTrue
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(0, 0, 0)
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 10
        .Italic = msoFalse
        .Kerning = 12
        .Name = "+mn-lt"
        .UnderlineStyle = msoNoUnderline
        .Strike = msoNoStrike
    End With
 
    '5) on ajoute un titre à l'axe des ordonnées
    ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
    ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Valeurs"
    Selection.Format.TextFrame2.TextRange.Characters.Text = "Valeurs"
    With Selection.Format.TextFrame2.TextRange.Characters(1, 7).ParagraphFormat
        .TextDirection = msoTextDirectionLeftToRight
        .Alignment = msoAlignCenter
    End With
    With Selection.Format.TextFrame2.TextRange.Characters(1, 7).Font
        .BaselineOffset = 0
        .Bold = msoTrue
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(0, 0, 0)
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 10
        .Italic = msoFalse
        .Kerning = 12
        .Name = "+mn-lt"
        .UnderlineStyle = msoNoUnderline
        .Strike = msoNoStrike
    End With
    Cells(1, 1).Select
 
 
End Sub

[Daniel.C]

Bonjour,

Ou est renseignée "lettre2" ?

[richert90]

J'ai des procédures que j'appelle ; là je vous ai juste mis le code de la création du graphique.
J'ai fait pas à pas le code et ça marche ( la variable "lettre2" est bonne ainsi que le "i" , ) De toute façon mon graphique est importé donc il n'y a pas d'erreur à ce niveau la.
Avec mon primer post, j'ai joint le fichier avec le résultat du code donc avec ce graphique .. La dessus on voit très bien que la plage de données est correct mais pas les valeurs retranscrites sur le graphique...

Ce que je comprend pas c'est pourquoi la plage de données que je prends contient que des valeurs 0...
J'ai tout essayé mais ça me fait toujours pareil je ne comprends vraiment pas pourquoi. Je penses c'est à ce niveau là: (et encore c'est bizarre car pour d'autres nuage de points que j'ai déjà crée, ça a marché niquel...)

Code :

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

1
2
3
4
ActiveChart.SeriesCollection.NewSeries
    'ActiveChart.SetSourceData Source:=Sheets("dataBase").Range("A1:A" & i & "," & lettre2 & "1 :" & lettre2 & i)
    ActiveChart.SeriesCollection(1).XValues = "=dataBase!$A$2:$A$" & i
    ActiveChart.SeriesCollection(1).Values = "=dataBase!$" & lettre2 & "$2:$" & lettre2 & "$" & i

Merci de m'aider car là, je ne comprend vraiment pas...

[Invité]

http://www.developpez.net/forums/d13...e/#post7485510