Variable dans graphique macro
Résolu/Fermé
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
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:
- Variable dans graphique macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Changer carte graphique - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Graphique sparkline - Guide
- Macro word - Guide
3 réponses
ccm81
Messages postés
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 430
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
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 430
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
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 430
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