Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro Ajout de titre sur graphique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion alexane
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

alexane

XLDnaute Occasionnel
Bonjour à tous
J'ai une macro qui me permet à travers une inputbox de définir un titre à tous les graphiques de la feuille active
Code: 
Dim Rep As String
For Each mon_graphique In ActiveSheet.ChartObjects
    cpt = cpt + 1
    Rep = Application.InputBox(Prompt:="Saisir un titre pour le graphique " & cpt, Type:=2)
    If Rep = "Faux" Then Exit Sub
    mon_graphique.Select
     If ActiveChart.HasTitle = False Then ActiveChart.HasTitle = True
    ActiveChart.ChartTitle.Characters.Text = Rep
Next mon_graphique
Ensuite j'ai voulu généraliser la macro à tout le classeur pour qu'elle s'effectue sur les graphiques présent sur des feuilles graphique et là ça marche pas
Code: 
For Each ma_feuille In Sheets
    ma_feuille.Select
    For Each mon_graphique In ActiveSheet.ChartObjects
        cpt = cpt + 1
        Rep = Application.InputBox(Prompt:="Saisir un titre pour le graphique " & cpt, Type:=2)
        If Rep = "Faux" Then Exit Sub
        mon_graphique.Select
        If ActiveChart.HasTitle = False Then ActiveChart.HasTitle = True
        ActiveChart.ChartTitle.Characters.Text = Rep
    Next mon_graphique
Next ma_feuille
qqn peut m'aider ?
Ci joint fichier d'essai
 

Pièces jointes

Trier par date Trier par votes
Re : macro Ajout de titre sur graphique

Bonjour,

regarde le code ci-dessous

J'ai modifié la ligne :

Code: 
For Each ma_feuille In Sheets

et mis "WorkSheets", ainsi tu ne testes que les onglets, et non pas les feuilles graphiques...

Code: 
Sub TitreClasseur()
'Procédure à appliquer à tous les graphiques d'un classeur excel
For Each ma_feuille In Worksheets
'    ma_feuille.Select
    For Each mon_graphique In ma_feuille.ChartObjects
        cpt = cpt + 1
        Rep = Application.InputBox(Prompt:="Saisir un titre pour le graphique " & cpt, Type:=2)
        If Rep = "Faux" Then Exit Sub
        With mon_graphique.Chart
            'si le graphique n'a pas de titre, on plus en insere un, sinon simple modification de l'existant (sous entendu)
            If .HasTitle = False Then .HasTitle = True
            'Affectation au titre de la valeur saisie dans l'inputbox
            .ChartTitle.Characters.Text = Rep
        End With
    Next mon_graphique
Next ma_feuille
End Sub

Bonne journée
 
Vote positif 0 Vote négatif
Re : macro Ajout de titre sur graphique

Bonjour Alexane,

Tout d'abord ton bouton n'était pas associer à la bonne macro!🙂

Ensuite une feuille Graphique retourne un objet Chart et non pas WorkSheet et donc se traite différement.

voici ta macro modifiée:

Code: 
Sub TitreClasseur()
'Procédure à appliquer à tous les graphiques d'un classeur excel
    For Each ma_Feuille In Sheets
        ma_Feuille.Select
        If TypeName(ma_Feuille) = "Worksheet" Then
            For Each mon_graphique In ActiveSheet.ChartObjects
                cpt = cpt + 1
                Rep = Application.InputBox(Prompt:="Saisir un titre pour le graphique " & cpt, Type:=2)
                If Rep = "Faux" Then Exit Sub
                mon_graphique.Select
                'si le graphique n'a pas de titre, on plus en insere un, sinon simple modification de l'existant (sous entendu)
                If ActiveChart.HasTitle = False Then ActiveChart.HasTitle = True
                'Affectation au titre de la valeur saisie dans l'inputbox
                ActiveChart.ChartTitle.Characters.Text = Rep
            Next mon_graphique
        ElseIf TypeName(ma_Feuille) = "Chart" Then
            Rep = Application.InputBox(Prompt:="Saisir un titre pour le graphique " & cpt, Type:=2)
            If Rep = "Faux" Then Exit Sub
            With ActiveChart
                .HasTitle = True
                .ChartTitle.Characters.Text = Rep
            End With
        End If
    Next ma_Feuille
End Sub

A+
 
Vote positif 0 Vote négatif
Re : macro Ajout de titre sur graphique

Re-,

en reprenant, et adaptant le code d'Hasco (Salut Ges 🙂🙂)

Code: 
Sub TitreClasseur()
'Procédure à appliquer à tous les graphiques d'un classeur excel
    For Each ma_feuille In Sheets
        If TypeName(ma_feuille) = "Worksheet" Then
            For Each mon_graphique In ActiveSheet.ChartObjects
                cpt = cpt + 1
                Rep = Application.InputBox(Prompt:="Saisir un titre pour le graphique " & cpt, Type:=2)
                If Rep = "Faux" Then Exit Sub
                With mon_graphique.Chart
                'si le graphique n'a pas de titre, on plus en insere un, sinon simple modification de l'existant (sous entendu)
                    If .HasTitle = False Then .HasTitle = True
                'Affectation au titre de la valeur saisie dans l'inputbox
                    .ChartTitle.Characters.Text = Rep
                End With
            Next mon_graphique
        ElseIf TypeName(ma_feuille) = "Chart" Then
            Rep = Application.InputBox(Prompt:="Saisir un titre pour le graphique " & cpt, Type:=2)
            If Rep = "Faux" Then Exit Sub
            With ma_feuille
                .HasTitle = True
                .ChartTitle.Characters.Text = Rep
            End With
        End If
    Next ma_feuille
End Sub
 
Vote positif 0 Vote négatif
Re : macro Ajout de titre sur graphique

Re,

As - tu vérifier la macro que tu lances par le bouton "Choisir le titre de tous les graphiques du classeur" Dans l'exemple que tu nous a donnée, c'était pas la bonne macro.

A+ je joins le fichier que j'ai fait et qui fonctionne chez moi.
 
Vote positif 0 Vote négatif
Re : macro Ajout de titre sur graphique

Merci à tous pour vos réponses
Désolée pour le bouton, j'avais testé dans vbe en mode pas à pas, pas directement avec le bouton
Hasco, ton code marche sans problème c'est juste que ma réponse a chevauché la tienne et s'adressait à Bhbh. Merci pour tes explications également.
A bientot
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
227
Marie L
M
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
567
TooFatBoy
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
612
anthoYS
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
  • Résolu(e)
XL 2021 Taille de la feuille à l'ouverture
Réponses
11
Affichages
499
guy72
  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
834
cathodique
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
729
kiki29
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
450
KTM
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
533
spike29
S
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
445
Lau01150
L
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
842
Lu76Fer
D
  • Question Question
Microsoft 365 macro showAllData et mot de passe
Réponses
13
Affichages
649
Daniel200666
D
G
  • Résolu(e)
XL 2019 macro pour masquer puis afficher colonnes a la demande
Réponses
4
Affichages
336
Phil69970
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
697
fanch55
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
541
sylvanu
N
  • Question Question
XL 2019 Mettre en gras éléments du graphique avec macro
Réponses
4
Affichages
896
Nasseuz
N
A
  • Question Question
Microsoft 365 Macro mal optimisé ou pc peu puissant ?
Réponses
6
Affichages
297
Marc Vanlindt
M
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
803
MBEPID
M
EXCEL :: VBA :: Barre de progression via un graphique cylindrique
Réponses
0
Affichages
598
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…