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

Code modif graph

Créer une discussion

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
K

Ken Hutchinson

XLDnaute Occasionnel
Code modif étiquette graph

Bonjour le forum,

Je crée un graph par macro mais je voudrais le modifier en même temps que je le créé. J'aimerais qu'apparaisse dans mes barres des étiquettes mais que ce soirt une valeur que je vais chercher dans une colonne qui n'a rien avoir avec le graph.

Voilà comment je pensais faire mais cela ne fonctionne pas...

Code: 
        ActiveChart.SeriesCollection(1).Select

  For k = 1 To a
  
   
    ActiveChart.SeriesCollection(1).Points(k).DataLabel.Select
    Selection.Characters.Text = Sheets("MON").Cells(k, 1).Value
    Next k

Faut-il que je mette la valeur que je veux mettre en variable ?
en tout cas ma macro ne sélectionne pas les points de la série...

merci de votre aide
 
Dernière édition:
Trier par date Trier par votes
Re : Code modif graph

Bonjour,

Il te suffit de mettre em mettre en marche ton enregisteur de macros, et d'aller une fois à travers ton processus ... pour visualiser comment VBA a traduit ton code ...

A +
 
Vote positif 0 Vote négatif
Re : Code modif graph

Bonjour James007,

C'est ce que j'ai fait et j'en ai sorti une partie du code que je tente d'adapter.

L'enregistreur de macro m'a donné cela.

Code: 
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).DataLabels.Select
    ActiveChart.SeriesCollection(1).Points(41).DataLabel.Select
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Points(39).Select
    ActiveChart.SeriesCollection(1).Points(39).ApplyDataLabels Type:= _
        xlDataLabelsShowLabel, AutoText:=True, LegendKey:=False
    ActiveChart.SeriesCollection(1).DataLabels.Select
    ActiveChart.SeriesCollection(1).Points(39).DataLabel.Select
    Selection.Characters.Text = "TOTO"
    Selection.AutoScaleFont = False
    With Selection.Characters(Start:=1, Length:=4).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 17
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

Mais je voudrais automatiser et y mettre le contenu d'une cellule bien précise...
 
Vote positif 0 Vote négatif
Re : Code modif graph

Ken Hutchinson à dit:
et oui c'est ce que je tente de faire dans le code plus haut. mais la boucle de sélection de la série ne fonctionne pas. ça ne sélectionne rien... et je seche...
Cliquez pour agrandir...

Comme souvent... sans le fichier ... difficile de deviner ... mais dans ce cas c'est forcément ta variable k qui est incorrecte ... ou ta boucle qui n'englobe pas la totalité du processus de loop ...

A +
 
Vote positif 0 Vote négatif
Re : Code modif graph

Hello,

Merci pour vos réponse. La solution m'est venue dans la nuit.

Voici le code qui fonctionne bien :
Code: 
        ActiveChart.SeriesCollection(20).Select
        For k = 1 To a
  
    TextToGo = Sheets("MON").Cells(k + 1, 74).Value
   
       ActiveChart.SeriesCollection(20).Points(k).ApplyDataLabels Type:= _
        xlDataLabelsShowLabel, AutoText:=True, LegendKey:=False
    ActiveChart.SeriesCollection(20).DataLabels.Select

    ActiveChart.SeriesCollection(20).Points(k).DataLabel.Select
    Selection.Characters.Text = TextToGo
        Selection.AutoScaleFont = False
    Selection.Font.Size = 12

    Next k

avec mise en variable du texte à écrire.

Merci de votre aide.
 
Vote positif 0 Vote négatif
Re : Code modif graph

ça c'est de la belle programmation !! je ne sais pas encore écrire comme cela.

Bravo !!

Effectivement il n'y avait pas que le problème de variable. Il y avait un problème de processus de sélection.

Je vais tenter d'adapter ton code dans ma macro.

Merci de ton aide.
 
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

S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
1 K
safranien
S
  • Question Question
Microsoft 365 Macro qui enchaine deshoraires Aller-Retour en fonction de critères
Réponses
10
Affichages
332
bsalv
B
P
  • Résolu(e)
Microsoft 365 VBA - Dynamiser plages de données graphiques
Réponses
4
Affichages
186
job75
F
  • Question Question
XL 2016 [VBA] Incrémenter le graph d'une nouvelle ligne du tableau
Réponses
2
Affichages
427
F22Raptor
F
S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
645
TooFatBoy
  • Question Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
1 K
jeff1494
  • Question Question
Microsoft 365 Déplacer cellules en gardant mise en forme source et cible (via VBA)
2 3
Réponses
34
Affichages
2 K
TooFatBoy
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
566
Yogean
Y
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
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
567
sylvanu
G
  • Question Question
Microsoft 365 Export données d'une listview
Réponses
5
Affichages
757
GClaire
G
O
  • Question Question
XL 2016 Erreur d'exécution 32809 Erreur définie par l'application ou par l'objet
Réponses
0
Affichages
471
Oddoneju
O
  • Question Question
Microsoft 365 Problème Création Sommaire
Réponses
4
Affichages
339
sylvanu
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
2 K
Rheeem
R
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
586
Yogean
Y
L
  • Question Question
XL 2016 Création d'une étiquette CB avec Excel
Réponses
5
Affichages
706
lincoln75
L
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
710
Dégé59
D
  • Question Question
XL 2016 Recherche/Remplace en VBA
Réponses
7
Affichages
679
crackerwood
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
675
papychat1
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…