Comment construire
Fermé
alex 123
Messages postés
22
Date d'inscription
samedi 30 mars 2013
Statut
Membre
Dernière intervention
31 mars 2013
-
30 mars 2013 à 06:41
antoine9298 Messages postés 101 Date d'inscription vendredi 5 avril 2013 Statut Membre Dernière intervention 23 décembre 2014 - 5 avril 2013 à 15:12
antoine9298 Messages postés 101 Date d'inscription vendredi 5 avril 2013 Statut Membre Dernière intervention 23 décembre 2014 - 5 avril 2013 à 15:12
A voir également:
- Comment construire
- Construire un organigramme - Guide
- Jeux pour construire des maisons en 3d gratuit - Télécharger - Architecture & Déco
- Construire un tableau croisé dynamique - Guide
- Comment construire une pyramide des âges sur papier millimétré - Forum Bureautique
- Papier millimetré - Forum Programmation
1 réponse
antoine9298
Messages postés
101
Date d'inscription
vendredi 5 avril 2013
Statut
Membre
Dernière intervention
23 décembre 2014
6
Modifié par antoine9298 le 5/04/2013 à 15:13
Modifié par antoine9298 le 5/04/2013 à 15:13
si c'est pour exel voici la procedure: (sinon précise ta question)
Ouvre un nouveau projet, ajoute un commandbutton cmdGo et insère le code suivant.
Dim XlSheet As Object
Private Sub cmdGo_Click()
CreationClasseur ' crée un classeur excell et y met des données pour construire le graphe
ConstruireGraph 'construit le graphe
Set XlSheet = Nothing
End Sub
Sub CreationClasseur()
Set XlSheet = CreateObject("Excel.Application") ' crée une application Excell
XlSheet.Application.DisplayAlerts = False 'annule les messages
XlSheet.Application.Visible = True 'rend la fenêtre Excell visible
XlSheet.Workbooks.Add 'ajoute un classeur
'remplit la prèmière feuille de données utilisées pour construire le graphe
'cellule de début = A1 trés important pour dire ou commence les données à mettre dans le graphe
XlSheet.Worksheets(1).cells(1, 1).Value = "Janvier"
XlSheet.Worksheets(1).cells(1, 2).Value = "100"
XlSheet.Worksheets(1).cells(2, 1).Value = "Février"
XlSheet.Worksheets(1).cells(2, 2).Value = "250"
XlSheet.Worksheets(1).cells(3, 1).Value = "Mars"
XlSheet.Worksheets(1).cells(3, 2).Value = "180"
XlSheet.Worksheets(1).cells(4, 1).Value = "Avril"
XlSheet.Worksheets(1).cells(4, 2).Value = "300"
XlSheet.Worksheets(1).cells(5, 1).Value = "Mai"
XlSheet.Worksheets(1).cells(5, 2).Value = "380"
XlSheet.Worksheets(1).cells(6, 1).Value = "Avril"
XlSheet.Worksheets(1).cells(6, 2).Value = "300"
'cellule de fin = B6 trés important pour dire ou se termine les données à mettre dans le graphe
End Sub
Sub ConstruireGraph()
'ne pas oublier d'ajouter la référence Microsoft Excel 8.0 Object Library au projet, sinon impossible de créer l'application Excell
Dim ch As ChartObject
'ch va recevoir le graphique
Set ch = Worksheets(1).ChartObjects.Add(5, 5, 345, 198) ' le graphique sera tracé dans la prémière feuille du classeur
'trace le graphe een prenant les données de la cellule A1 à la cellule B6
ch.Chart.SetSourceData Source:=Worksheets(1).Range("A1:B6"), _
PlotBy:=xlColumns
ch.Chart.ChartWizard Gallery:=xlLine, PlotBy:=xlColumns, HasLegend:=True, CategoryTitle:="Mois", ValueTitle:="Ventes", Title:="Graphe1"
With ch.Chart.Axes(xlValue, xlPrimary)
.HasMajorGridlines = False
End With
End Sub
Ouvre un nouveau projet, ajoute un commandbutton cmdGo et insère le code suivant.
Dim XlSheet As Object
Private Sub cmdGo_Click()
CreationClasseur ' crée un classeur excell et y met des données pour construire le graphe
ConstruireGraph 'construit le graphe
Set XlSheet = Nothing
End Sub
Sub CreationClasseur()
Set XlSheet = CreateObject("Excel.Application") ' crée une application Excell
XlSheet.Application.DisplayAlerts = False 'annule les messages
XlSheet.Application.Visible = True 'rend la fenêtre Excell visible
XlSheet.Workbooks.Add 'ajoute un classeur
'remplit la prèmière feuille de données utilisées pour construire le graphe
'cellule de début = A1 trés important pour dire ou commence les données à mettre dans le graphe
XlSheet.Worksheets(1).cells(1, 1).Value = "Janvier"
XlSheet.Worksheets(1).cells(1, 2).Value = "100"
XlSheet.Worksheets(1).cells(2, 1).Value = "Février"
XlSheet.Worksheets(1).cells(2, 2).Value = "250"
XlSheet.Worksheets(1).cells(3, 1).Value = "Mars"
XlSheet.Worksheets(1).cells(3, 2).Value = "180"
XlSheet.Worksheets(1).cells(4, 1).Value = "Avril"
XlSheet.Worksheets(1).cells(4, 2).Value = "300"
XlSheet.Worksheets(1).cells(5, 1).Value = "Mai"
XlSheet.Worksheets(1).cells(5, 2).Value = "380"
XlSheet.Worksheets(1).cells(6, 1).Value = "Avril"
XlSheet.Worksheets(1).cells(6, 2).Value = "300"
'cellule de fin = B6 trés important pour dire ou se termine les données à mettre dans le graphe
End Sub
Sub ConstruireGraph()
'ne pas oublier d'ajouter la référence Microsoft Excel 8.0 Object Library au projet, sinon impossible de créer l'application Excell
Dim ch As ChartObject
'ch va recevoir le graphique
Set ch = Worksheets(1).ChartObjects.Add(5, 5, 345, 198) ' le graphique sera tracé dans la prémière feuille du classeur
'trace le graphe een prenant les données de la cellule A1 à la cellule B6
ch.Chart.SetSourceData Source:=Worksheets(1).Range("A1:B6"), _
PlotBy:=xlColumns
ch.Chart.ChartWizard Gallery:=xlLine, PlotBy:=xlColumns, HasLegend:=True, CategoryTitle:="Mois", ValueTitle:="Ventes", Title:="Graphe1"
With ch.Chart.Axes(xlValue, xlPrimary)
.HasMajorGridlines = False
End With
End Sub