Discussion :

[NeedUHelp]

Bonjour,
J'ai réalisé une macro sur Excel, en VB6.
En ouvrant une "userform" je souhaiterais voir un tableau avec mes valeurs (ce que j'ai fait avec des label) et un diagramme "camembert" correspondant au tableau (donc aux mêmes valeurs).
J'ai essayé de mettre un "ChartSpace" mais on me l'interdit.

Que faire d'autre, sachant que mes valeurs sont variables ?

[jackborogar]

Bonjour,

Pour Afficher ton tableau dans la feuille "ALLO" par exemple utilise un SpreadSheet et ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cbDonnées_Click()
    On Error Resume Next
    Me.Controls.Remove (Img.Name)
    With Me.Spreadsheet1
        .Visible = True
        Set Plage = Sheets("ALLO").Range("Une PLAGE")
        For Each c In Plage
            .Cells(c.Row - Plage.Row + 1, c.Column - Plage.Column + 1) = c.Value
            .Cells(c.Row - Plage.Row + 1, c.Column - Plage.Column + 1).NumberFormat = c.NumberFormat
        Next c
    End With
End Sub

Pour ton diagramme met le dans la même feuille ALLO affiche ton diagramme et va le chercher avec ce code:

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
Private Sub cbGraphique_Click()
    Me.Spreadsheet1.Visible = False
    On Error Resume Next
    Me.Controls.Remove (Img.Name)
    On Error GoTo 0
    Set Img = Me.Controls.Add("forms.Image.1")
    With Img
        .Left = 100
        .Width = Me.cbExit.Left
        .Height = Me.cbExit.Top
        .Top = 0
    End With
    With Sheets("ALLO")
    Set g = Sheets("ALLO").ChartObjects(1).Chart
    Fichier = ActiveWorkbook.Path & "\" & "graphe.gif"
    g.Export Filename:=Fichier, FilterName:="GIF"
    Img.Picture = LoadPicture(Fichier)
 
    End With
End Sub

Cdt,

[NeedUHelp]

Merci jackborogar pour ta rapidité ^^

Je viens de lire ta solution mais j'ai fait différemment juste avant, et ça fonctionne !
J'ai ajouté une feuille à mon fichier Excel et créé un tableau fixe avec mes noms de lignes et colonnes. J'ai laissé les cases "valeurs variables" vides. Sur cette même feuille j'ai créé un diagramme "camembert" en fonction des noms et valeurs variables.
Dans ma macro, les variables sont affectées aux cellules correspondantes du tableau de la nouvelle feuille. Le "camembert" se remplie automatiquement.

[jackborogar]

De rien, le code juste au dessus que je t'ai proposé fait exactement la même chose.

Tu peux mettre le sujet en RESOLU

A bientôt

Cdt,