Comment créer un graphique dans vba excel

Créer un graphique en utilisant Visual Basic pour Applications dans Excel.

Savoir créer dynamiquement des graphiques avec Visual Basic pour Applications peut gagner du temps lors de l`analyse de grandes quantités de données. Microsoft Excel est couramment utilisé pour collecter des données similaires à une base de données Access. Excel offre différents types de graphiques tels que la tarte, ligne, colonne, et d`autres formats. Les graphiques à colonnes sont souvent utilisés dans Excel pour afficher graphiquement les informations. Il est pas difficile de créer des graphiques en utilisant VBA pour présenter vos données clairement et plus efficacement.

  • Ouvrez Microsoft Excel 2007 et cliquez sur le "Développeur" languette. Sélectionner "Visual Basic et le type "Sous createColumnChart ()" et appuyez sur "Entrer" pour créer un nouveau sous.

  • Type "MonGraphe Dim Comme Chart

    Gamme("A1").Sélectionner
    ActiveCell.Value = "Tableau 1 Données"
    Gamme("A2").Sélectionner
    ActiveCell.Value = "1"
    Gamme("A3").Sélectionner
    ActiveCell.Value = "2"
    Gamme("A4").Sélectionner
    ActiveCell.Value = "3"
    Gamme("A5").Sélectionner
    ActiveCell.Value = "4"



    Gamme("B1").Sélectionner
    ActiveCell.Value = "Tableau de données 2"
    Gamme("B2").Sélectionner
    ActiveCell.Value = "5"
    Gamme("B3").Sélectionner
    ActiveCell.Value = "6"
    Gamme("B4").Sélectionner
    ActiveCell.Value = "7"
    Gamme("B5").Sélectionner
    ActiveCell.Value = "8"
    Gamme("B6").Sélectionner" pour déclarer la variable de tableau et d`ajouter des données pour votre graphique.

  • Type "Set MonGraphe = Charts.Add" d`ajouter un nouveau tableau.

    Type "Avec MonGraphe

     .Nom = "tableau de données"
    .ChartType = xlColumnClustered
    .SetSourceData Source: = Sheets ("Sheet1").Gamme("A1: B5") _
    PlotBy: = xlRows
    .HasTitle = True
    .ChartTitle.Text = "= Sheet1! R1C2"
    .Haches (xlCategory, xlPrimary) .HasTitle = True
    .Haches (xlCategory, xlPrimary) .AxisTitle.Characters.Text = "Tableau 1 Données"
    .Haches (xlValue, xlPrimary) .HasTitle = True
    .Haches (xlValue, xlPrimary) .AxisTitle.Characters.Text = "Tableau de données 2"

    Terminer par" pour définir les propriétés de tableau.

  • Type "End Sub" si besoin. Exécuter votre nouveau sous.

Conseils & Avertissements

  • Votre nouveau sous devrait ressembler à ceci:
  • "Sous createColumnChart ()
  • MonGraphe Dim Comme Chart
  • Gamme("A1").Sélectionner
  • ActiveCell.Value = "Tableau 1 Données"
  • Gamme("A2").Sélectionner
  • ActiveCell.Value = "1"
  • Gamme("A3").Sélectionner
  • ActiveCell.Value = "2"
  • Gamme("A4").Sélectionner
  • ActiveCell.Value = "3"
  • Gamme("A5").Sélectionner
  • ActiveCell.Value = "4"
  • Gamme("B1").Sélectionner
  • ActiveCell.Value = "Tableau de données 2"
  • Gamme("B2").Sélectionner
  • ActiveCell.Value = "5"
  • Gamme("B3").Sélectionner
  • ActiveCell.Value = "6"
  • Gamme("B4").Sélectionner
  • ActiveCell.Value = "7"
  • Gamme("B5").Sélectionner
  • ActiveCell.Value = "8"
  • Gamme("B6").Sélectionner
  • Set MonGraphe = Charts.Add
  • Avec MonGraphe
  • .Nom = "tableau de données"
  • .ChartType = xlColumnClustered
  • .SetSourceData Source: = Sheets ("Sheet1").Gamme("A1: B5") _
  • PlotBy: = xlRows
  • .HasTitle = True
  • .ChartTitle.Text = "= Sheet1! R1C2"
  • .Haches (xlCategory, xlPrimary) .HasTitle = True
  • .Haches (xlCategory, xlPrimary) .AxisTitle.Characters.Text = "Tableau 1 Données"
  • .Haches (xlValue, xlPrimary) .HasTitle = True
  • .Haches (xlValue, xlPrimary) .AxisTitle.Characters.Text = "Tableau de données 2"
  • Terminer par
  • End Sub"
Technologie / Logiciel / Microsoft excel

AUTRES

» » » » Comment créer un graphique dans vba excel