Visual basic et titre d'axe de graphique Fermé

Question

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

le père · Accepted Answer

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

Visual basic et titre d'axe de graphique

1 réponse

Discussions similaires