Variable dans graphique macro

Résolu/Fermé
Utilisateur anonyme - Modifié le 11 juil. 2017 à 15:32
 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
A voir également:

3 réponses

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 427
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
0
 
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
 
0
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 427
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
0
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 427
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
0
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é.
0