Discussion :

[pinto_armindo]

Boujour a tous
Voila je cherche juste a copier le texte d'une cellule situe en Sheet1 d'excel pour venir le coller dans le titre d'un graphique Chart situe en Sheet2

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Select Case GraphIndex
            Case "1"
            Sheets("Sheet1").Select
            Range("A1").Select
            ActiveCell.FormulaR1C1 = "Pow3_BB.txt"
            Sheets("Sheet2").Select
            ActiveSheet.ChartObjects(GraphChartIndex).Activate
            ActiveWindow.Visible = False
            Windows("Book1").Activate
            ActiveSheet.ChartObjects(GraphChartIndex).Activate
            ActiveChart.ChartTitle.Select
            Selection.Characters.Text = "Pow3_BB"
            Selection.AutoScaleFont = False
            With Selection.Characters(Start:=1, Length:=7).Font
            .Name = "Arial"
            .FontStyle = "Bold"
            .Size = 12
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = 3
            End With

Le titre est en italique dans le code, mon probleme c'est qu'il peut etre different, donc je voudrait juste qu'il soit dans une variable.....

Merci beaucoup et desole si ma question est bete, je debute

[Lou Pitchoun]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Characters.Text = Sheets("Sheet1").Range("A1").Value

Je pense que cela devrait focntionner.

[pinto_armindo]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Characters.Text = Sheets("Sheet1").Range("A1").Value

Je pense que cela devrait focntionner.

J'ai declarer une variable et essaye de lui affecter la valeur generer par la commande comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim GraphTitle As Variant
GraphTitle = Selection.Characters.Text = Sheets("Sheet1").Range("A1").Value

Mais j'ai une erreur a la compilation ??
Merci pour ta rapidite....

[pinto_armindo]

J'ai declarer une variable et essaye de lui affecter la valeur generer par la commande comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim GraphTitle As Variant
GraphTitle = Selection.Characters.Text = Sheets("Sheet1").Range("A1").Value

Mais j'ai une erreur a la compilation ??
Merci pour ta rapidite....

Desole c'est resolu sans variable juste ta commande ou il faut


Merci beaucoup...a bientot