Discussion :

[Gemstar]

Bonjour,

Merci à vous d'entretenir ce blog c'est vraiment génial
j'ai beau avoir cherché je ne trouve pas solutions à mes problèmes, je suis désolé si j'ai crée un doublon.
Je remercie toute les personnes qui prendront du temps à lire mes soucis et à essayer de m'aider
Je programme en VBA sur Excel

1) J'ai crée un formulaire avec des boutons, dont un qui crée un graphique, cependant je ne peux voir le graphique uniquement lorsque je quitte le formulaire, y a t-il un code spécifique pour que le graphique apparaisse comme une nouvelle fenêtre indépendante de toute feuille et mobile, j'avais pensé à crée un autre formulaire pour l'y stocker mais en vain

2) D'ailleurs mon graphique est un Profit&Loss, donc avec valeur positive et négative, cependant l'axe des abscisses reste stocker au 0, j'ai essayé par intuition un petit .Axes(xlValue, xlPrimary).Position = xlBottom mais encore une fois en vain

3) Je voudrais crée dans mon formulaire, un bouton réinitialiser, et la je suis vraiment perdu
J'ai pensé à un
"Unload me
Load me"
Encore une fois c'est mauvais

Voilà si vous avez des suggestions je suis à votre écoute
Merci bien

[parmi]

Bonjour,

Est-ce que ton graphique est sur le Userform ou sur une feuille du classeur ?
S'il est sur le Userform, essaie en mettant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Repaint

pour raffraîchir ce Userform

[Gemstar]

Bonjour,

Merci à toi pour ta réponse rapide.

Mon graphique est sur une feuille, mais j'aimerai bien le mettre sur l'userform, je ne sais juste pas comment le faire.

Merci

[PMO2017]

Bonjour,

Pour créer un graphique dans un UserForm, vous pouvez essayer cette démarche qui utilise un ChartSpace des Web Components 11.0 (OWC11).
Chez moi, cela fonctionne.
Cependant, c'est sans garantie qu'il en soit de même chez vous car tout dépend de la version OWC que vous possédez et si elle est installée sur votre machine.
Les Web Components sont très instables pour les causes susdites.

La démarche :
1) Créez un Userform
2) Copiez le code suivant dans sa fenêtre de code ET il faudra faire référence à Microsoft Office Web Components 11.0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
'##############################################
'### Nécessite la référence à Library OWC11 ###
'### Microsoft Office Web Components 11.0   ###
'##############################################
Private Sub UserForm_Initialize()
Dim S As Worksheet
Dim R As Range
Dim var
Dim i&
Dim CTL As Control
Dim CHT As OWC11.ChChart
Dim SER As OWC11.ChSeries
Dim Tx()
Dim Ty()
'--- Les données du graphique ---
Set S = Sheets("test")    'adapter le nom de la feuille
Set R = S.Range("a1:b7")  'adapter la plage de données
var = R
ReDim Tx(1 To UBound(var, 1))
ReDim Ty(1 To UBound(var, 1))
For i& = 1 To UBound(var, 1)
  Tx(i&) = var(i&, 1)
  Ty(i&) = var(i&, 2)
Next i&
'--- Création à la volée d'un contrôle OWC11.ChartSpace ---
Set CTL = Me.Controls.Add("OWC11.ChartSpace.11", "myChartSpace")
With CTL
  .Left = Me.Left + 10
  .Top = Me.Top + 10
  .Width = Me.Width - 20
  .Height = Me.Height - 40
End With
'--- Création du graphique et affectation de ses propriétés ---
Set CHT = CTL.Charts.Add
With CHT
  .Type = chChartTypeColumnClustered
  .HasLegend = True
  .Legend.Position = chLegendPositionRight
End With
'--- Création de la série et affectation de ses propriétés ---
Set SER = CHT.SeriesCollection.Add
With SER
  .Caption = "zaza"
  .Type = chChartTypeColumnStacked
  .SetData chDimCategories, chDataLiteral, Tx
  .SetData chDimValues, chDataLiteral, Ty
End With
End Sub

3) Nommez une feuille "test" et en "A1:B7" mettez des données

[Gemstar]

Bonjour,

Je vais essayer de ce pas votre méthode, merci de votre implication.

J'ai une dernière question, l'axe des ordonnées coupe celle des Abscisses en 0, comment faire pour la programmer en VBA afin que celle ci la coupe à la valeur minimal ?
c'est un graphique qui prend en axe X le temps, j'ai donc mes dates en plein milieu de mon graphique c'est assez gênant.

Merci

[PMO2017]

J'ai une dernière question, l'axe des ordonnées coupe celle des Abscisses en 0, comment faire pour la programmer en VBA afin que celle ci la coupe à la valeur minimal ?
c'est un graphique qui prend en axe X le temps, j'ai donc mes dates en plein milieu de mon graphique c'est assez gênant.

1) Pouvez-vous mettre votre classeur (édulcoré des données sensibles) en pièce jointe pour que je puisse me rendre compte de l'état de votre graphique ?
2) Tenez moi au courant si le code que j'ai fourni fonctionne chez vous.