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.