Recherche

Attribuer des Noms aux points d’un graphique de Nuage de Point

PAR Taoufik Aouiti

Pour plusieurs raisons, certains utilisateurs souhaitent attribuer des noms à chaque point du graphique du nuage de point. Toutefois, cette fonctionnalité n’est pas offerte pas Microsoft Excel.

Nous Vous Proposons dans ce qui suit une solution en utilisant la Macro VBA :

1. Créer une Macro avec le programme VBA suivant


Sub Nom_Nuage_Point()
Dim Données As Range
Dim Noms As Range
Dim i As Integer

Set Données = Application.InputBox("Sélectionnez la plage de données (les séries des deux Axes)", "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

3. Affecter une touche de raccourci à votre macro (exemple Ctrl+m).
4. Enregistrer le fichier sou format prenant en charge les macros (.XLM)
5. Sélectionner le graphique de nuage de point puis cliquez « Ctrl + m ».

Exemple :
Résultat macro d'attribution Nom aux nuages de points
PAR Taoufik Aouiti
Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.