Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Graphique

Graphique

8 réponses
Avatar
manu
Bonjour,

J'ai une col A : des Noms
en col B : des notes
en col C : des ages

Je fais un graph en nuage de point.
Et je souhaiterais avoir en Y les notes (là pas de soucis), mais en X je
souhaite avoir les ages et sur les points du graph (etiquette) je
souhaiterais avoir les noms.

Est ce possible ? je n'y arrive pas.

Merci du coup de pouce

Manu
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
JB
Bonjour,

On veut associer un libellé à chaque point d'un graphique nuage de
points XY.

http://cjoint.com/?gyl4MlGUq4

Sub Graphique()
SupGraphe
Set maplage = Range("c1:d7") ' Plage du graphique
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=maplage, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel,
LegendKey:úlse
ActiveChart.PlotArea.Interior.ColorIndex = 20
'-----
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.Text = Sheets(1).Cells(i + 1, 1)
Next i
End Sub


Cordialement JB

Bonjour,

J'ai une col A : des Noms
en col B : des notes
en col C : des ages

Je fais un graph en nuage de point.
Et je souhaiterais avoir en Y les notes (là pas de soucis), mais en X je
souhaite avoir les ages et sur les points du graph (etiquette) je
souhaiterais avoir les noms.

Est ce possible ? je n'y arrive pas.

Merci du coup de pouce

Manu


Avatar
FxM
Bonjour,

A partir de Excel XP, tu devrais pouvoir choisir ce que tu mets comme
étiquette. Sinon, jette un oeil chez notre chef à plumes
http://xcell05.free.fr pour la macro complémentaire etiquett

@+
FxM


Bonjour,

J'ai une col A : des Noms
en col B : des notes
en col C : des ages

Je fais un graph en nuage de point.
Et je souhaiterais avoir en Y les notes (là pas de soucis), mais en X je
souhaite avoir les ages et sur les points du graph (etiquette) je
souhaiterais avoir les noms.

Est ce possible ? je n'y arrive pas.

Merci du coup de pouce

Manu




Avatar
manu
Merci, mais je ne comprend pas... je n'arrive pas à lancer cette macro

Manu

"JB" a écrit dans le message de news:

Bonjour,

On veut associer un libellé à chaque point d'un graphique nuage de
points XY.

http://cjoint.com/?gyl4MlGUq4

Sub Graphique()
SupGraphe
Set maplage = Range("c1:d7") ' Plage du graphique
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=maplage, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel,
LegendKey:úlse
ActiveChart.PlotArea.Interior.ColorIndex = 20
'-----
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.Text = Sheets(1).Cells(i + 1, 1)
Next i
End Sub


Cordialement JB

Bonjour,

J'ai une col A : des Noms
en col B : des notes
en col C : des ages

Je fais un graph en nuage de point.
Et je souhaiterais avoir en Y les notes (là pas de soucis), mais en X je
souhaite avoir les ages et sur les points du graph (etiquette) je
souhaiterais avoir les noms.

Est ce possible ? je n'y arrive pas.

Merci du coup de pouce

Manu


Avatar
JB
A B C
1 Nom Notes Ages
2 dupont 12 20
3 durand 14 24
4 martin 14 28
5 charlie 18 35
6 Momo 11 36
7 Toto 19 40

-Sélectionner B1:C7
-Insertion /Graphique nuage de points

http://cjoint.com/?gyqbYJpGzM

Sub label()
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, 1)
Next i
End Sub

JB


Merci, mais je ne comprend pas... je n'arrive pas à lancer cette macro

Manu

"JB" a écrit dans le message de news:

Bonjour,

On veut associer un libellé à chaque point d'un graphique nuage de
points XY.

http://cjoint.com/?gyl4MlGUq4

Sub Graphique()
SupGraphe
Set maplage = Range("c1:d7") ' Plage du graphique
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=maplage, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel,
LegendKey:úlse
ActiveChart.PlotArea.Interior.ColorIndex = 20
'-----
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.Text = Sheets(1).Cells(i + 1, 1)
Next i
End Sub


Cordialement JB

Bonjour,

J'ai une col A : des Noms
en col B : des notes
en col C : des ages

Je fais un graph en nuage de point.
Et je souhaiterais avoir en Y les notes (là pas de soucis), mais en X je
souhaite avoir les ages et sur les points du graph (etiquette) je
souhaiterais avoir les noms.

Est ce possible ? je n'y arrive pas.

Merci du coup de pouce

Manu




Avatar
manu
merci, c'est impec, et est t'il possible d'inverser les 2 axes ? (mettre les
ages en x) ceci dit c'est moins important.

Merci JB

Manu

"JB" a écrit dans le message de news:

A B C
1 Nom Notes Ages
2 dupont 12 20
3 durand 14 24
4 martin 14 28
5 charlie 18 35
6 Momo 11 36
7 Toto 19 40

-Sélectionner B1:C7
-Insertion /Graphique nuage de points

http://cjoint.com/?gyqbYJpGzM

Sub label()
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, 1)
Next i
End Sub

JB


Merci, mais je ne comprend pas... je n'arrive pas à lancer cette macro

Manu

"JB" a écrit dans le message de news:

Bonjour,

On veut associer un libellé à chaque point d'un graphique nuage de
points XY.

http://cjoint.com/?gyl4MlGUq4

Sub Graphique()
SupGraphe
Set maplage = Range("c1:d7") ' Plage du graphique
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=maplage, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel,
LegendKey:úlse
ActiveChart.PlotArea.Interior.ColorIndex = 20
'-----
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.Text = Sheets(1).Cells(i + 1, 1)
Next i
End Sub


Cordialement JB

Bonjour,

J'ai une col A : des Noms
en col B : des notes
en col C : des ages

Je fais un graph en nuage de point.
Et je souhaiterais avoir en Y les notes (là pas de soucis), mais en X je
souhaite avoir les ages et sur les points du graph (etiquette) je
souhaiterais avoir les noms.

Est ce possible ? je n'y arrive pas.

Merci du coup de pouce

Manu




Avatar
JB
-Graphique/Données source/Série

Inverser X et Y

JB




merci, c'est impec, et est t'il possible d'inverser les 2 axes ? (mettre les
ages en x) ceci dit c'est moins important.

Merci JB

Manu

"JB" a écrit dans le message de news:

A B C
1 Nom Notes Ages
2 dupont 12 20
3 durand 14 24
4 martin 14 28
5 charlie 18 35
6 Momo 11 36
7 Toto 19 40

-Sélectionner B1:C7
-Insertion /Graphique nuage de points

http://cjoint.com/?gyqbYJpGzM

Sub label()
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, 1)
Next i
End Sub

JB


Merci, mais je ne comprend pas... je n'arrive pas à lancer cette macro

Manu

"JB" a écrit dans le message de news:

Bonjour,

On veut associer un libellé à chaque point d'un graphique nuage de
points XY.

http://cjoint.com/?gyl4MlGUq4

Sub Graphique()
SupGraphe
Set maplage = Range("c1:d7") ' Plage du graphique
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=maplage, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel,
LegendKey:úlse
ActiveChart.PlotArea.Interior.ColorIndex = 20
'-----
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.Text = Sheets(1).Cells(i + 1, 1)
Next i
End Sub


Cordialement JB

Bonjour,

J'ai une col A : des Noms
en col B : des notes
en col C : des ages

Je fais un graph en nuage de point.
Et je souhaiterais avoir en Y les notes (là pas de soucis), mais en X je
souhaite avoir les ages et sur les points du graph (etiquette) je
souhaiterais avoir les noms.

Est ce possible ? je n'y arrive pas.

Merci du coup de pouce

Manu






Avatar
manu
non, ca ne fonctionne pas, j'avais deja essayé.

Manu

"JB" a écrit dans le message de news:

-Graphique/Données source/Série

Inverser X et Y

JB




merci, c'est impec, et est t'il possible d'inverser les 2 axes ? (mettre
les

ages en x) ceci dit c'est moins important.

Merci JB

Manu

"JB" a écrit dans le message de news:

A B C
1 Nom Notes Ages
2 dupont 12 20
3 durand 14 24
4 martin 14 28
5 charlie 18 35
6 Momo 11 36
7 Toto 19 40

-Sélectionner B1:C7
-Insertion /Graphique nuage de points

http://cjoint.com/?gyqbYJpGzM

Sub label()
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, 1)
Next i
End Sub

JB


Merci, mais je ne comprend pas... je n'arrive pas à lancer cette macro

Manu

"JB" a écrit dans le message de news:

Bonjour,

On veut associer un libellé à chaque point d'un graphique nuage de
points XY.

http://cjoint.com/?gyl4MlGUq4

Sub Graphique()
SupGraphe
Set maplage = Range("c1:d7") ' Plage du graphique
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=maplage, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel,
LegendKey:úlse
ActiveChart.PlotArea.Interior.ColorIndex = 20
'-----
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.Text = Sheets(1).Cells(i + 1, 1)
Next i
End Sub


Cordialement JB

Bonjour,

J'ai une col A : des Noms
en col B : des notes
en col C : des ages

Je fais un graph en nuage de point.
Et je souhaiterais avoir en Y les notes (là pas de soucis), mais en X
je



souhaite avoir les ages et sur les points du graph (etiquette) je
souhaiterais avoir les noms.

Est ce possible ? je n'y arrive pas.

Merci du coup de pouce

Manu






Avatar
JB
Voir pj:http://cjoint.com/?gzfmXDJUhd

JB

non, ca ne fonctionne pas, j'avais deja essayé.

Manu

"JB" a écrit dans le message de news:

-Graphique/Données source/Série

Inverser X et Y

JB




merci, c'est impec, et est t'il possible d'inverser les 2 axes ? (mettre
les

ages en x) ceci dit c'est moins important.

Merci JB

Manu

"JB" a écrit dans le message de news:

A B C
1 Nom Notes Ages
2 dupont 12 20
3 durand 14 24
4 martin 14 28
5 charlie 18 35
6 Momo 11 36
7 Toto 19 40

-Sélectionner B1:C7
-Insertion /Graphique nuage de points

http://cjoint.com/?gyqbYJpGzM

Sub label()
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, 1)
Next i
End Sub

JB


Merci, mais je ne comprend pas... je n'arrive pas à lancer cette ma cro

Manu

"JB" a écrit dans le message de news:

Bonjour,

On veut associer un libellé à chaque point d'un graphique nuage de
points XY.

http://cjoint.com/?gyl4MlGUq4

Sub Graphique()
SupGraphe
Set maplage = Range("c1:d7") ' Plage du graphique
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=maplage, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel,
LegendKey:úlse
ActiveChart.PlotArea.Interior.ColorIndex = 20
'-----
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.Text = Sheets(1).Cells(i + 1, 1)
Next i
End Sub


Cordialement JB

Bonjour,

J'ai une col A : des Noms
en col B : des notes
en col C : des ages

Je fais un graph en nuage de point.
Et je souhaiterais avoir en Y les notes (là pas de soucis), mais en X
je



souhaite avoir les ages et sur les points du graph (etiquette) je
souhaiterais avoir les noms.

Est ce possible ? je n'y arrive pas.

Merci du coup de pouce

Manu