Discussion :

[LaPanic]

Bonjour a tous,
j'ai cherché dans le forum et j'ai trouvé pas mal de trucs et j'ai pu télécharger le composant Office OWC11.EXE
ci-joint un exemple que je voudrais finir
dans la feuille Report il y a 3 boutons lorsqu'on click dessus il y a un userform qui s'affiche je voudrais afficher un graphe représentant la plage "calculation!A2:E4" et le titre du userform soit "calculation!A1" et le commentaire "calculation!B6" soit affiché dans le label2

il y a un message que je voudrais faire disparaitre si quelqu'un a une idée(voir l'image)

Merci pour votre aide

[SilkyRoad]

bonsoir

j'espère que ce lien pourra t'aider :
http://support.microsoft.com/?scid=k...id=2530&sid=50

bonne soirée
michel

[LaPanic]

Merci SilkyRoad:

Je crois que je vais me contenter de clicker sur OK du moment que cela ne change rien dans l'exécution de la macro (cette opération est un peut trop compliqué pour moi).

Concernant le userform j'ai pu changer le titre et le contenu du label par les commandes ci-dessous:

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
    Me.Caption = Sheets("calculation").Range("A1")
    Label2 = Sheets("calculation").Range("B6")
 
End Sub

il ne reste que l'affichage du graphique dans le composant Web et pour cela, je compte sur votre aide

Merci

[Krovax]

Je met un graphique dans un userform j'ai trouvé le code dans la FAQ,
ici
Pour le dossier ou on enregistre l'image, je préfère utiliser Environ(TEMP) qui permet de stocker l'image dans le dossier temporaire

[LaPanic]

Bonjour,
Merci Krovax pour ta réponse, mais ce que je recherche c'est d'adapter l'exemple proposé par SilkyRoad celui dans lequel on peut sélectionner les séries dans une zone de liste (j'aurai du ajouter une zone de liste dans mon exemple).

Merci pour votre aide

[LaPanic]

bonjour,
ci-dessous le code que je veux adapter au fichier exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
    Me.Caption = Sheets("calculation").Range("A1")
    Label2 = Sheets("calculation").Range("B6")
 
   Dim x As Byte
    Set C = ChartSpace1.Constants
    'Ajoute le graphique
    Set Cht = ChartSpace1.Charts.Add
    'Alimentation Listbox (Données de la plage G2:G6)
    For x = 3 To 4
    ListBox1.AddItem Cells(x, 1)
    Next x
  
End Sub

je voudrais que le listeBox1 affiche les donnés a partir d'une autre feuille soit la plage calculation!$A$3:$A$4

Merci pour votre aide

[LaPanic]

Bonjour tlm,
voila le résultat que je suis arrivé a réaliser je ne sais pas s'il y a une possibilité pour optimiser!??

merci pour votre aide

[aalex_38]

Bonjour,

Je n'ai pas regardé ton fichier joint mais au lieu de :

Code :

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

ListBox1.AddItem Cells(x, 1)

dans ton code précédent

Code :

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

ListBox1.AddItem worSheets("calculation").Range("A3:B4")

devrait fonctionner ?

Tu dis

[LaPanic]

merci aalex_38 pour ta reponse:
la plage qui alimente la listbox est dynamique

Code :

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

1
2
3
4
5
6
    a = 2
    Do
    a = a + 1
    ListBox1.AddItem (Sheets("calculation").Cells(a, 1))
    ListBox1.Selected(0) = True
    Loop While Sheets("calculation").Cells(a + 1, 1).Value <> ""

sauf s'il y a moyen d'optimiser a ce niveau

merci