Documentation du Dr FRAPPE

Ce wiki regroupe les résultats de mes expériences en informatique accumulés au cours de mes recherches sur le net.

Dans la mesure du possible, j'ai cité mes sources ; il en manque certainement…

Cette page est en lecture seule. Vous pouvez afficher le texte source, mais ne pourrez pas le modifier. Contactez votre administrateur si vous pensez qu'il s'agit d'une erreur.

====== Programmation en VBA - Excel : graphiques ======

===== Bibliographie =====

http://www.vbfrance.com/codes/EXEMPLE-AFFICHAGE-GRAPHIQUE-DANS-USERFORM-VBA-EXCEL_37702.aspx

===== Mettre un graphique sur un userform =====

source : http://www.vbfrance.com/codes/INSERER-GRAPHIQUE-DANS-USERFORM_37885.aspx

<note important>Dans l'éditeur VBE, il faut d'abord insérer le controle supplementaire.

Pour cela, aller dans outils/contrôles upplémentaires :

et cocher le contrôle " Microsot Office Chart xxx" :

Le nouveau contrôle apparaît dans la palette :
</note>

Voici un exemple de code VBA :

  Private Sub UserForm_Activate()
    Dim oChart, oSeries1, oSeries2
    Dim oAxis1, oAxis2, oConst
    Dim S1(43), S2(43), S3(43) As Variant
    
    'on crée les tableaux de variables
    For i = 1 To 43
      S1(i) = Cells(i + 1, 2)
      S2(i) = Cells(i + 1, 3)
      S3(i) = Cells(i + 1, 4)
    Next
    
    'on efface tout
    ChartSpace1.Clear
    Set oConst = ChartSpace1.Constants
    
    ' Création diagramme dans le ChartSpace
    Set oChart = ChartSpace1.Charts.Add
    ' Ajout 1ere série de type XYscatter plot
    Set oSeries1 = oChart.SeriesCollection.Add
    oSeries1.Caption = "Current"
    oSeries1.Type = oConst.chChartTypeScatterSmoothLine ' on peut changer le type, se reférer à l'explorateur d'objet
    oSeries1.SetData oConst.chDimXValues, oConst.chDataLiteral, S1()
    oSeries1.SetData oConst.chDimYValues, oConst.chDataLiteral, S2()
    ' Ajout 2eme série de type XYscatter plot
    Set oSeries2 = oChart.SeriesCollection.Add
    oSeries2.Caption = "estimate"
    oSeries2.Type = oConst.chChartTypeScatterSmoothLine
    oSeries2.SetData oConst.chDimXValues, oConst.chDataLiteral, S1()
    oSeries2.SetData oConst.chDimYValues, oConst.chDataLiteral, S3()
    
    ' les Axes
    Set oAxis1 = oChart.Axes(oConst.chAxisPositionLeft)
    oAxis1.Scaling.Maximum = 0.05
    oAxis1.Scaling.Minimum = 0.025
    oAxis1.NumberFormat = "0.0%"
    oAxis1.HasMajorGridlines = True
    Set oAxis2 = oChart.Axes(oConst.chAxisPositionBottom)
    oAxis2.Scaling.Maximum = 30
    oAxis2.Scaling.Minimum = 0
    oAxis2.NumberFormat = "0"
    oAxis2.HasMajorGridlines = True
    'on indique la légende
    oChart.HasLegend = True
    oChart.Legend.Position = oConst.chLegendPositionBottom
    'on définit la couleur de fonds
    oChart.PlotArea.Interior.Color = "white"
    
    'on peut définir toutes les propriétés supplémentaires en se référant à l'explorateur sous "spacechart"
  End Sub

===== Créer un graphique =====

==== sur une feuille graphique ====

Pour créer une feuille graphique par manipulation de séries :

  Dim objChart As Chart, objRange As Range, MaSerie As Series, i As Long
  
  Set objRange = Worksheets("Feuil1").Range(Worksheets("Feuil1").Cells(1, 1), Worksheets("Feuil1").Cells(21, 3))
  Set objChart = ThisWorkbook.Charts.Add
  with objChart
    .ChartType = xlXYScatter
    .SeriesCollection.Add objRange, xlColumns, True, True
    For i = 2 To objRange.Columns.Count
      Set MaSerie = .SeriesCollection.NewSeries
      MaSerie.Values = "=" & objRange.Columns(i).Address(True, True, xlR1C1, True)
      MaSerie.XValues = "=" & objRange.Columns(1).Address(True, True, xlR1C1, True)
    Next i
  end with

=== valeurs possibles pour la propriété ChartType ===

^valeur^effet^
^xlLine|Courbes|
^xlLineMarkersStacked|Courbes empilées avec marqueurs|
^xlLineStacked|Courbes empilées|
^xlPie|Secteurs|
^xlPieOfPie|Secteurs de secteurs|
^xlPyramidBarStacked|Barres pyramidales empilées|
^xlPyramidCol|Histogramme pyramidal 3D|
^xlPyramidColClustered|Histogramme pyramidal en cluster|
^xlPyramidColStacked|Histogramme pyramidal empilé|
^xlPyramidColStacked100|Histogramme pyramidal empilé à 100 %|
^xlRadar|Radar|
^xlRadarFilled|Radar plein|
^xlRadarMarkers|Radar avec indicateurs de données|
^xlStockHLC|Max-Min-Clôture|
^xlStockOHLC|Ouverture-Max-Min-Clôture|
^xlStockVHLC|Volume-Max-Min-Clôture|
^xlStockVOHLC|Volume-Ouverture-Max-Min-Clôture|
^xlSurface|Surface 3D|
^xlSurfaceTopView|Surface (vue du dessus)|
^xlSurfaceTopViewWireframe|Surface (Structure vue de dessus)|
^xlSurfaceWireframe|Surface 3D (structure)|
^xlXYScatter|Nuages de points|
^xlXYScatterLines|Nuages de points avec courbes|
^xlXYScatterLinesNoMarkers|Nuages de points avec courbes et sans indicateurs de données|
^xlXYScatterSmooth|Nuages de points avec courbes lissées|
^xlXYScatterSmoothNoMarkers|Nuages de points avec courbes lissées et sans indicateurs de données|
^xl3DArea|Aires 3D|
^xl3DAreaStacked|Aires 3D empilées|
^xl3DAreaStacked100|Aires empilées 100 %|
^xl3DBarClustered|Barres 3D en cluster|
^xl3DBarStacked|Barres 3D empilées|
^xl3DBarStacked100|Barres 3D empilées 100 %|
^xl3DColumn|Histogramme 3D|
^xl3DColumnClustered|Histogramme 3D en cluster|
^xl3DColumnStacked|Histogramme 3D empilé|
^xl3DColumnStacked100|Histogramme 3D empilé 100 %|
^xl3DLine|Courbes 3D|
^xl3DPie|Secteurs 3D|
^xl3DPieExploded|Secteurs 3D éclatés|
^xlArea|Aires|
^xlAreaStacked|Aires empilées|
^xlAreaStacked100|Aires empilées 100 %|
^xlBarClustered|Barres en cluster|
^xlBarOfPie|Barres de secteurs|
^xlBarStacked|Barres empilées|
^xlBarStacked100|Barres empilées 100 %|
^xlBubble|Bulles|
^xlBubble3DEffect|Bulles avec effets 3D|
^xlColumnClustered|Histogramme en cluster|
^xlColumnStacked|Histogramme empilé|
^xlColumnStacked100|Histogramme empilé 100 %|
^xlConeBarClustered|Barres coniques en cluster|
^xlConeBarStacked|Barres coniques empilées|
^xlConeBarStacked100|Barres coniques empilées 100 %|
^xlConeCol|Histogramme conique 3D|
^xlConeColClustered|Histogramme conique en cluster|
^xlConeColStacked|Histogramme conique empilé|
^xlConeColStacked100|Histogramme conique empilé 100 %|
^xlCylinderBarClustered|Barres cylindriques en cluster|
^xlCylinderBarStacked|Barres cylindriques empilées|
^xlCylinderBarStacked100|Barres cylindriques empilées 100 %|
^xlCylinderCol|Histogramme en cylindres 3D|
^xlCylinderColClustered|Histogramme conique en cluster|
^xlCylinderColStacked|Histogramme conique empilé|
^xlCylinderColStacked100|Histogramme en cylindres empilés 100 %|
^xlDoughnut|Anneau|
^xlDoughnutExploded|Anneau éclaté|
^xlLineMarkers|Courbes avec marqueurs|
^xlLineMarkersStacked100|Courbes empilées 100 % avec marqueurs|
^xlLineStacked100|Courbes empilées 100 %|
^xlPieExploded|Secteurs éclatés|
^xlPyramidBarClustered|Barres pyramidales en cluster|
^xlPyramidBarStacked100|Barres pyramidales empilées 100 %|

Piste : • Sidebar • De Nginx à Apache : remplacer Nginx par Apache sans perdre les données du site Web et avec le minimum de temps d'arrêt • Comment activer Windows 10/8/7 sans clé d'activation Légalement • Keepass 2 Gestion sécurisée des mots de passe • Nginx : Comment configurer des hôtes virtuels sur Ubuntu 16.04

Documentation du Dr FRAPPE

Recherche

Navigation

Imprimer/exporter

Outils

QR Code