Souci avec création de graphiques

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:

---

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

Salut,
A tester :

Code:

---

1 2 3 4 5 6 7

With Selection.Format.TextFrame2.TextRange With .Font .NameComplexScript = "Corbel" .NameFarEast = "Corbel" .Name = "Corbel" End With End With

---

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

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

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

tu peux deposer ton fichier ?

J'ai crée une base test mais cela concerne toute l'application car le souci se situe au cœur de celle-ci
Pour le trouver, sélectionner un candidat, ouvrir sa fiche (en haut à gauche Fich)
Ensuite cliquer sur le bouton graph en bas à droite
(Il risque d'avoir quelques soucis de portabilités car l'appli ne fonctionne que sur mon poste actuellement)

Je viens de faire un test
J'ai enregistré une macro qui met les étiquettes en corbel et en gras de façon indépendante de l'applicatif
J'ai lié celle ci à un bouton
Ensuite j'ai crée mon graphique et ensuite lancé la macro avec le bouton.
Le résultat est identique. Il y a un facteur inconnu qui m'empêche de modifier les paramètres du graphique.
De plus l'aide de Microsoft (que j'ai trouvé toujours incompréhensible ne m'éclaire sur la méthode mais en plus je ne trouve pas de document de références sur le sujet, ce que je trouve ne vont jamais suffisamment loin.

Bonjour

En déclarant l'objet tu peux ensuite, en déclarant des espions regarder les propriétés

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test()   Dim MonGraphe As ChartObject '1- declaration Set MonGraphe = ActiveSheet.ChartObjects(Grap) '2 - en cherchant dans l'explorateur d'objet étape par étape ' MonGraphe.Chart.ChartGroups(1).RadarAxisLabels.Select : inutile : vérifier visuellement et temporaire pour ajouter un espion '3 With MonGraphe.Chart.ChartGroups(1).RadarAxisLabels.Font .Name = "Corbel" End With   End Sub

---

Menu affichage; fenetre espion
- Selectionner Mongraphe , clique droit ajouter un espion
- Mettre un point d'aret apres le set mongraphe
- rechercher dans la fenetre espion "radarAxisLabel" … c'est mieux si on sait un peu ou chercher;)
- ajouter un espion sur MonGraphe.Chart.ChartGroups(1).RadarAxisLabels
- rechercher dans ce deuxième espion la police (font)
et la tu vois comment modifier la police

Voici ou j'en suis de mes teste.
J'avoue n'y comprendre rien
J'ai élaboré un second graphique à base d'histogramme
J'enregistre une macro qui sélectionne successivement l'aire du graphique puis l'axe des X et ensuite qui changent la police de l'axe X
Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10

ActiveChart.PlotArea.Select ActiveChart.Axes(xlCategory).Select With Selection.Format.TextFrame2.TextRange With .Font .NameComplexScript = "Corbel" .NameFarEast = "Corbel" .Name = "Corbel" End With End With

---

Je transcrit dans un module teste et je plante sur Format.TextFrame.Textrange
A chaque étape, les zones sont bien sélectionnées
Cela agit comme si Format.TextFrame ne soit pas la bonne instruction alors qu'il me le propose à partir de l'enregistreur

Je pense avoir trouvé la solution en ChartArea
Voici le code qui fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9

ActiveChart.FullSeriesCollection(1).Delete ActiveChart.FullSeriesCollection(1).Name = "='Tableau de bord'!K25" ActiveChart.FullSeriesCollection(1).Values = "='Tableau de bord'!$L$26:$L$45" ActiveChart.FullSeriesCollection(1).XValues = "='Tableau de bord'!$K$26:$K$45" ActiveChart.ChartArea.Select ActiveChart.ChartArea.Font.Name = "Corbel" ActiveChart.Axes(xlCategory).Select ActiveChart.Axes(xlCategory).TickLabels.Font.Size = 10

---

Je continue mais je pense que la solution est là

bonjour

je t'ai donne la solution et la méthode pour la trouver, tu ne l'a pas vu ?

J'avoue que non
Je m'aperçoit que j'ai cherché pour rien alors que tu m'avais donné la solution.
Enfin, l'avantage, c'est que j'ai compris pourquoi en recherchant.
Merci de ton aide