macro-graph-changement de feuille

[alexis62]

bonjour,

ci joint il y a une macro permettant de mettre des info bulle dans un nuage de point. cpdt, je voudrais avoir une page de donnée et une page graphique. Or lorsque je change le graphiqe de place, cette macro ne marche pas. Ainsi en feuille 1, je voudrais avoir mes coordonnée et mes noms de produits, ET DANS l'autre feuille le Graph.

Je n'y arrive pas....Comment faire????
je pense qu'il faut utiliser le "worsheet( feuil1). mAIS...

Merci pour le ptt bt de code qui me permettrait de faire ça...

Alexis

 

[pierrejean]

Re : macro-graph-changement de feuille

bonjour alexis62

Inserer une nouvelle page
Couper coller le graphe sur cette nouvelle page
Modifier Sub Workbook_Open()

'Set ClTabChart.Graph = Worksheets("Y.S Densité").ChartObjects(1).Chart
     Set ClTabChart.Graph = Worksheets("Feuil1").ChartObjects(1).Chart
    'Worksheets("Y.S Densité").ChartObjects(1).Activate
     Worksheets("Feuil1").ChartObjects(1).Activate

Modifier Private Sub Graph_MouseMove(ByVal Button As Long, ByVal Shift As Long, _
ByVal x As Long, ByVal y As Long)

[COLOR=blue]    Sheets("Y.S Densité").[/COLOR]Range("C1").Offset(Arg2, -2) & vbCrLf & _
     [COLOR=blue]Sheets("Y.S Densité").[/COLOR]Range("C1").Offset(Arg2, -1) & vbCrLf & _
      [COLOR=blue]Sheets("Y.S Densité").[/COLOR]Range("C1").Offset(Arg2, 0)

 

[alexis62]

Re : macro-graph-changement de feuille

Bonjour,

je viens de regarder votre solution : une ptte merveille... Merci pour le coup de main. Vous m'avez fait gagner quelques heures...