Variable dans graphique macro
Résolu/Fermé
A voir également:
- Variable dans graphique macro
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Changer carte graphique - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
3 réponses
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié le 11 juil. 2017 à 17:38
Modifié le 11 juil. 2017 à 17:38
Bonjour
Essaies ceci dans ta boucle For i ....
eti=Sheets("Feuil1").Range("B" & 40+i)
ActiveChart.SeriesCollection(3).Points(i+1).DataLabel.Characters.Text = eti
Un exemple
http://www.cjoint.com/c/GGlpMNghMGB
Cdlmnt
Essaies ceci dans ta boucle For i ....
eti=Sheets("Feuil1").Range("B" & 40+i)
ActiveChart.SeriesCollection(3).Points(i+1).DataLabel.Characters.Text = eti
Un exemple
http://www.cjoint.com/c/GGlpMNghMGB
Cdlmnt
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié le 11 juil. 2017 à 17:42
Modifié le 11 juil. 2017 à 17:42
Salut Victor
J'ai modifié ma proposition (que j'avais tapé à la volée) et bricolé un fichier en exemple pour que ce soit plus simple à adapter
Cdlmnt
J'ai modifié ma proposition (que j'avais tapé à la volée) et bricolé un fichier en exemple pour que ce soit plus simple à adapter
Cdlmnt
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié le 11 juil. 2017 à 18:18
Modifié le 11 juil. 2017 à 18:18
Je ne crois pas !
1. On récupère le texte de l'étiquette dans Feuil1
eti=Sheets("Feuil1").Range("B" & 40+i)
2. On met ce texte sur le point du graphique
ActiveChart.SeriesCollection(3).Points(i+1).DataLabel.Characters.Text = eti
voir le fichier exemple
Cdlmnt
1. On récupère le texte de l'étiquette dans Feuil1
eti=Sheets("Feuil1").Range("B" & 40+i)
2. On met ce texte sur le point du graphique
ActiveChart.SeriesCollection(3).Points(i+1).DataLabel.Characters.Text = eti
voir le fichier exemple
Cdlmnt
Modifié le 11 juil. 2017 à 17:33
Bonjour ccm81,
Ta réponse est sûrement exacte, et tu as repris le même nom de feuille
que celui de l'énoncé : feuill1 (avec 2 L minuscules).
Je pense que Jo pingouin s'est peut-être trompé : ne serait-ce pas plutôt
Feuil1 (avec 1 seul L minuscule) ? à lui de le vérifier.
Cordialement