Discussion :

[com-ace]

Bonjour
J'avoue que la création de graphiques en VBA est nouveau pour moi.
J'utilise donc l'enregistreur de macros et je tombe très souvent des erreurs qui sont complexes (en l'état de mes connaissances) à surmonter
J'utilise à travers un formulaire, des scrolbars pour évaluer une situation.
Je souhaite sur un autre formulaire, afficher les résultats sous forme graphiques.
Je chois le radar.
La création du graphique fonctionne.
Toutefois pour modifier les paramètres tel que police et taille des étiquettes, je butte sur une erreur.

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
 
    ActiveSheet.Shapes.AddChart2(317, xlRadarFilled).Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(1).Name = "='LISTE DES CANDIDATURES'!$B$" & ligne
    ActiveChart.FullSeriesCollection(1).Values = "='LISTE DES CANDIDATURES'!$M$" & ligne & ":$Q$" & ligne
    ActiveChart.FullSeriesCollection(1).XValues = "='LISTE DES CANDIDATURES'!$M$15:$Q$15"
    ' Reselection du graphique
    For Each ch In ActiveSheet.ChartObjects
    Grap = ch.Name
    Next
    ' redimensionnement
    ActiveSheet.ChartObjects(Grap).Activate
    ActiveSheet.Shapes(Grap).ScaleWidth 1.6, msoFalse, msoScaleFromTopLeft 'redéfinir dimensions
    ActiveSheet.Shapes(Grap).ScaleHeight 1.6, msoFalse, msoScaleFromTopLeft 'redéfinir dimensions
    ' Résultat de l'enregisteur de macros
    ActiveChart.ChartGroups(1).RadarAxisLabels.Select
    With Selection.Format.TextFrame2.TextRange.Font
        .NameComplexScript = "Corbel"
        .NameFarEast = "Corbel"
        .Name = "Corbel"
    End With

L'erreur affichée se situe sur TEXTFRAME2 : "la méthode TEXTFRAME2 de l'object Chartformat a échoué"
Auriez vous une explication ?
Merci de votre aide

[hyperion13]

Salut,
A tester :

Code :

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

1
2
3
4
5
6
7
With Selection.Format.TextFrame2.TextRange
With .Font
	.NameComplexScript = "Corbel"
        .NameFarEast = "Corbel"
        .Name = "Corbel"
End With
End With

[com-ace]

Bonsoir
Merci de ta suggestion mais
Le résultat est le même et l'erreur aussi
Je continue à chercher

[sogedic]

Bonjour

J'ai essayé sur un fichier test (joint), il me semble que tu ne selectionnes pas la bonne zone
la zone sur laquelle tu a un plantage correspond à une série et non à une zone de texte
on voit la zone sélectionnée au plantage

[com-ace]

Merci de ta réponse
Ai je une installe particulière ?
En tout cas, ta solution seule ne fonctionne pas, j'ai la même erreur qui ressort.
La zone sélectionnée est bien la zone étiquettes.
Je continue à chercher

[sogedic]

tu peux deposer ton fichier ?