Comment utiliser une macro pour ajouter des étiquettes aux points de données dans un graphique à nuages de points (XY) ou un graphique en bulles dans Excel

Résumé

Dans Microsoft Excel, il n’existe pas de commandes intégrées qui attachent automatiquement des étiquettes de texte aux points de données dans un graphique en nuages de points (XY) ou en bulles. Toutefois, vous pouvez créer pour cela une macro Microsoft Visual Basic pour Applications. Cet article présente un exemple de macro permettant d’effectuer cette tâche dans un graphique en nuages de points XY. Toutefois, vous pouvez utiliser le même code pour un graphique en bulles.

Informations supplémentaires

Microsoft fournit des exemples de programmation à des fins d’illustration uniquement, sans garantie explicite ou implicite. Ceci inclut, de manière non limitative, les garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d’une procédure particulière. Toutefois, ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques. L’exemple de code fourni dans cet article suppose que les données et les étiquettes associées sont disposées dans une feuille de calcul selon le format suivant :

• La première colonne contient les étiquettes de données.

• La deuxième colonne contient les valeurs X du graphique en nuages de points.

• La troisième colonne et les suivantes contiennent les valeurs Y du graphique en nuages de points.

REMARQUE : Bien que l’exemple fourni contienne une seule colonne de données pour les valeurs Y, vous pouvez utiliser plusieurs séries de données.

Pour utiliser les macros présentées dans cet article, créez un graphique contenant les données suivantes : A1: Labels B1: X Values C1: Y Values A2: DataPoint1 B2: 12 C2: 5 A3: DataPoint2 B3: 9 C3: 7 A4: DataPoint3 B4: 5 C4: 3 A5: DataPoint4 B5: 4 C5: 8 A6: DataPoint5 B6: 1 C6: 4 REMARQUE : Le tableau ne doit pas contenir de colonnes vides et la colonne contenant les étiquettes de données ne doit pas être séparée de celle contenant les valeurs X. Les étiquettes et les valeurs doivent être exactement disposées au format indiqué dans cet article. (La cellule en haut à gauche ne doit pas être forcément la cellule A1.)

Pour attacher des étiquettes de texte aux points de données dans un graphique en nuages de points (XY), procédez comme suit :

1. Dans la feuille de calcul contenant les exemples de données, sélectionnez la plage de cellules B1:C6.

2. Pour effectuer cette opération dans Microsoft Office Excel 2003 et dans les versions antérieures, procédez comme suit :

   1. Dans le menu Insertion, cliquez sur Graphique.

   2. Dans la boîte de dialogue Assistant Graphique - Étape 1 sur 4 - Type de Graphique, cliquez sur l’onglet Types standard. Sous Type de graphique, cliquez sur Nuages de points (XY), puis cliquez sur Suivant.

   3. Dans la boîte de dialogue Assistant Graphique - Étape 2 sur 4 - Données sources du graphique, cliquez sur l’onglet Plage de données. Sous Série en, cliquez sur Colonnes, puis cliquez sur Suivant.

   4. Dans la boîte de dialogue Assistant Graphique - Étape 3 sur 4 - Options du graphique, cliquez sur Suivant.

   5. Dans la boîte de dialogue Assistant Graphique - Étape 4 sur 4 - Emplacement du graphique, cliquez sur l’option Comme nouvelle feuille, puis sur Terminer.

   Dans Microsoft Office Excel 2007, procédez comme suit :

   1. Cliquez sur l’onglet Insertion, puis sur Nuages de points dans le groupe Graphiques, puis sélectionnez un type.

   2. Sous l’onglet Création, cliquez sur Déplacer le graphique dans le groupe Emplacement, cliquez sur Nouvelle feuille, puis sur OK.

3. Appuyez sur Alt + F11 pour démarrer Visual Basic Editor.

4. Dans le menu Insertion, cliquez sur Module.

5. Tapez l’exemple de code suivant dans la feuille de module :

   Sub AttachLabelsToPoints()
   
      'Dimension variables.
      Dim Counter As Integer, ChartName As String, xVals As String
   
      ' Disable screen updating while the subroutine is run.
      Application.ScreenUpdating = False
   
      'Store the formula for the first series in "xVals".
      xVals = ActiveChart.SeriesCollection(1).Formula
   
      'Extract the range for the data from xVals.
      xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
         Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
      xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
      Do While Left(xVals, 1) = ","
         xVals = Mid(xVals, 2)
      Loop
   
      'Attach a label to each data point in the chart.
      For Counter = 1 To Range(xVals).Cells.Count
        ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
            True
         ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
            Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
      Next Counter
   
   End Sub

6. Appuyez sur Alt + Q pour revenir dans Excel.

7. Accédez à la feuille de graphique.

8. Dans Excel 2003 et dans les versions antérieures d’Excel, pointez sur Macro dans le menu Outils, puis cliquez sur Macros. Cliquez sur AttachLabelsToPoints, puis sur Exécuter pour exécuter la macro.
   
   Dans Excel 2007, cliquez sur l’onglet Développeur, cliquez sur Macros dans le groupe Code, sélectionnez AttachLabelsToPoints, puis cliquez sur Exécuter.

La macro attache les étiquettes des cellules A2:A6 aux points de données du graphique.