Quelques questions en VBA

Version imprimable

27/03/2015, 18h47
Gemstar

Quelques questions en VBA

Bonjour,

Merci à vous d'entretenir ce blog c'est vraiment génial :mouarf:
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 :oops:
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:calim2:

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 :calim2:

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 :D
27/03/2015, 20h42
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:

Me.Repaint

pour raffraîchir ce Userform
27/03/2015, 21h56
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

1 pièce(s) jointe(s)

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:

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

28/03/2015, 14h23
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
28/03/2015, 15h25
PMO2017

Citation:

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.