Signaler

Variable dans graphique macro [Résolu]

Posez votre question Jo pingouin 68Messages postés samedi 5 novembre 2011Date d'inscription 11 septembre 2017 Dernière intervention - Dernière réponse le 11 juil. 2017 à 18:21 par victor
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
Utile
+0
plus moins
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
victor- 11 juil. 2017 à 17:30
 
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
 
Répondre
Donnez votre avis
Utile
+0
plus moins
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
Donnez votre avis
Utile
+0
plus moins
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
victor- 11 juil. 2017 à 18:21
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é.
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !