Discussion :

[shinobi]

Bonjour à tous,

Voici 2 jours que je lutte sur un problème. En effet les recherches sur Google ont été sans succès.
Mon problème est le suivant :
En VBA je crée un graphique Excel (un histogramme). Je cherche modifier en VBA la graduation de l'axe des abscisses (l'étiquette quoi). Il m'affiche par défaut 1 2 et 3. Et je voudrais simplement changer les libellés.

Voila.

En vous remerciant beaucoup de votre aide

[shinobi]

D'abord merci d'avoir repondu.
Et je m'excuse d'avoir envoyer 2 fois le meme message(un malheur double clic sur Envoyer )

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
 
 
...
Dim objChart As Chart, objRange As Range, objRange2 As Range
Dim NouvSerie As Series
Dim NouvSerie2 As Series
 
   'On définit les 2 plages de données
 Set objRange2 = xlApp.Range(xlApp.Cells(yy + 7 - 1, 3), xlApp.Cells(yy + 7 - 1, 5))
 Set objRange = xlApp.Range(xlApp.Cells(yy + 6 - 1, 3), xlApp.Cells(yy + 6 - 1, 5))
 
   Set objChart = xlApp.Charts.Add
   'Definit Serie 2
    Set NouvSerie2 = objChart.SeriesCollection.NewSeries
    NouvSerie2.Values = objRange2
    NouvSerie2.name = "% personne"
    'Definit Serie 1    
    Set NouvSerie = objChart.SeriesCollection.NewSeries
    NouvSerie.Values = objRange
    NouvSerie.name = "% anomalie "
 
 
    objChart.HasTitle = True
    objChart.ChartTitle.Text = "Anomalie"
 
    objChart.Location xlLocationAsObject, "anomalie_par_personne"

Voila voila. Après comment définir l'étiquette de l'axe des abscisses. C'est pour moi un grand mystère.

Et merci encore.

[ouskel'n'or]

Facile... quand y arrive...
Il faut travailler sur les séries. Dans Données sources -> Onglet Série, tu sélectionnes ta série, tu vas dans Etiquette des abscisses -> tu sélectionnes les cellules contenant ces étiquettes -> Entrée -> Ok -> et caetera
Tu enregistres en faisant ça et ça donne par exemple :

Code :

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

    ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R2C4:R14C4"

Pas oublier de sélectionner le graph avant cette ligne

Tu dis

[shinobi]

MERCI BEAUCOUP. CA MARCHE NICKEL CHROME!!!
Je vais pouvoir continuer.

Merci

A+