Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Problème de Macro

Problème de Macro

5 réponses
Avatar
Jean-Daniel Gallay
Bonjour
Dans un dossier, j'ai 5 feuilles.
La 1ère intitulée "Données"
La 2ème intitulée "Graphique"
Les 3 autres ont plusieurs colonnes de chiffres + une cellule de texte (
mois de l'année).
J'ai créé une macro qui me permet, à partir de n'importe laquelle de ces 3
feuilles, de copier leur contenu dans "Données". Ceci me permet de faire
apparaître dans la feuille "Graphique" les courbes appartenant à l'une ou
l'autre des feuilles de chiffres. Ceci marche bien.
Avec la même macro je voudrais copier le contenu de la cellule texte, dans
le titre du graphique. Cela ne marche pas et je n'arive pas à comprendre ce
que je dois faire.
Quelqu'un peut-il m'aider SVP.
Merci

JD Gallay
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ellimac
Bonjour,

Adapté de l'enregistreur :

ActiveChart.ChartTitle.Characters.Text = Sheets(2).Range
("a1")

Camille

-----Message d'origine-----
Bonjour
Dans un dossier, j'ai 5 feuilles.
La 1ère intitulée "Données"
La 2ème intitulée "Graphique"
Les 3 autres ont plusieurs colonnes de chiffres + une
cellule de texte (

mois de l'année).
J'ai créé une macro qui me permet, à partir de n'importe
laquelle de ces 3

feuilles, de copier leur contenu dans "Données". Ceci me
permet de faire

apparaître dans la feuille "Graphique" les courbes
appartenant à l'une ou

l'autre des feuilles de chiffres. Ceci marche bien.
Avec la même macro je voudrais copier le contenu de la
cellule texte, dans

le titre du graphique. Cela ne marche pas et je n'arive
pas à comprendre ce

que je dois faire.
Quelqu'un peut-il m'aider SVP.
Merci

JD Gallay



.



Avatar
papou
Bonjour
A adpater :
With Worksheets("Feuil1").ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = [G1]
End With
** Attention **, ici on considère que la cellule G1 de la feuille active
contient le texte du titre du graphique
Donc éventuellement remplacer [G1] par
Worksheets("NomdelaFeuille").Range("G1")

Cordialement
Pascal

"Jean-Daniel Gallay" a écrit dans le message de news:
425521ce$
Bonjour
Dans un dossier, j'ai 5 feuilles.
La 1ère intitulée "Données"
La 2ème intitulée "Graphique"
Les 3 autres ont plusieurs colonnes de chiffres + une cellule de texte
( mois de l'année).
J'ai créé une macro qui me permet, à partir de n'importe laquelle de ces 3
feuilles, de copier leur contenu dans "Données". Ceci me permet de faire
apparaître dans la feuille "Graphique" les courbes appartenant à l'une ou
l'autre des feuilles de chiffres. Ceci marche bien.
Avec la même macro je voudrais copier le contenu de la cellule texte, dans
le titre du graphique. Cela ne marche pas et je n'arive pas à comprendre
ce que je dois faire.
Quelqu'un peut-il m'aider SVP.
Merci

JD Gallay





Avatar
Jean-Daniel Gallay
Bonjour papou

Formidable la rapidité de réponse.
Malheureusement ma capacité d'adaptation n'est pas à la hauteur.
J'arrive bien à modifier le titre si le grapf est sur la même feuille que
les données.
Mais avec une feuille Graph1 et une feuille Donnée j'ai modifié la macro
ainsi:


Sub test()

'

' test Macro

' Macro enregistrée le 07.04.2005 par Gallay Jean-Daniel

'

With Worksheets("Graph1").ChartObjects(1).Chart

.HasTitle = True

.ChartTitle.Text = Worksheets("Donnée").Range("A22")

End With

'

End Sub



et je reçoit: L'indice n'appartien pas à la selection.

Il doit me manquer un truc, mais lequel ??



Merci de l'aide

jd gallay


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%
Bonjour
A adpater :
With Worksheets("Feuil1").ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = [G1]
End With
** Attention **, ici on considère que la cellule G1 de la feuille active
contient le texte du titre du graphique
Donc éventuellement remplacer [G1] par
Worksheets("NomdelaFeuille").Range("G1")

Cordialement
Pascal

"Jean-Daniel Gallay" a écrit dans le message de
news: 425521ce$
Bonjour
Dans un dossier, j'ai 5 feuilles.
La 1ère intitulée "Données"
La 2ème intitulée "Graphique"
Les 3 autres ont plusieurs colonnes de chiffres + une cellule de texte
( mois de l'année).
J'ai créé une macro qui me permet, à partir de n'importe laquelle de ces
3 feuilles, de copier leur contenu dans "Données". Ceci me permet de
faire apparaître dans la feuille "Graphique" les courbes appartenant à
l'une ou l'autre des feuilles de chiffres. Ceci marche bien.
Avec la même macro je voudrais copier le contenu de la cellule texte,
dans le titre du graphique. Cela ne marche pas et je n'arive pas à
comprendre ce que je dois faire.
Quelqu'un peut-il m'aider SVP.
Merci

JD Gallay









Avatar
papou
Re
Ok, normal que ça ne fonctionne pas puisqu'il s'agit d'une feuille graphique
;-)
Dans ces conditions tu peux utiliser quelquechose comme ceci :
Graph1.HasTitle = True
Graph1.ChartTitle.Text = Worksheets("Donnée").Range("A22")
ou bien aussi :
With ThisWorkbook.Charts("Graph1")
.HasTitle = True
.ChartTitle.Text = Worksheets("Donnée").[A22]
End With

Cordialement
Pascal

"Jean-Daniel Gallay" a écrit dans le message de news:
42554b6b$
Bonjour papou

Formidable la rapidité de réponse.
Malheureusement ma capacité d'adaptation n'est pas à la hauteur.
J'arrive bien à modifier le titre si le grapf est sur la même feuille que
les données.
Mais avec une feuille Graph1 et une feuille Donnée j'ai modifié la macro
ainsi:


Sub test()

'

' test Macro

' Macro enregistrée le 07.04.2005 par Gallay Jean-Daniel

'

With Worksheets("Graph1").ChartObjects(1).Chart

.HasTitle = True

.ChartTitle.Text = Worksheets("Donnée").Range("A22")

End With

'

End Sub



et je reçoit: L'indice n'appartien pas à la selection.

Il doit me manquer un truc, mais lequel ??



Merci de l'aide

jd gallay


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%
Bonjour
A adpater :
With Worksheets("Feuil1").ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = [G1]
End With
** Attention **, ici on considère que la cellule G1 de la feuille active
contient le texte du titre du graphique
Donc éventuellement remplacer [G1] par
Worksheets("NomdelaFeuille").Range("G1")

Cordialement
Pascal

"Jean-Daniel Gallay" a écrit dans le message de
news: 425521ce$
Bonjour
Dans un dossier, j'ai 5 feuilles.
La 1ère intitulée "Données"
La 2ème intitulée "Graphique"
Les 3 autres ont plusieurs colonnes de chiffres + une cellule de texte
( mois de l'année).
J'ai créé une macro qui me permet, à partir de n'importe laquelle de ces
3 feuilles, de copier leur contenu dans "Données". Ceci me permet de
faire apparaître dans la feuille "Graphique" les courbes appartenant à
l'une ou l'autre des feuilles de chiffres. Ceci marche bien.
Avec la même macro je voudrais copier le contenu de la cellule texte,
dans le titre du graphique. Cela ne marche pas et je n'arive pas à
comprendre ce que je dois faire.
Quelqu'un peut-il m'aider SVP.
Merci

JD Gallay













Avatar
Jean-Daniel Gallay
Génial, ça marche impec.
Grand merci
jd gallay

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Re
Ok, normal que ça ne fonctionne pas puisqu'il s'agit d'une feuille
graphique ;-)
Dans ces conditions tu peux utiliser quelquechose comme ceci :
Graph1.HasTitle = True
Graph1.ChartTitle.Text = Worksheets("Donnée").Range("A22")
ou bien aussi :
With ThisWorkbook.Charts("Graph1")
.HasTitle = True
.ChartTitle.Text = Worksheets("Donnée").[A22]
End With

Cordialement
Pascal

"Jean-Daniel Gallay" a écrit dans le message de
news: 42554b6b$
Bonjour papou

Formidable la rapidité de réponse.
Malheureusement ma capacité d'adaptation n'est pas à la hauteur.
J'arrive bien à modifier le titre si le grapf est sur la même feuille que
les données.
Mais avec une feuille Graph1 et une feuille Donnée j'ai modifié la macro
ainsi:


Sub test()

'

' test Macro

' Macro enregistrée le 07.04.2005 par Gallay Jean-Daniel

'

With Worksheets("Graph1").ChartObjects(1).Chart

.HasTitle = True

.ChartTitle.Text = Worksheets("Donnée").Range("A22")

End With

'

End Sub



et je reçoit: L'indice n'appartien pas à la selection.

Il doit me manquer un truc, mais lequel ??



Merci de l'aide

jd gallay


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%
Bonjour
A adpater :
With Worksheets("Feuil1").ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = [G1]
End With
** Attention **, ici on considère que la cellule G1 de la feuille active
contient le texte du titre du graphique
Donc éventuellement remplacer [G1] par
Worksheets("NomdelaFeuille").Range("G1")

Cordialement
Pascal

"Jean-Daniel Gallay" a écrit dans le message de
news: 425521ce$
Bonjour
Dans un dossier, j'ai 5 feuilles.
La 1ère intitulée "Données"
La 2ème intitulée "Graphique"
Les 3 autres ont plusieurs colonnes de chiffres + une cellule de texte
( mois de l'année).
J'ai créé une macro qui me permet, à partir de n'importe laquelle de
ces 3 feuilles, de copier leur contenu dans "Données". Ceci me permet
de faire apparaître dans la feuille "Graphique" les courbes appartenant
à l'une ou l'autre des feuilles de chiffres. Ceci marche bien.
Avec la même macro je voudrais copier le contenu de la cellule texte,
dans le titre du graphique. Cela ne marche pas et je n'arive pas à
comprendre ce que je dois faire.
Quelqu'un peut-il m'aider SVP.
Merci

JD Gallay