affiche un graphique dans userform

[didierschmit]

bonsoir à tous
, je cree le graphique mais je souhaiterai l'afficher dans un userform .
il y a t'il un moyen .?
objectif reel: je suis dans un userform1 , je clique sur un BOUTON et j'affiche le graphique dans le userform2 .

voici le code que j'ai placer dans le userform1

Private Sub CommandButton1_Click()
' creationGraphiqueParTableau()
    Dim i As Byte
    Dim Tableau(1 To 20) As Integer, Tableau2(1 To 10) As Integer
    
    
    ChartObjects.Delete 'efface la page graphique
    
    
    'Création du tableau pour les Abscisses
    For i = 1 To 20 'remplacer par N ou N est le nb des different gaint utiliser le nb de courses
        Tableau(i) = i * 2
    Next i
    
    'Création d'un tableau pour les Ordonnées
    For i = 1 To 10
        'Le tableau est rempli par des valeurs aléatoires pour
        'cet exemple
        Tableau2(i) = Int((50 * Rnd) + 1) 'à remplacer par la valeur de chaque gain
    Next i
    
    'Création graphique
    Charts.Add
    'Définit la localisation du graphique:
    'dans la feuille de calcul Feuil1 pour cet exemple
    ActiveChart.Location _
    Where:=xlLocationAsObject, Name:="Feuil1"
    
    'Ajoute une série dans le graphique
    With ActiveChart
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = Tableau() 'Abscisses
        .SeriesCollection(1).Values = Tableau2() 'Ordonnées
        'Définit le type (Courbe)
        .ChartType = xlLine
    End With
End Sub

merci de votre aide

 

[myDearFriend!]

Re : affiche un graphique dans userform

Bonsoir didierschmit,

Maître Ti t'offre une possibilité sous ce lien FormGraphique.

Cordialement,

 

[MichelXld]

Re : affiche un graphique dans userform

bonsoir ... ;o)


d'autre possiblités dans ce lien:
Comment visualiser un graphique dans un UserForm ?




Bonne soirée
MichelXld

 

[BOISGONTIER]

Re : affiche un graphique dans userform

Bonsoir,

Private Sub UserForm_Initialize()
    Set g = Sheets("Mois").ChartObjects(1).Chart
    fichier = ActiveWorkbook.Path & "\" & "graphe.gif"
    g.Export Filename:=fichier, FilterName:="GIF"
    Image1.Picture = LoadPicture(fichier)
End Sub

JB
Formation Excel VBA JB

 

[didierschmit]

Re : affiche un graphique dans userform

bonsoir
merci à tous
pour les 2 premeirs liens , j'en avait eu connaissance.
pour le bout de code de BOISGOINTIER, je regarde cela.
il me reste donc à enregistrer mon graphique en Graphe.gif !!

 

[soenda]

Re : affiche un graphique dans userform

Bonsoir le fil

C'est exactement ce que je cherchais.

MERCI à TOUS.

A plus