Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel modification d'une étiquette pour un graphique (VBA)

modification d'une étiquette pour un graphique (VBA)

3 réponses
Avatar
Killedman
Bonjour,

j'aimerais juste savoir comment modifier l'=E9tiquette d'un point sur
une courbe.
ex: j'ai une courbe ou l'on place des points pr=E9cis selon un certain
calcul. Par d=E9fault les point ce nomme A,B,C,D,E , mais quand on
change de donn=E9es ex: je veux B,J,K,L,M leur nom ou =E9tiquette reste
=E0 A,B,C,D,E

j'ai trouv=E9 ceci comme point de d=E9part

ActiveSheet.ChartObjects(2).Activate
ActiveChart.SeriesCollection (1)

apr=E8s je suis perdu

Y a t-il quelqu'un qui sait comment et qui voudrais bien me l'expliquer
??

merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Killedman
mon serveau ma surchauver à force de chercher lol

j'ai une piste

ActiveSheet.ChartObjects("GraphFrontière").Activate

For lLabel = 1 To 5
ActiveChart.SeriesCollection(lLabel).DataLabels lLabel
ActiveChart.SeriesCollection(lLabel).ApplyDataLabels
Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:úlse

Next lLabel

ce que j'aimerais cé juste savoir quoi mettre dans le for ??
merci quand même.
Avatar
Killedman
merci pour votre non réponce à ce que je vois je suis le premier con
qui est pogné pour faire ça.
Snif !

VIVE JAVA !! lol
Avatar
Killedman
Pour ceux que ça intereste ou qui aurait le même problème.

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2005/01/12 par Killedman
'

'
Dim l As Long
For l = 6 To 9
ActiveSheet.ChartObjects("GraphFrontière").Activate
ActiveChart.SeriesCollection(l).DataLabels.Select
ActiveChart.SeriesCollection(l).Points(1).DataLabel.Select
Selection.Characters.Text = "Null"
Next l
End Sub