EXCEL : Utilisation de VBA pour créer un graphique à l'aide d'une plage de taille variable

Traductions disponibles Traductions disponibles
Numéro d'article: 146055 - Voir les produits auxquels s'applique cet article
Ancien nº de publication de cet article : F146055
Agrandir tout | Réduire tout

Sommaire

Résumé

Lorsque vous enregistrez une macro pour créer un graphique, l'adresse source des cellules utilisées pour créer le graphique est définie par Microsoft Excel. Cet article contient un exemple de macro Microsoft Visual Basic pour Applications qui vous permet de créer un graphique si l'adresse source contenant les données à utiliser dans le graphique doit être modifiée.

Plus d'informations

Microsoft fournit des exemples de programmation à titre indicatif uniquement, et ce sans garantie expresse ou implicite, notamment toute garantie implicite de qualité et d'adéquation à un usage particulier. Cet article présuppose que vous connaissiez le langage de programmation décrit et les outils utilisés pour créer et déboguer les procédures. Les techniciens du support technique de Microsoft peuvent vous aider à comprendre la fonctionnalité d'une procédure particulière, mais ils ne modifieront pas ces exemples afin de fournir des fonctionnalités ajoutées ou des procédures de construction adaptées à vos besoins spécifiques. Si votre expérience de la programmation est limitée, vous pouvez contacter la ligne de consultation payante de Microsoft au (800) 936-5200. Pour plus d'informations sur les options de support technique proposées par Microsoft, visitez le site Web à l'adresse suivante :
http://support.microsoft.com/contactus/?ws=support
Procédez comme suit pour créer l'exemple de macro :

  1. Entrez les informations suivantes dans une nouvelle feuille de calcul :
     C3:       D3: Region 1     E3: Region 2      F3: Region 3
     C4: Jan   D4: 10           E4: 80            F4: 15
     C5: Feb   D5: 20           E5: 70            F5: 25
     C6: Mar   D6: 30           E6: 60            F6: 35
     C7: Apr   D7: 40           E7: 50            F7: 45 
  2. Tapez le code suivant sur une nouvelle feuille de module :
     Sub CreateChart()
    
        ' Select the cell in the upper-left corner of the chart.
        Range("c4").Select
        ' Select the current range of data. This line of code assumes that
        ' the current region of cells is contiguous - without empty rows
        ' or columns.
     Selection.CurrentRegion.Select 
    
        ' Assign the address of the selected range of cells to a variable.
        myrange = Selection.Address
    
        ' Assign the name of the active sheet to a variable. This line is
        ' used in order to allow a chart to be created on a separate chart
        ' sheet.
     mysheetname = ActiveSheet.Name
    
        ' Add a chart to the active sheet.
        ActiveSheet.ChartObjects.Add(125.25, 60, 301.5, 155.25).Select
    
        ' To create a chart on a separate chart sheet, remark out the
        ' previous line, and substitute the next line for the one above.
    
        ' Charts.Add
    
        Application.CutCopyMode = False
    
        ' This line can best be written by recording a macro, and
        ' modifying the code generated by the Microsoft Excel Macro
        ' recorder.
    
        ActiveChart.ChartWizard _
           Source:=Sheets(mysheetname).Range(myrange), _
           Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _
           CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _
           Title:="", CategoryTitle:="", _
           ValueTitle:="", ExtraTitle:=""
    
     End Sub 
  3. Activez la feuille de calcul sur laquelle vous avez entré les données à l'étape 1 et exécutez la macro CreateChart.
Un nouveau graphique est créé sur votre feuille de calcul.

Références

Microsoft Excel 97

Pour plus d'informations sur la méthode ChartWizard, à partir de Visual Basic Editor, cliquez sur le Compagnon Office, tapez chartwizard, cliquez sur Rechercher, puis cliquez sur " Méthode ChartWizard " pour l'afficher.

REMARQUE : Si le Compagnon est masqué, cliquez sur le bouton Compagnon Office sur la barre d'outils Standard. Si le Compagnon ne peut pas répondre à votre demande, veuillez consulter l'article suivant dans la Base de Connaissances :
176476OFF : Le Compagnon Office ne répond pas aux questions sur Visual Basic

Microsoft Excel 7.0

Pour plus d'informations sur la méthode ChartWizard, dans le menu ? (Aide), cliquez sur " Rubriques d'aide Microsoft Excel ", cliquez sur l'onglet Index, puis tapez :
Méthode ChartWizard

Microsoft Excel 5.0

Pour plus d'informations sur la méthode ChartWizard, dans le menu ? (Aide), cliquez sur Sommaire, sur Programmation avec Visual Basic et sur le bouton Rechercher, puis tapez :
Méthode ChartWizard

Dans Microsoft Excel 5.0 pour Macintosh

Pour plus d'informations sur la méthode ChartWizard, cliquez sur l'icône Bulle d'Aide, cliquez sur Aide Microsoft Excel, sur Programmation avec Visual Basic et sur le bouton Rechercher, puis tapez :
Méthode ChartWizard

Propriétés

Numéro d'article: 146055 - Dernière mise à jour: jeudi 12 octobre 2006 - Version: 2.1
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Excel 97 Standard
  • Microsoft Excel 95 Standard
  • Microsoft Excel 5.0 Standard
  • Microsoft Excel 5.0 pour Macintosh
Mots-clés : 
kbdta kbdtacode kbvba pgmhowto KB146055
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.
Exclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.

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