[GRAPHIQUE] Besoin d'aide pour la conception d'un graphique

Mjgreg67

XLDnaute Junior
Bonjour le forum !

J'aurai besoin de votre aide afin de finaliser mon graphique.
Le graphique actuel, intégré dans le fichier en PJ de ce message, m'affiche toutes les données que je souhaite SAUF UNE. Impossible d'afficher la données comme je le souhaite.

Je souhaiterai que le nom de la pièce s'affiche au dessus de chaque point dans mon graphique.

Est ce que cela est-il possible ?

Pour vous faire une meilleure idée de ce que je souhaiterai réaliser j'ai intégré dans le fichier Excel une image montrant le graphique tel que j'en aurai besoin.

Pourriez-vous s'il vous plait m'aider ? :/

Merci beaucoup !
 

Fichiers joints

job75

XLDnaute Barbatruc
Re : [GRAPHIQUE] Besoin d'aide pour la conception d'un graphique

Bonsoir Mjgreg67,

Il faut une macro :

Code:
Sub Etiquettes()
Dim F As Worksheet, i As Byte, j&
Set F = Feuil1 'CodeName de la feuille
For i = 1 To 2
  With F.ChartObjects(1).Chart.SeriesCollection(i)
    .HasDataLabels = False 'RAZ
    For j = 1 To .Points.Count
      If F.[B1].Offset(j) <> "" Then
        .Points(j).HasDataLabel = True
        .Points(j).DataLabel.Text = F.[B1].Offset(j)
      End If
    Next
  End With
Next
End Sub
A+
 

job75

XLDnaute Barbatruc
Re : [GRAPHIQUE] Besoin d'aide pour la conception d'un graphique

Re,

2 lignes de plus pour positionner et encadrer les étiquettes de données :

Code:
Sub Etiquettes()
Dim F As Worksheet, i As Byte, j&
Set F = Feuil1 'CodeName de la feuille
For i = 1 To 2
  With F.ChartObjects(1).Chart.SeriesCollection(i)
    .HasDataLabels = False 'RAZ
    For j = 1 To .Points.Count
      If F.[B1].Offset(j) <> "" Then
        .Points(j).HasDataLabel = True
        .Points(j).DataLabel.Text = F.[B1].Offset(j)
        .Points(j).DataLabel.Position = xlLabelPositionAbove
        .Points(j).DataLabel.Border.Weight = xlHairline
      End If
    Next
  End With
Next
End Sub
Testé seulement sur Excel 2003.

A+
 

Mjgreg67

XLDnaute Junior
Re : [GRAPHIQUE] Besoin d'aide pour la conception d'un graphique

Bonjour Job75,

Merci beaucoup pour ton aide !
Les deux codes que tu as confectionnés fonctionnent avec ma version Excel 2013.

C'est exactement ce que je recherchai, c'était le seul élément qui me manquait ! :)

J'avais pour idée de confectionner un code Macro mais me disait qu'il existait plus simple...
 

job75

XLDnaute Barbatruc
Re : [GRAPHIQUE] Besoin d'aide pour la conception d'un graphique

Bonjour Mjgreg67, le forum,

Je viens de tester sur Excel 2010, il faut aussi préciser le style de bordure :

Code:
Sub Etiquettes()
Dim F As Worksheet, i As Byte, j&
Set F = Feuil1 'CodeName de la feuille
For i = 1 To 2
  With F.ChartObjects(1).Chart.SeriesCollection(i)
    .HasDataLabels = False 'RAZ
    For j = 1 To .Points.Count
      If F.[B1].Offset(j) <> "" Then
        .Points(j).HasDataLabel = True
        .Points(j).DataLabel.Text = F.[B1].Offset(j)
        .Points(j).DataLabel.Position = xlLabelPositionAbove
        .Points(j).DataLabel.Border.Weight = xlHairline
        .Points(j).DataLabel.Border.LineStyle = xlContinuous
      End If
    Next
  End With
Next
End Sub
A+
 

Mjgreg67

XLDnaute Junior
Re : [GRAPHIQUE] Besoin d'aide pour la conception d'un graphique

Ok ça marche,

Je te remercie pour l'aide que tu as fourni. Cela a permis de réaliser mon graphique comme il me l'a été demandé ! :)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas