Réponse acceptée !
J'ai essaye en utilisant le code ci-dessous dans un module a part, mais je n'arrive pas a mettre mon datagrid en variable public pour pouvoir l'utiliser avec cette fonction dans la deuxieme fenetre qui contient un MSchart.
Public Sub graphic(ByVal temp_chart As AxMSChart20Lib.AxMSChart, ByVal temp_datagrid As DataGrid) Dim tab_valeurs(11, 2) Dim compteur As Short 'use a do ... while instead For compteur = 0 To 11 tab_valeurs(compteur, 0) = temp_datagrid.Item(compteur, 1) 'Décalage d une colonne tab_valeurs(compteur, 1) = temp_datagrid.Item(compteur, 2) 'car on ignore la 1ère tab_valeurs(compteur, 2) = temp_datagrid.Item(compteur, 3) 'colonne du DataGrid Next temp_chart.ChartData = tab_valeurs End Sub
Est-ce que quelqu'un a une idee ?
Merci
|