Bonjour
Je cherche a créer un graphique qui afficherait au niveau de la valeur , le commentaire texte d'une cellule
Ex : Je donne des notes et des commentaires au matchs de foot que je regarde de l'equipe de france
J'ai donc 3 valeurs
La date du match de foo
La note donnée (sur 10
Et le commentaire : par ex : le nom du meilleur joueur de la parti
ex : 2005-01-15 | 8 | zidan
Afficher la courbe des dates ... je sais fair
MAis afficher, sur la courbe ,le commentaire texte .... je sais pas faire
Ca doit etre bete, mais si qq1 pouvait m'aider !!!!!!!!
Merci a tous
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
http://cjoint.com/?fAuRiu3fqb
Nom Ca Commentaires Miroux 2500 Peut mieux faire Gidel 2000 En progrès
Sub commentaire() ActiveSheet.ChartObjects(1).Activate On Error Resume Next ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel On Error GoTo 0 ActiveChart.SeriesCollection(1).DataLabels.Select nb_points = ActiveChart.SeriesCollection(1).Points.Count For i = 1 To nb_points ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select Selection.Interior.ColorIndex = 36 Selection.Font.Size = 7 Selection.Text = Sheets(1).Cells(i + 1, 3) Next i End Sub
JB
Bonsoir,
http://cjoint.com/?fAuRiu3fqb
Nom Ca Commentaires
Miroux 2500 Peut mieux faire
Gidel 2000 En progrès
Sub commentaire()
ActiveSheet.ChartObjects(1).Activate
On Error Resume Next
ActiveChart.SeriesCollection(1).ApplyDataLabels
Type:=xlDataLabelsShowLabel
On Error GoTo 0
ActiveChart.SeriesCollection(1).DataLabels.Select
nb_points = ActiveChart.SeriesCollection(1).Points.Count
For i = 1 To nb_points
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Interior.ColorIndex = 36
Selection.Font.Size = 7
Selection.Text = Sheets(1).Cells(i + 1, 3)
Next i
End Sub
Nom Ca Commentaires Miroux 2500 Peut mieux faire Gidel 2000 En progrès
Sub commentaire() ActiveSheet.ChartObjects(1).Activate On Error Resume Next ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel On Error GoTo 0 ActiveChart.SeriesCollection(1).DataLabels.Select nb_points = ActiveChart.SeriesCollection(1).Points.Count For i = 1 To nb_points ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select Selection.Interior.ColorIndex = 36 Selection.Font.Size = 7 Selection.Text = Sheets(1).Cells(i + 1, 3) Next i End Sub