Menu

Variable dans graphique macro [Résolu]

Jo pingouin 68 Messages postés samedi 5 novembre 2011Date d'inscription 11 septembre 2017 Dernière intervention - 11 juil. 2017 à 14:38 - Dernière réponse :  victor
- 11 juil. 2017 à 18:21
Bonjour,

je cherche à changer une case de sélection en fonction d'une variable i par exemple :

For i = 0 To 15

ActiveChart.SeriesCollection(3).Points(i + 1).DataLabel.Select
Selection.Formula = "=feuill1!$B$(40+i)"
Next

Comment puis je faire ?
Merci d'avance
Afficher la suite 

Votre réponse

5 réponses

ccm81 8489 Messages postés lundi 18 octobre 2010Date d'inscription 19 juin 2018 Dernière intervention - Modifié par ccm81 le 11/07/2017 à 17:38
0
Merci
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
 
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
 
Commenter la réponse de ccm81
ccm81 8489 Messages postés lundi 18 octobre 2010Date d'inscription 19 juin 2018 Dernière intervention - Modifié par ccm81 le 11/07/2017 à 17:42
0
Merci
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
Commenter la réponse de ccm81
ccm81 8489 Messages postés lundi 18 octobre 2010Date d'inscription 19 juin 2018 Dernière intervention - Modifié par ccm81 le 11/07/2017 à 18:18
0
Merci
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
Tu as raison, je m'étais trompé ! je viens juste de m'en apercevoir et de supprimer
mon dernier message ; c'est après que j'ai vu ton nouveau message ; désolé.
Commenter la réponse de ccm81