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

Traductions disponibles Traductions disponibles
Numéro d'article: 213750 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

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 à 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 à bulles.

Plus d'informations

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 ajoutées ou des procédures de construction pour satisfaire 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 seconde 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 : Étiquettes  B1 : Valeurs X   C1 : Valeurs Y
   A2 : PointDon1   B2 : 12          C2 : 5
   A3 : PointDon2   B3 :  9          C3 : 7
   A4 : PointDon3   B4 :  5          C4 : 3
   A5 : PointDon4   B5 :  4          C5 : 8
   A6 : PointDon5   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. Cliquez sur Graphique dans le menu Insertion.
    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 sur Suivant.
    3. Dans la boîte de dialogue Assistant graphique - Étape 2 sur 4 - Données source du graphique, cliquez sur l'onglet Plage de données. Sous Séries dans, cliquez sur Colonnes, puis 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 Conception, 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, puis sur Macro 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.

Propriétés

Numéro d'article: 213750 - Dernière mise à jour: mardi 27 novembre 2007 - Version: 4.1
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002
  • Microsoft Excel 2000 Standard
  • Microsoft Excel 97 Standard
  • Microsoft Excel X pour Mac
  • Microsoft Excel 2001 pour Mac
  • Microsoft Excel 98 pour Macintosh
Mots-clés : 
kbhowto kbinfo kbchart kbprogramming kbdtacode KB213750
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com