graphiques sous VBA

slt, j'aimerasi savoir comment mettre dans une list ou combiobox tous les types de graphiques existantS.
de plus je dois mettre en place une appli sous VBA pour créer des graphiques pour des utilisateurs ne connaissant pas Excel.
si quelqu'un peut m'aider aussi a ce niveau car je suis débutante sous VBA.
merci d'avance.

Qu'est-ce que tu dois faire exactement pour tes utilisateurs? Génération de graphiques de façon automatique depuis une base de donnée, aide à la création, ... ?

Moi, par exemple, j'ai dû créer un programme pour sortir des indicateurs. La forme de graphique est prédéterminée, et donc tu ne dois pas te tuer avec des Combobox... Ca simplifie la programmation, et l'utilisateur n'a pas besoin d'être un pro d'Excel ...

A la prochaine,

J-F



-------------------------------
Réponse au message :
-------------------------------

slt, j'aimerasi savoir comment mettre dans une list ou combiobox tous les types de graphiques existantS.
de plus je dois mettre en place une appli sous VBA pour créer des graphiques pour des utilisateurs ne connaissant pas Excel.
si quelqu'un peut m'aider aussi a ce niveau car je suis débutante sous VBA.
merci d'avance.

en fait, je dois créer une application sous VBA pour simplifier l'utilisation des focntion des Excel.l'utilisateur sélectionne les données avec les quelles il veut faire un graph puis en cliquznt dans un menu, le programme suivant s'effectue.Par des boites de message , l'utilisateur renseigne le titre du graph, le nom des titres et les mets en forme mais le type du graph est par défaut un histogramme et l'utilisateur n'a pas le choix du type de graphique.la seule possibilité q'il a est de faire u clic droit et de revenir à la fonction assistant graph de excel.
voila.Merci si tu peux m'aider.

Public Sub Créationgraphique()
'Création d'un graphique dans une feuille annexe
Dim Titre As String 'Titre du graphique
Dim Abcisse As String 'Titre de l'axe des abcisses
Dim Ordonnée As String 'Titre de l'axe des ordonnées

ActiveSheet.Select
Charts.Add
'Fenêtres demandant les titres de l'ensemble des éléments du graphique
Titre = InputBox("Inscrivez le titre du graphique.")
Abcisse = InputBox("Inscrivez le titre de l'axe des abcisses.")
Ordonnée = InputBox("Inscrivez le titre de l'axe des ordonnées.")
ActiveChart.Location Where:=xlLocationAutomatic, Name:="Graphique 1"

With ActiveChart
'Le titre du graphique
.HasTitle = True
.ChartTitle.Characters.Text = Titre
'Les divers axes du graphique et leur nom affecté
.axes(xlCategory, xlPrimary).HasTitle = True
.axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = Abcisse
.axes(xlValue, xlPrimary).HasTitle = True
.axes(xlValue, xlPrimary).AxisTitle.Characters.Text = Ordonnée
End With
ActiveChart.ChartArea.Select
'Ajout de la table des données
'ActiveChart.HasDataTable = True
'Mise en forme
ActiveSheet.Select
'Format des axes
ActiveChart.axes(xlCategory).Select
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
.Name = "Arial"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveChart.axes(xlValue).Select
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
.Name = "Arial"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
'Format de la légende
ActiveChart.ChartArea.Select
ActiveChart.Legend.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With

If (Titre <> "") Then
'Format du titre
ActiveChart.ChartTitle.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
With Selection.Border
.Weight = xlHairline
.LineStyle = xlAutomatic
End With
Selection.Shadow = True
Selection.Interior.ColorIndex = xlAutomatic
End If
If (Ordonnée <> "") Then
'Format des titres de l'axe des ordonnées
ActiveChart.axes(xlValue).Select
ActiveChart.axes(xlValue).AxisTitle.Select
ActiveChart.ChartArea.Select
ActiveChart.axes(xlValue).AxisTitle.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
End If
If (Abcisse <> "") Then
'Format du titre de l'axe des abcisses
ActiveChart.axes(xlCategory).AxisTitle.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
End If
End Sub



-------------------------------
Réponse au message :
-------------------------------

Qu'est-ce que tu dois faire exactement pour tes utilisateurs? Génération de graphiques de façon automatique depuis une base de donnée, aide à la création, ... ?

Moi, par exemple, j'ai dû créer un programme pour sortir des indicateurs. La forme de graphique est prédéterminée, et donc tu ne dois pas te tuer avec des Combobox... Ca simplifie la programmation, et l'utilisateur n'a pas besoin d'être un pro d'Excel ...

A la prochaine,

J-F



-------------------------------
Réponse au message :
-------------------------------

slt, j'aimerasi savoir comment mettre dans une list ou combiobox tous les types de graphiques existantS.
de plus je dois mettre en place une appli sous VBA pour créer des graphiques pour des utilisateurs ne connaissant pas Excel.
si quelqu'un peut m'aider aussi a ce niveau car je suis débutante sous VBA.
merci d'avance.

voila la liste des code graphiques de excel:

xl3DArea
xl3DAreaStacked
xl3DAreaStacked100
xlArea
xlAreaStacked
xlAreaStacked100
xl3DBarClustered
xl3DBarStacked
xl3DBarStacked100
xl3DColumn
xl3DColumnClustered
xl3DColumnStacked
xl3DColumnStacked100
xlConeBarClustered
xlConeBarStacked
xlConeBarStacked100
xlConeCol
xlConeColClustered
xlConeColStacked
xlConeColStacked100
xlCylinderBarClustered
xlCylinderBarStacked
xlCylinderBarStacked100
xlCylinderCol
xlCylinderColClustered
xlCylinderColStacked
xlCylinderColStacked100
xlDoughnut
xlDoughnutExploded
xl3DLine
xlPyramidBarClustered
xlPyramidBarStacked
xlPyramidBarStacked100
xlPyramidCol
xlPyramidColClustered
xlPyramidColStacked
xlPyramidColStacked100
xlRadar
xlRadarFilled
xlRadarMarkers
xlBarClustered
xlBarStacked
xlBarStacked100
xlBubble
xlBubble3DEffect
xlColumnClustered
xlColumnStacked
xlColumnStacked100
xlLine
xlLineMarkers
xlLineMarkersStacked
xlLIneMarkersStacked100
xlLineStacked
xlLineStacked100
xl3Dpie
xl3DPieExploded
xlBarOfPie
xlPie
xlPieExploded
xlPieOfPie
xlXYScatter
xlXYScatterLines
xlXYScatterLinesNoMarkers
xlXYScatterSmooth
xlXYScatterSmoothNoMarkers

Mais je me demande si cela ne serait pas plus pratique de former les utilisateurs à l'assistant graphique de Excel, avec une procédure à suivre...

Amicalement

Lolow

Bonjour!
J-F je serais vraiment intéressée par ton prog, cest exactement ce que je dois faire pour ma boite mais le souci c ke je ne sais pas du tout comment faire!!!!!
merci d'avance pour ta reponse

Bonjour,

j'ai une application VBA, je voudrais savoir comment générer du graphique (histogrammes,...) à partir d'une base access ou d'un fichier excel.

Ce que je veux savoir exactement, c'est les fonction VB qui permettent l'accès à un fichier Excel (ouverture, fermeture, création,...) et s'il ya des fonctions VB ou des Macros qui génèrerent à partir de fichiers Excels ou une bases Access des graphiques qu'on pourra afficher sur l'interface VB .

si quelqu'un pourra m'éclairer!!!!

merci d'avance