Discussion :

[LaPanic]

Bonjour,
la ligne de code ci-dessous ne fonctionne pas au niveau de la classe TickLabels

Code :

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

Chart.Axes(xlValue).TickLabels.NumberFormat = "0.0%"

ca me sort le message suivant:" Erreur de compilation: Membre de méthode ou de données introuvable"
j'ai vérifié dans le références disponibles rien n'est marqué comme manquant
Merci pour votre aide

[NEC14]

Bonjour,

Peut-être cela, mais je ne suis pas un expert en la matière

Code :

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

1
2
 
ActiveChart.Axes(xlValue).TickLabels.NumberFormat = "0.00"

[lelensois16]

Je confirme le post précédent ,
Pour plus d'infos , regardes ce lien

[LaPanic]

Bonjour et merci pour vos reponses,
le probleme n'est pas la, car lorsque j'ecris le code ci-dessous

Code :

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

ActiveChart.Axes(xlValue).

et je fais CTRL+Espace dans la liste je ne trouve pas TickLabels, je trouve seulement:

Code :

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

1
2
3
4
ActiveChart.Axes(xlValue).TickLabelSpacing
ActiveChart.Axes(xlValue).TickLabelUnitType
ActiveChart.Axes(xlValue).TickMarkSpacing
ActiveChart.Axes(xlValue).TickMarkUnitType

et quand je met le code:

Code :

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

ActiveChart.Axes(xlValue).TickLabels.NumberFormat = "0.00"

il m'affiche le message :Membre de méthode ou de données introuvable
merci pour votre aide

[NEC14]

Es-tu allé suivre le lien donné précédemment car il me semble que la réponse y est donnée.

[Didier Gonard]

Bonjour,

si tu veux la traduction, non dispo sur le lien, il suffit de consulter l'aide VBA directe...

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.

l'important est la syntaxe :

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 :

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

myChart.Axes(xlValue).TickLabels.NumberFormat = "0.00"

ou :

Code :

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

Worksheets("sheet1").ChartObjects(1).Chart.Axes(xlValue).TickLabels.NumberFormat = "0.00"  ' incorporé

c'est un manque explicite au niveau de ton objet Chart, Chart tout seul ?

Si c'est une feuille graphique, tu dois indiquer Charts(index)... ou utiliser une variable objet / MyChart...

cordialement,

Didieir

[LaPanic]

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:

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
Sub 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

je crois que l'objet chart est défini sauf s'il faut le définir autrement
la ligne en rouge génère le message d'erreur au niveau de TickLabels
merci pour votre aide

[LaPanic]

Bonjour,
j'ai essayé le code suivant:

Code :

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

ChartSpace2.Charts(1).Axes(xlValue).

mais ça ne donne rien !!!