Help sur graphique - manque pas grand chose

job75

XLDnaute Barbatruc

• 16 Janvier 2011

• #2

Re : Help sur graphique - manque pas grand chose

Bonjour BAT,

BAT à dit:

Je pense que nous sommes pas loin mais bon !!!

Cliquez pour agrandir...

Si, on en est loin, car il faut du VBA...

La macro doit passer en revue chaque point de chacune des 2 séries :

1) créer son étiquette de donnée (DataLabel en VBA) et y mettre le texte correspondant du tableau

2) colorer le point Edit : a priori pas nécessaire, il l'est déjà, c'est la couleur de la série.

Cherchez sur le forum, il y a pas mal d'exemples de ce genre.

Perso, pas le temps de m'en occuper, désolé.

A+

 

Dernière édition: 16 Janvier 2011

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2011

• #3

Re : Help sur graphique - manque pas grand chose

Re,

Bon j'ai pris quand même 5 minutes...

Voyez ces 2 macros dans le fichier joint :

Code:

Sub AfficherEtiquettes()
Dim s As Series, i As Integer
With ActiveSheet.ChartObjects(1).Chart
  .ApplyDataLabels Type:=xlDataLabelsShowValue
  For Each s In .SeriesCollection
    For i = 1 To s.Points.Count
      s.Points(i).DataLabel.Text = [A1].Offset(i)
    Next
  Next
End With
End Sub

Sub MasquerEtiquettes()
ActiveSheet.ChartObjects(1).Chart.ApplyDataLabels _
  Type:=xlDataLabelsShowNone
End Sub

A+

 

Pièces jointes

• Classeur v fin(1).xls

  40.5 KB · Affichages: 36

Dernière édition: 16 Janvier 2011

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2011

• #4

Re : Help sur graphique - manque pas grand chose

Re,

Une amélioration avec un seul bouton et cette macro dans le code de la feuille :

Code:

Private Sub CommandButton1_Click()
With CommandButton1
  If .Caption Like "Afficher*" Then
    AfficherEtiquettes
    .Caption = "Masquer Etiquettes"
  Else
    MasquerEtiquettes
    .Caption = "Afficher Etiquettes"
  End If
End With
End Sub

A+

 

Pièces jointes

• Classeur v fin(2).xls

  39 KB · Affichages: 43

Vote positif 0 Vote négatif

B

BAT

XLDnaute Occasionnel

• 16 Janvier 2011

• #5

Re : Help sur graphique - manque pas grand chose

Génial,
Un très grand merci à toi d'avoir pris le temps.
j'aurais vraiment pensé pouvoir faire un graphique sans VBA ! En même temps ça me rassure !
encore merci et bon dimanche à toi

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 16 Janvier 2011

• #6

Re : Help sur graphique - manque pas grand chose

Bonjour
Job j'ai bien aimé ta macro, je me permet un petit changement qui peut etre interessant pour le choix des infos à afficher.

Sub AfficherEtiquettes()
Dim s As Series, i As Integer
Dim choix As Range
With ActiveSheet.ChartObjects(1).Chart
.ApplyDataLabels Type:=xlDataLabelsShowValue
For Each s In .SeriesCollection
Set choix = Application.InputBox(prompt:=" Sélectionner la premiere étiquette ", Type:=8)
For i = 1 To s.Points.Count
s.Points(i).DataLabel.Text = [choix].Offset(i - 1)
Next
Next
End With
End Sub

Cliquez pour agrandir...

Je me la mets en réserve!!!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Janvier 2011

• #7

Re : Help sur graphique - manque pas grand chose

Bonjour Bruno, le fil, le forum,

Oui, on peut paramétrer ce que l'on veut, par exemple ici le n° de série.

Bonne journée.

A+

 

Pièces jointes

• Classeur v fin(3).zip

  14.6 KB · Affichages: 34

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 17 Janvier 2011

• #8

Re : Help sur graphique - manque pas grand chose

Bonjour à tous
Merci Job, je la mets en réserve aussi.

 

Vote positif 0 Vote négatif