Discussion :

[anaylane]

Bonjour,


Après avoir fait mon graphique avec des bulles, Merci Patnel! J'ai réussi à afficher les noms des axes et le nom de la série!!
Maintenant il me reste à aficher les valeurs au dessus des bulles (nombre ou temps selon le graphique !!!)

le code utilisé:

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
Sub MacronuageOp()
'
' MacronuageOp Macro'
    Charts.Add
    ActiveChart.ChartType = xlBubble3DEffect
    ActiveChart.SetSourceData Source:=Sheets("Données sources").Range("B2:C9,E2:E9"), _
        PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Nuages Op"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Répartition des opérations réalisées par le Directeur en nombre en fonction de la VA Exécutant et VA Demandeur"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = " VA Exécutant (%)"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "VA Demandeur (%)"
        .SeriesCollection(1).Name = "Répartition en nombre"
    End With
End Sub

Qui peut m'aider ?? merci d'avance

[sabzzz]

bonjour anaylane,

Code :

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

.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel

[anaylane]

Merci Isabelle,

Par contre est ce qu'on peut choisir une colonne specifique pour l'affichage que je pourrais modifier selon les graphes? car par défaut, c'ets la première colonne qu'il prend en compte!

merci de ton aide!

[sabzzz]

bonjour anaylane,

par exemple tu peut faire une boucle sur la collection SeriesCollection

Code :

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

1
2
3
For Each sc In .SeriesCollection
           sc.ApplyDataLabels Type:=xlDataLabelsShowLabel
Next

[anaylane]

merci de ta réponse rapide!! par contre comment utiliser une boucle avec une sélection de données ( afficher les valeurs de la colonne voir le fichier en PJ pour etre plus clair ) dans l'onglet Nuages OP les valeurs de la colonne E et dans l'onglet Nuages temps les valeurs de la colonne D au dessus des bulles.

[sabzzz]

bonjour anaylane,

Code :

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

1
2
3
4
5
x=2
For Each sc In .SeriesCollection(1).Points
         sc.DataLabel.Text = Sheets("Données sources").Range("E" & x)
         x = x + 1
 Next