Seconde tentative :
- sélection de la plage A1-C3
- menu "Insertion"/"Graphique"
- "nuage de points", suivant
- onglet "Serie", deux séries sont listées, supprimer la deuxième,
et pour la première série, indiquer Valeur X =Feuil1!$B$1:$B$3, Valeur Y =Feuil1!$C$1:$C$3
- onglet "Etiquettes de données", bouton radio "Afficher l'étiquette", suivant
- terminé
- Exécution de la macro VBA suivante
Code :
- Sub Macro1()
- ActiveSheet.ChartObjects("Graphique 1" ).Activate
- ActiveChart.SeriesCollection(1).DataLabels.Select
- For i = 1 To 3 ' ligne 1 à 3
- ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
- ' Met dans l'étiquette la valeur de la cellule de la col 1, ligne i
- Selection.Characters.Text = Sheets("Feuil1" ).Cells(i, 1).Value
- Next i
- ActiveChart.ChartArea.Select
- End Sub
|