Version imprimable
Bonjour,
la ligne de code ci-dessous ne fonctionne pas au niveau de la classe TickLabels
ca me sort le message suivant:" Erreur de compilation: Membre de méthode ou de données introuvable"Code:Chart.Axes(xlValue).TickLabels.NumberFormat = "0.0%"
j'ai vérifié dans le références disponibles rien n'est marqué comme manquant
Merci pour votre aide
Bonjour,
Peut-être cela, mais je ne suis pas un expert en la matière
Code:
2
Je confirme le post précédent ,
Pour plus d'infos , regardes ce lien
Bonjour et merci pour vos reponses,
le probleme n'est pas la, car lorsque j'ecris le code ci-dessouset je fais CTRL+Espace dans la liste je ne trouve pas TickLabels, je trouve seulement:Code:ActiveChart.Axes(xlValue).
et quand je met le code:Code:
2
3
4
il m'affiche le message :Membre de méthode ou de données introuvableCode:ActiveChart.Axes(xlValue).TickLabels.NumberFormat = "0.00"
merci pour votre aide
Es-tu allé suivre le lien donné précédemment car il me semble que la réponse y est donnée.
Bonjour,
si tu veux la traduction, non dispo sur le lien, il suffit de consulter l'aide VBA directe...
l'important est la syntaxe :Citation:
Cet objet représente les étiquettes de graduation associées aux graduations de l'axe spécifié du graphique. Cet objet n'est pas une collection. Aucun objet ne représente une seule étiquette de graduation. Vous devez renvoyer l'ensemble des étiquettes de graduation comme une unité.
Le texte contenu dans l'étiquette de graduation de l'axe des abscisses provient du nom de l'abscisse associée dans le graphique. Le texte par défaut de l'étiquette de graduation de l'axe des abscisses est le nombre indiquant la position de l'abscisse par rapport à l'extrémité gauche de l'axe. Pour changer le nombre de marques de graduation non étiquetées entre les étiquettes de graduation, modifiez la propriété TickLabelSpacing de l'axe des abscisses.
Le texte de l'étiquette de graduation de l'axe des ordonnées est calculé en fonction des propriétés MajorUnit, MinimumScale et MaximumScale de l'axe des ordonnées. Pour modifier le texte de l'étiquette de graduation de l'axe des ordonnées, vous devez modifier les valeurs de ces propriétés.
ou :Citation:
Utilisation de l'objet TickLabels
Pour renvoyer l'objet TickLabels, spécifiez la propriété TickLabels. L'exemple suivant montre comment définir le format numérique des étiquettes de graduation de l'axe des ordonnées du graphique.
Code:myChart.Axes(xlValue).TickLabels.NumberFormat = "0.00"
c'est un manque explicite au niveau de ton objet Chart, Chart tout seul ?Code:Worksheets("sheet1").ChartObjects(1).Chart.Axes(xlValue).TickLabels.NumberFormat = "0.00" ' incorporé
Si c'est une feuille graphique, tu dois indiquer Charts(index)... ou utiliser une variable objet / MyChart...
cordialement,
Didieir
Merci pour vos réponses,
a vrai dire mon graphique est intégré dans un userform et la ça devient compliqué pour moi de le contrôler, voici le code qui permet l'affichage du graphique:
je crois que l'objet chart est défini sauf s'il faut le définir autrementCode:
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
27Sub littleChart() Dim Chh As OWC11.ChChart Dim X As Integer, i As Integer Dim Tableau(3) Set Chh = ChartSpace2.Charts.Add For i = Chh.SeriesCollection.Count To 1 Step -1 Chh.SeriesCollection.Delete i - 1 Next i For i = 1 To 3 Tableau(i) = Sheets("calculation").Cells(18, i) Next i For i = 1 To 3 Plage(i) = Sheets("calculation").Cells(19, i) Next i With Chh .SetData D.chDimCategories, D.chDataLiteral, Tableau .SeriesCollection(X).SetData D.chDimValues, D.chDataLiteral, Plage .SeriesCollection(X).Interior.Color = 590000 * (i + 3) .Axes(xlValue).TickLabels.NumberFormat = "0.0%" End With X = X + 1 Erase Plage End Sub
la ligne en rouge génère le message d'erreur au niveau de TickLabels
merci pour votre aide
Bonjour,
j'ai essayé le code suivant:
mais ça ne donne rien !!!Code:ChartSpace2.Charts(1).Axes(xlValue).