VBA [Excel 2003] Création d'un Graphique

Signaler
Messages postés
2
Date d'inscription
lundi 17 juillet 2006
Statut
Membre
Dernière intervention
29 juillet 2010
-
Messages postés
2
Date d'inscription
lundi 17 juillet 2006
Statut
Membre
Dernière intervention
29 juillet 2010
-
Bonjour,
je viens vers vous pour avoir une petite aide en VBA. Je suis débutant, et j'essaie de comprendre et de créer un fichier pour mon travail.
Ce fichier consiste a récupérer des données via un petit formulaire, et ensuite de créer un graphique dans un userform en choisissant une plage de Coordonnée (exemple : B9:D12) et de créer le graphique par rapport à ces coordonnées.

Voici le début de mon code :

Dans mon code j'ai mis une variable 2 pour faire des test, et je me suis apercu que en mettant la var2 j'arrivais a afficher une valeur dans mon graphique. Moi j'aimerais afficher dans le graphique la plage de données de Var1.


Private Sub CommandButton1_Click()

Dim mongraphe As ChChart
Dim C
Dim mafeuille As Worksheet
Dim plage As Range
Dim var2

var1 = TextBox1.Value
var2 = 10

Set mafeuille = Worksheets("Feuil2")
With mafeuille
    ' on choisi la plage de données via la variable
    Set plage = .Range(var1)
    ' Permet de selectionne la plage de donnees
    ' via la variable dans le tableau
    plage.Select
End With

    Set C = ChartSpace1.Constants
    'Creation du Graphique
    Set mongraphe = ChartSpace1.Charts.Add
    'Type de Graphique :
    ' chChartTypePieExploded = camembert
    ' chChartTypeBarClustered3D = Barre 3D
    ' chChartTypeColumnClustered3D =  Colonne 3D
    mongraphe.Type = C.chChartTypeBarClustered3D
    
    With mongraphe
    'Affichage du titre du Graphique
    .HasTitle = True
    'Nom du titre de graphique
    .Title.Caption = "Evolution de la taille disque du Serveur"
    'Défini la couleur pour le titre du graphique
    .Title.Font.Color = RGB(0, 0, 255)
    'Défini la taille du titre du graphique
    .Title.Font.Size = 14
    'Défini la position du titre du graphique
    .Title.Position = chTitlePositionTop
    'Permet d'afficher les légendes
    .HasLegend = True
    'Affiche la légende et la position
    .Legend.Position = chLegendPositionRight
    'permet d'afficher les valeurs de dim en abscisse du graphique
    .SetData chDimCategories, chDataLiteral, var1
    'permet d'afficher les donnees dans le graphique de var2
    .SeriesCollection(0).SetData chDimValues, chDataLiteral, var2
    End With
End Sub

Private Sub CommandButton2_Click()
    Unload UserForm2
End Sub


Merci d'avance pour votre aide.

1 réponse

Messages postés
2
Date d'inscription
lundi 17 juillet 2006
Statut
Membre
Dernière intervention
29 juillet 2010

Bonjour,
je cherche toujours une solution pour mon problème. (petit up ^^)