Bonjour,
Je travaille à la création d'un graphique nuage de point en VBA Excel 2007 à l'aide de macros. Tout marche bien, jusqu'au moment ou je cherche à modifier les point (markersize et markerstyle). A ce niveau là je remarque que ma sélection ne fonctionne plus et mon programme s'arrête après le redimensionnement de la zone graphique . Voici le code que j'ai développé:
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
Sub macro1()
'désactive message alerte
Application.DisplayAlerts = False
'
On Error Resume Next
Sheets("Graph3").Select
    ActiveWindow.SelectedSheets.Delete
Charts.Add
ActiveChart.Name = "CartMaroc"
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("MarContPoint").Range("A2:B898")
'
'redimensionne zone graphique
ActiveChart.Axes(xlValue).MinimumScale = 20
With ActiveChart.ChartArea
        ' Voir la position et la taille acutelles dans la
        ' fenêtre d'exécution (Ctrl + G).
'        Debug.Print .Left, .Top, .Width, .Height
        ' Appliquer les nouvelles dimensions.
        .Left = 0
        .Top = 0
        .Width = 580
        .Height = 80000
End With
'
'selction d'un style
    ActiveChart.ClearToMatchStyle
    ActiveChart.ChartStyle = 1
    ActiveChart.ClearToMatchStyle
'selection de la taille et de la marque du point
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection
        .MarkerStyle = 2
        .MarkerSize = 7
    End With
    Selection.MarkerSize = 2
End Sub
Merci pour toute aide