J'ai un classeur excel avec une vingtaine de graphiques.
Je souahiterais remplacer en une fois un mot dans le titre des graphiques :
par exemple avril par mai sur toutes les feuilles. La fonction
rechercher/remplacer ne le permet pas. J'ai la version excel 2002. Comment
puis-je faire ?
For i = 1 To Sheets.Count Sheets(i).Select On Error Resume Next With ActiveChart HasTitle = True .ChartTitle.Characters.Text = Replace(.ChartTitle.Characters.Text, "Mai", "Juin") End With Next
Avec en prime les variables à saisir en Onglet "Données" cellule A1 pour le mois à actualiser au profit de la cellule A2 le nouveau mois
J'ai essayé sans problème avec un graphique croisé dynamique sur une feuille de données. Peux-tu poster ton classeur - ou une partie - en remplaçant les données sensibles sur www.cjoint.com ? Daniel "Chantal" a écrit dans le message de news:
J'ai copié la macro et j'ai une erreur et un débogage sur Next sh. Pour votre information, les graphiques sont le résultat de Tableaux croisés dynamiques et ne sont séparés des feuilles de données.
Bien à vous
Bonjour. Essaie (la macro est différente si les graphiques sont sur des feuilles de graphique) :
Sub test1() Dim sh As Worksheet, Graph As ChartObject For Each sh In Sheets For Each Graph In sh.ChartObjects With Graph.Chart.ChartTitle .Text = Replace(.Text, "avril", "mai") End With Next Graph Next sh End Sub
Cordialement. Daniel "Chantal" a écrit dans le message de news:
Bonjour à tous,
J'ai un classeur excel avec une vingtaine de graphiques. Je souahiterais remplacer en une fois un mot dans le titre des graphiques : par exemple avril par mai sur toutes les feuilles. La fonction rechercher/remplacer ne le permet pas. J'ai la version excel 2002. Comment puis-je faire ?
Merci pour votre précieuse aide
Chantal
Dur Dur Dur ces graphiques
Le code qui marche :
For i = 1 To Sheets.Count
Sheets(i).Select
On Error Resume Next
With ActiveChart
HasTitle = True
.ChartTitle.Characters.Text = Replace(.ChartTitle.Characters.Text,
"Mai", "Juin")
End With
Next
Avec en prime les variables à saisir en Onglet "Données" cellule A1 pour le
mois à actualiser au profit de la cellule A2 le nouveau mois
J'ai essayé sans problème avec un graphique croisé dynamique sur une feuille
de données.
Peux-tu poster ton classeur - ou une partie - en remplaçant les données
sensibles sur www.cjoint.com ?
Daniel
"Chantal" <Chantal@discussions.microsoft.com> a écrit dans le message de
news: 46DF4BB0-FFF9-4562-93B6-330C2F6BC74A@microsoft.com...
J'ai copié la macro et j'ai une erreur et un débogage sur Next sh.
Pour votre information, les graphiques sont le résultat de Tableaux
croisés
dynamiques et ne sont séparés des feuilles de données.
Bien à vous
Bonjour.
Essaie (la macro est différente si les graphiques sont sur des feuilles
de
graphique) :
Sub test1()
Dim sh As Worksheet, Graph As ChartObject
For Each sh In Sheets
For Each Graph In sh.ChartObjects
With Graph.Chart.ChartTitle
.Text = Replace(.Text, "avril", "mai")
End With
Next Graph
Next sh
End Sub
Cordialement.
Daniel
"Chantal" <Chantal@discussions.microsoft.com> a écrit dans le message de
news: DD675F45-7147-4020-BA18-260949199D75@microsoft.com...
Bonjour à tous,
J'ai un classeur excel avec une vingtaine de graphiques.
Je souahiterais remplacer en une fois un mot dans le titre des
graphiques
:
par exemple avril par mai sur toutes les feuilles. La fonction
rechercher/remplacer ne le permet pas. J'ai la version excel 2002.
Comment
puis-je faire ?
For i = 1 To Sheets.Count Sheets(i).Select On Error Resume Next With ActiveChart HasTitle = True .ChartTitle.Characters.Text = Replace(.ChartTitle.Characters.Text, "Mai", "Juin") End With Next
Avec en prime les variables à saisir en Onglet "Données" cellule A1 pour le mois à actualiser au profit de la cellule A2 le nouveau mois
J'ai essayé sans problème avec un graphique croisé dynamique sur une feuille de données. Peux-tu poster ton classeur - ou une partie - en remplaçant les données sensibles sur www.cjoint.com ? Daniel "Chantal" a écrit dans le message de news:
J'ai copié la macro et j'ai une erreur et un débogage sur Next sh. Pour votre information, les graphiques sont le résultat de Tableaux croisés dynamiques et ne sont séparés des feuilles de données.
Bien à vous
Bonjour. Essaie (la macro est différente si les graphiques sont sur des feuilles de graphique) :
Sub test1() Dim sh As Worksheet, Graph As ChartObject For Each sh In Sheets For Each Graph In sh.ChartObjects With Graph.Chart.ChartTitle .Text = Replace(.Text, "avril", "mai") End With Next Graph Next sh End Sub
Cordialement. Daniel "Chantal" a écrit dans le message de news:
Bonjour à tous,
J'ai un classeur excel avec une vingtaine de graphiques. Je souahiterais remplacer en une fois un mot dans le titre des graphiques : par exemple avril par mai sur toutes les feuilles. La fonction rechercher/remplacer ne le permet pas. J'ai la version excel 2002. Comment puis-je faire ?
Merci pour votre précieuse aide
Chantal
Chantal
génial ! Cela fonctionne.
Un tout grand merci et un très bon WE.
Cordialement
Ouahhhhhhh ! c'est ce que je te demandais ! tes graphiques sont sur des feuilles de graphique, aps avec les données :
Sub test() Dim ch As Chart For Each ch In Charts With ch.ChartTitle .Text = Replace(.Text, "May", "June") End With Next End Sub
Daniel "Chantal" a écrit dans le message de news:
c'est fait lien gDok55opmU
J'ai essayé sans problème avec un graphique croisé dynamique sur une feuille de données. Peux-tu poster ton classeur - ou une partie - en remplaçant les données sensibles sur www.cjoint.com ? Daniel "Chantal" a écrit dans le message de news:
J'ai copié la macro et j'ai une erreur et un débogage sur Next sh. Pour votre information, les graphiques sont le résultat de Tableaux croisés dynamiques et ne sont séparés des feuilles de données.
Bien à vous
Bonjour. Essaie (la macro est différente si les graphiques sont sur des feuilles de graphique) :
Sub test1() Dim sh As Worksheet, Graph As ChartObject For Each sh In Sheets For Each Graph In sh.ChartObjects With Graph.Chart.ChartTitle .Text = Replace(.Text, "avril", "mai") End With Next Graph Next sh End Sub
Cordialement. Daniel "Chantal" a écrit dans le message de news:
Bonjour à tous,
J'ai un classeur excel avec une vingtaine de graphiques. Je souahiterais remplacer en une fois un mot dans le titre des graphiques : par exemple avril par mai sur toutes les feuilles. La fonction rechercher/remplacer ne le permet pas. J'ai la version excel 2002. Comment puis-je faire ?
Merci pour votre précieuse aide
Chantal
génial ! Cela fonctionne.
Un tout grand merci et un très bon WE.
Cordialement
Ouahhhhhhh ! c'est ce que je te demandais ! tes graphiques sont sur des
feuilles de graphique, aps avec les données :
Sub test()
Dim ch As Chart
For Each ch In Charts
With ch.ChartTitle
.Text = Replace(.Text, "May", "June")
End With
Next
End Sub
Daniel
"Chantal" <Chantal@discussions.microsoft.com> a écrit dans le message de
news: 7D1EEA85-E704-4A0B-91EA-05D569577962@microsoft.com...
c'est fait
lien gDok55opmU
J'ai essayé sans problème avec un graphique croisé dynamique sur une
feuille
de données.
Peux-tu poster ton classeur - ou une partie - en remplaçant les données
sensibles sur www.cjoint.com ?
Daniel
"Chantal" <Chantal@discussions.microsoft.com> a écrit dans le message de
news: 46DF4BB0-FFF9-4562-93B6-330C2F6BC74A@microsoft.com...
J'ai copié la macro et j'ai une erreur et un débogage sur Next sh.
Pour votre information, les graphiques sont le résultat de Tableaux
croisés
dynamiques et ne sont séparés des feuilles de données.
Bien à vous
Bonjour.
Essaie (la macro est différente si les graphiques sont sur des
feuilles
de
graphique) :
Sub test1()
Dim sh As Worksheet, Graph As ChartObject
For Each sh In Sheets
For Each Graph In sh.ChartObjects
With Graph.Chart.ChartTitle
.Text = Replace(.Text, "avril", "mai")
End With
Next Graph
Next sh
End Sub
Cordialement.
Daniel
"Chantal" <Chantal@discussions.microsoft.com> a écrit dans le message
de
news: DD675F45-7147-4020-BA18-260949199D75@microsoft.com...
Bonjour à tous,
J'ai un classeur excel avec une vingtaine de graphiques.
Je souahiterais remplacer en une fois un mot dans le titre des
graphiques
:
par exemple avril par mai sur toutes les feuilles. La fonction
rechercher/remplacer ne le permet pas. J'ai la version excel 2002.
Comment
puis-je faire ?
Ouahhhhhhh ! c'est ce que je te demandais ! tes graphiques sont sur des feuilles de graphique, aps avec les données :
Sub test() Dim ch As Chart For Each ch In Charts With ch.ChartTitle .Text = Replace(.Text, "May", "June") End With Next End Sub
Daniel "Chantal" a écrit dans le message de news:
c'est fait lien gDok55opmU
J'ai essayé sans problème avec un graphique croisé dynamique sur une feuille de données. Peux-tu poster ton classeur - ou une partie - en remplaçant les données sensibles sur www.cjoint.com ? Daniel "Chantal" a écrit dans le message de news:
J'ai copié la macro et j'ai une erreur et un débogage sur Next sh. Pour votre information, les graphiques sont le résultat de Tableaux croisés dynamiques et ne sont séparés des feuilles de données.
Bien à vous
Bonjour. Essaie (la macro est différente si les graphiques sont sur des feuilles de graphique) :
Sub test1() Dim sh As Worksheet, Graph As ChartObject For Each sh In Sheets For Each Graph In sh.ChartObjects With Graph.Chart.ChartTitle .Text = Replace(.Text, "avril", "mai") End With Next Graph Next sh End Sub
Cordialement. Daniel "Chantal" a écrit dans le message de news:
Bonjour à tous,
J'ai un classeur excel avec une vingtaine de graphiques. Je souahiterais remplacer en une fois un mot dans le titre des graphiques : par exemple avril par mai sur toutes les feuilles. La fonction rechercher/remplacer ne le permet pas. J'ai la version excel 2002. Comment puis-je faire ?
Merci pour votre précieuse aide
Chantal
Chantal
merci à tous les deux. Bon WE
Dur Dur Dur ces graphiques Le code qui marche :
For i = 1 To Sheets.Count Sheets(i).Select On Error Resume Next With ActiveChart HasTitle = True .ChartTitle.Characters.Text = Replace(.ChartTitle.Characters.Text, "Mai", "Juin") End With Next
Avec en prime les variables à saisir en Onglet "Données" cellule A1 pour le mois à actualiser au profit de la cellule A2 le nouveau mois
J'ai essayé sans problème avec un graphique croisé dynamique sur une feuille de données. Peux-tu poster ton classeur - ou une partie - en remplaçant les données sensibles sur www.cjoint.com ? Daniel "Chantal" a écrit dans le message de news:
J'ai copié la macro et j'ai une erreur et un débogage sur Next sh. Pour votre information, les graphiques sont le résultat de Tableaux croisés dynamiques et ne sont séparés des feuilles de données.
Bien à vous
Bonjour. Essaie (la macro est différente si les graphiques sont sur des feuilles de graphique) :
Sub test1() Dim sh As Worksheet, Graph As ChartObject For Each sh In Sheets For Each Graph In sh.ChartObjects With Graph.Chart.ChartTitle .Text = Replace(.Text, "avril", "mai") End With Next Graph Next sh End Sub
Cordialement. Daniel "Chantal" a écrit dans le message de news:
Bonjour à tous,
J'ai un classeur excel avec une vingtaine de graphiques. Je souahiterais remplacer en une fois un mot dans le titre des graphiques : par exemple avril par mai sur toutes les feuilles. La fonction rechercher/remplacer ne le permet pas. J'ai la version excel 2002. Comment puis-je faire ?
Merci pour votre précieuse aide
Chantal
merci à tous les deux. Bon WE
Dur Dur Dur ces graphiques
Le code qui marche :
For i = 1 To Sheets.Count
Sheets(i).Select
On Error Resume Next
With ActiveChart
HasTitle = True
.ChartTitle.Characters.Text = Replace(.ChartTitle.Characters.Text,
"Mai", "Juin")
End With
Next
Avec en prime les variables à saisir en Onglet "Données" cellule A1 pour le
mois à actualiser au profit de la cellule A2 le nouveau mois
J'ai essayé sans problème avec un graphique croisé dynamique sur une feuille
de données.
Peux-tu poster ton classeur - ou une partie - en remplaçant les données
sensibles sur www.cjoint.com ?
Daniel
"Chantal" <Chantal@discussions.microsoft.com> a écrit dans le message de
news: 46DF4BB0-FFF9-4562-93B6-330C2F6BC74A@microsoft.com...
J'ai copié la macro et j'ai une erreur et un débogage sur Next sh.
Pour votre information, les graphiques sont le résultat de Tableaux
croisés
dynamiques et ne sont séparés des feuilles de données.
Bien à vous
Bonjour.
Essaie (la macro est différente si les graphiques sont sur des feuilles
de
graphique) :
Sub test1()
Dim sh As Worksheet, Graph As ChartObject
For Each sh In Sheets
For Each Graph In sh.ChartObjects
With Graph.Chart.ChartTitle
.Text = Replace(.Text, "avril", "mai")
End With
Next Graph
Next sh
End Sub
Cordialement.
Daniel
"Chantal" <Chantal@discussions.microsoft.com> a écrit dans le message de
news: DD675F45-7147-4020-BA18-260949199D75@microsoft.com...
Bonjour à tous,
J'ai un classeur excel avec une vingtaine de graphiques.
Je souahiterais remplacer en une fois un mot dans le titre des
graphiques
:
par exemple avril par mai sur toutes les feuilles. La fonction
rechercher/remplacer ne le permet pas. J'ai la version excel 2002.
Comment
puis-je faire ?
For i = 1 To Sheets.Count Sheets(i).Select On Error Resume Next With ActiveChart HasTitle = True .ChartTitle.Characters.Text = Replace(.ChartTitle.Characters.Text, "Mai", "Juin") End With Next
Avec en prime les variables à saisir en Onglet "Données" cellule A1 pour le mois à actualiser au profit de la cellule A2 le nouveau mois
J'ai essayé sans problème avec un graphique croisé dynamique sur une feuille de données. Peux-tu poster ton classeur - ou une partie - en remplaçant les données sensibles sur www.cjoint.com ? Daniel "Chantal" a écrit dans le message de news:
J'ai copié la macro et j'ai une erreur et un débogage sur Next sh. Pour votre information, les graphiques sont le résultat de Tableaux croisés dynamiques et ne sont séparés des feuilles de données.
Bien à vous
Bonjour. Essaie (la macro est différente si les graphiques sont sur des feuilles de graphique) :
Sub test1() Dim sh As Worksheet, Graph As ChartObject For Each sh In Sheets For Each Graph In sh.ChartObjects With Graph.Chart.ChartTitle .Text = Replace(.Text, "avril", "mai") End With Next Graph Next sh End Sub
Cordialement. Daniel "Chantal" a écrit dans le message de news:
Bonjour à tous,
J'ai un classeur excel avec une vingtaine de graphiques. Je souahiterais remplacer en une fois un mot dans le titre des graphiques : par exemple avril par mai sur toutes les feuilles. La fonction rechercher/remplacer ne le permet pas. J'ai la version excel 2002. Comment puis-je faire ?