Visual basic et titre d'axe de graphique

kika -  
 le père -
Bonjour,

J'ai une macro dans Excel qui me permet de produire quelques graphiques. Lors de la macro, j'essaie d'extraire le contenu d'une cellule de ma feuille Excel pour le copier en titre d'un axe de mon graphique. Et la, ca ne marche pas, il semble que meme si je copie le contenu de ma cellule, VB produit:

Sheets("Sheet1").Select
Range("J1").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Axes(xlValue).AxisTitle.Select
Application.CutCopyMode = False
Selection.Characters.Text = "blabla"

ou "blabla" est le texte copie dans le Selection.Copy

Comme le contenu de la cellule que je copie est variable, j'aurais voulu eviter d'avoir a taper le texte de facon explicite (car la fonction copier n'a alors plus aucun interet).

Merci beaucoup pour toute suggestion.

Stéphane
Configuration: Windows XP
Mozilla 1.7.12

1 réponse

  1. le père
     
    Bonjour

    Sheets("Sheet2").Select 
    ActiveSheet.ChartObjects(1).Activate 
    ActiveChart.Axes(xlValue).AxisTitle.Select 
    Selection.Characters.Text =Sheets("Sheet1").Range("J1").Value
    
    4