Mapping Excel

Sub Etiquettes()
Dim Données As Range
Dim Noms As Range
Dim i
Set Données = Application.InputBox("Sélectionnez la plage de données", "SÉLECTION", Type:=8)
Set Noms = Application.InputBox("Sélectionnez la plage des noms", "SÉLECTION", Type:=8)
With ActiveChart.SeriesCollection(1)
.ApplyDataLabels Type:=xlDataLabelsShowLabel
For i = 1 To Données.Count
With .Points(i)
.DataLabel.Text = Noms(i)
End With
Next i
End With
ActiveChart.Deselect
End Sub

Cliquez pour agrandir...

Gillus69 à dit:

Bonjour,

essaie en utilisant cette petite macro :


Il faut bien penser à sélectionner ton graphique avant de lancer la macro.

Cela te convient-il ?

A plus

Cliquez pour agrandir...

Gillus69 à dit:

Re,

Tu fais alt + F11 pour afficher, puis insertion/module.
Ensuite tu copies le code que je t'ai donné.
Tu peux fermer la page vba.
Pour lancer ma macro, tu vas dans affichage/macro/afficher les macros.
Ca marche ?

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.
Une version qui prend systématiquement les étiquettes de la colonne qui précède la plage des valeurs X:

VB:

Sub Macro1()
Dim Série As Series, Étiq() As Variant, P As Long
Set Série = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
Étiq = Application.Range(Split(Série.Formula, ",")(1)).Offset(, -1).Value
For P = 1 To Série.Points.Count
   Série.Points(P).ApplyDataLabels
   With Série.Points(P).DataLabel: .Position = xlLabelPositionAbove: .Characters.Text = Étiq(P, 1): End With
   Next P
End Sub

À +

Cliquez pour agrandir...

sergio44 à dit:

Bonjour Misange
Merci pour la réponse rapide
L'appli est parfaite, cela a fonctionné du premier coup.
Merci à tous pour vos réponses rapides
bonne journée
serge

Cliquez pour agrandir...