didierschmit
XLDnaute Nouveau
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
merci de votre aide
, 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
Code:
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