| |
| Publicado el 22,noviembre 2004 - 15:40 |
Bonjour
Connaissez-vous une astuce pour faire un graphe contenant un histogramme ET
une courbe avec si possible des ordonnées avec 2 échelles différentes. ?
Merci pour vos lumieres.
Stéphane LAVIGNE
Partenaire Informatique |
| |
| |
| | | |
|
| | |
| |
| Publicado el 22,noviembre 2004 - 15:52 |
Je suis préoccupé par la même problématique. De là mes essais pour utiliser l'activeX du langage R. La version 9 est-elle à une sujet une solution possible?
Cordialement.
Constant Depièreux |
| |
| |
| | | |
|
| | |
| |
| Publicado el 22,noviembre 2004 - 16:06 |
| Le seul moyen est de créer ce type de graphe sur une feuille excel (ole automation) |
| |
| |
| | | |
|
| | |
| |
| Publicado el 22,noviembre 2004 - 19:08 |
Bonjour
Avez-vous un exemple de code à me transmettre pour la mise en oeuvre de
cette fonctionalité ?
Merci |
| |
| |
| | | |
|
| | |
| |
| Publicado el 22,noviembre 2004 - 19:12 |
Selon le ST la version 9 ne permet pas d'avoir des series avec des graphes
differents.
UNE solution (selon le ST) : gerer ce type de graphe en utilisant les
fonctions de dessins.
Bon courage
@+ |
| |
| |
| | | |
|
| | |
| |
| Publicado el 22,noviembre 2004 - 20:47 |
ici peut etre...
Jean marc Venet avait fait une présentation sur le sujet aux WindReveries
2002
http://www.windasso.org/cgi-bin/gespage.exe…
Dans un message Stephane Lavigne disait :
Selon le ST la version 9 ne permet pas d'avoir des series avec des
graphes differents.
UNE solution (selon le ST) : gerer ce type de graphe en utilisant les
fonctions de dessins.
Bon courage
@+
--
Michel Herrscher Consultant
Président de WinDAsso - Association des Développeurs WINDEV(c)
http://www.windasso.org
Tel=+33 450 870912 Fax=+33 450 871741 GSM=+33 609044711 |
| |
| |
| | | |
|
| | |
| |
| Publicado el 23,noviembre 2004 - 09:57 |
// Initialisation de la requête
RequêteFactures.Param1= DateDebut
RequêteFactures.Param2= DateFin
HExécuteRequête(RequêteFactures,hRequêteDéfaut)
MaFeuilleXLS est un objet Automation dynamique
MonGraphe est un objet Automation dynamique
// Instance de Excel existante ?
SI ObjetActif("Excel.Application") <> Null ALORS
// Récupération de l'instance de Excel existante
MaFeuilleXLS = ObjetActif("Excel.Application")
MonGraphe = ObjetActif("Excel.Application")
SINON
// Allocation de l'objet automation "MaFeuilleXLS"
MaFeuilleXLS = allouer un objet Automation "Excel.Application"
MonGraphe = allouer un objet Automation "Excel.Application"
FIN
// Excel devient visible
MaFeuilleXLS>>Visible = Vrai
// Ouverture d'un classeur d'Excel
MaFeuilleXLS>>Workbooks>>Add()
// Affectation de plusieurs valeurs
MaFeuilleXLS>>Range("C2")>>Value = "CA et Département "
MaFeuilleXLS>>Range("B4")>>Value = "Département"
MaFeuilleXLS>>Range("C4")>>Value = "CA"
MaFeuilleXLS>>Range("D4")>>Value = "CA %"
MaFeuilleXLS>>Range("E4")>>Value = "Nb Clients"
i est un entier=5
HLitPremier(RequêteFactures)
TANTQUE HTrouve(RequêteFactures)
MaFeuilleXLS>>Range("B"+i)>>Value = RequêteFactures.FormuleDep
MaFeuilleXLS>>Range("E"+i)>>Value = RequêteFactures.Nb_Clients
MaFeuilleXLS>>Range("C"+i)>>Value = RequêteFactures.FormuleCA
HLitSuivant(RequêteFactures)
i++
FIN
i2 est un entier = i
i--
j est un entier=5
MaFeuilleXLS>>Range("C"+i2)>>Formula = "=somme(C"+j+":C"+i+")"
POUR j=5 A i
MaFeuilleXLS>>Range("D"+j)>>Formula = "=C"+j+"/C"+i2
FIN
//format d’une cellule
MaFeuilleXLS>>Range("D5:D"+i)>>NumberFormat = "0,00%"
// Sélection des données du graphe
MaFeuilleXLS>>Range("D5:E19")>>Select
// Initialisation de l'objet automation "MonGraphe" et tracé du graphe par défaut
MonGraphe = MaFeuilleXLS>>Charts>>Add
// Définition du type de graphe
MaFeuilleXLS>>Application>>CutCopyMode = False
MaFeuilleXLS>>Charts>>Add
MaFeuilleXLS>>ActiveChart>>ApplyCustomType(21,"Courbe - Histo. 2 axes")
MaFeuilleXLS>>ActiveChart>>Location(1)
MaFeuilleXLS>>ActiveChart>>HasTitle = True
MaFeuilleXLS>>ActiveChart>>ChartTitle>>Characters>>Text = "CA par Département"
MaFeuilleXLS>>ActiveChart>>Axes(1,1)>>HasTitle = True
MaFeuilleXLS>>ActiveChart>>Axes(1,1)>>AxisTitle>>Characters>>Text = "Département"
MaFeuilleXLS>>ActiveChart>>Axes(2,1)>>HasTitle = True
MaFeuilleXLS>>ActiveChart>>Axes(2,1)>>AxisTitle>>Characters>>Text = "CA %"
MaFeuilleXLS>>ActiveChart>>Axes(1,2)>>HasTitle = False
MaFeuilleXLS>>ActiveChart>>Axes(2,2)>>HasTitle = True
MaFeuilleXLS>>ActiveChart>>Axes(2,2)>>AxisTitle>>Characters>>Text = "Nb Clients"
MaFeuilleXLS>>ActiveChart>>HasLegend = False
MaFeuilleXLS>>ActiveChart>>ApplyDataLabels(2)
//pas de titre dans l'entête et bas de page lors de l'impression
MaFeuilleXLS>>ActiveChart>>PageSetup>>CenterFooter = ""
MaFeuilleXLS>>ActiveChart>>PageSetup>>CenterHeader = ""
//date du jour en bas de page lors de l'impression
MaFeuilleXLS>>ActiveChart>>PageSetup>>RightFooter = DateVersChaine(DateDuJour())
MaFeuilleXLS>>ActiveChart>>SeriesCollection(1)>>XValues = MaFeuilleXLS>>Worksheets("Feuil1")>>Range("B5:B19") |
| |
| |
| | | |
|
| | |
| |
| Publicado el 23,noviembre 2004 - 18:00 |
| |
| |
| | | |
|
| | |