OVH Cloud OVH Cloud

Private Sub chart_Activate()

3 réponses
Avatar
Nito
Bonjour a tous et bonne année,

Sous Excel 2000, windows XP
J'ai un graphique sur la Feuil1 dont les données source proviennent de la
Feuil2

Comme la plage de données varie au fur et a mesure que j'en entre, je
voudrais que
mon grahique s'ajuste automatiquement avec les données aussitôt que je
sélectionne la Feuil1

J'ai donc pensé a faire la procédure suivante pour ce faire (dans le code de
la feuil1)


Private Sub chart_Activate()
Application.EnableEvents = False
Dim maplage As Range
Sheets("Feuil2").Select
ActiveWorkbook.Names.Add Name:="plage",
RefersToR1C1:="=OFFSET(Feuil2!R8C1:R8C5,,,COUNTA(Feuil2!C2),)"

Set maplage = ActiveWorkbook.Names.Item."Plage"

Sheets("Feuil1").Select
ActiveChart.PlotArea.Select

ActiveChart.SetSourceData Source:=maplage

Application.EnableEvents = True
End Sub

Je n'arrive pas a définir la propriété "Set" de "maplage" afin de l'intégrer
dans ma procédure. Quelqu'un aurait-il une solution?

Merci

Nito

3 réponses

Avatar
verificator
bonjour Nito,

Set maplage = [plage] doit suffire.

amicalement

-----Original Message-----
Bonjour a tous et bonne année,

Sous Excel 2000, windows XP
J'ai un graphique sur la Feuil1 dont les données source
proviennent de la

Feuil2

Comme la plage de données varie au fur et a mesure que
j'en entre, je

voudrais que
mon grahique s'ajuste automatiquement avec les données
aussitôt que je

sélectionne la Feuil1

J'ai donc pensé a faire la procédure suivante pour ce
faire (dans le code de

la feuil1)


Private Sub chart_Activate()
Application.EnableEvents = False
Dim maplage As Range
Sheets("Feuil2").Select
ActiveWorkbook.Names.Add Name:="plage",
RefersToR1C1:="=OFFSET(Feuil2!R8C1:R8C5,,,COUNTA(Feuil2!
C2),)"


Set maplage = ActiveWorkbook.Names.Item."Plage"

Sheets("Feuil1").Select
ActiveChart.PlotArea.Select

ActiveChart.SetSourceData Source:=maplage

Application.EnableEvents = True
End Sub

Je n'arrive pas a définir la propriété "Set"
de "maplage" afin de l'intégrer

dans ma procédure. Quelqu'un aurait-il une solution?

Merci

Nito





.



Avatar
Nito
Bonjour,
Un petit mot pour te remercier. Etrangement, ta solution fonctionne
seulement dans le cadre d'une prodécure de
module. J'y ai donc associé tout simplement un bouton
de commande et tout fonctionne comme je le voulais.

Merci

Nito


"verificator" a écrit dans le message de news:
06b201c4f107$89d354d0$
bonjour Nito,

Set maplage = [plage] doit suffire.

amicalement

-----Original Message-----
Bonjour a tous et bonne année,

Sous Excel 2000, windows XP
J'ai un graphique sur la Feuil1 dont les données source
proviennent de la

Feuil2

Comme la plage de données varie au fur et a mesure que
j'en entre, je

voudrais que
mon grahique s'ajuste automatiquement avec les données
aussitôt que je

sélectionne la Feuil1

J'ai donc pensé a faire la procédure suivante pour ce
faire (dans le code de

la feuil1)


Private Sub chart_Activate()
Application.EnableEvents = False
Dim maplage As Range
Sheets("Feuil2").Select
ActiveWorkbook.Names.Add Name:="plage",
RefersToR1C1:="=OFFSET(Feuil2!R8C1:R8C5,,,COUNTA(Feuil2!
C2),)"


Set maplage = ActiveWorkbook.Names.Item."Plage"

Sheets("Feuil1").Select
ActiveChart.PlotArea.Select

ActiveChart.SetSourceData Source:=maplage

Application.EnableEvents = True
End Sub

Je n'arrive pas a définir la propriété "Set"
de "maplage" afin de l'intégrer

dans ma procédure. Quelqu'un aurait-il une solution?

Merci

Nito





.



Avatar
verificator
de rien Nito,

heureux d'avoir pu t'aider,

amicalement


-----Original Message-----
Bonjour,
Un petit mot pour te remercier. Etrangement, ta
solution fonctionne

seulement dans le cadre d'une prodécure de
module. J'y ai donc associé tout simplement un bouton
de commande et tout fonctionne comme je le voulais.

Merci

Nito


"verificator" a écrit dans le
message de news:

06b201c4f107$89d354d0$
bonjour Nito,

Set maplage = [plage] doit suffire.

amicalement

-----Original Message-----
Bonjour a tous et bonne année,

Sous Excel 2000, windows XP
J'ai un graphique sur la Feuil1 dont les données source
proviennent de la

Feuil2

Comme la plage de données varie au fur et a mesure que
j'en entre, je

voudrais que
mon grahique s'ajuste automatiquement avec les données
aussitôt que je

sélectionne la Feuil1

J'ai donc pensé a faire la procédure suivante pour ce
faire (dans le code de

la feuil1)


Private Sub chart_Activate()
Application.EnableEvents = False
Dim maplage As Range
Sheets("Feuil2").Select
ActiveWorkbook.Names.Add Name:="plage",
RefersToR1C1:="=OFFSET(Feuil2!R8C1:R8C5,,,COUNTA(Feuil2!
C2),)"


Set maplage = ActiveWorkbook.Names.Item."Plage"

Sheets("Feuil1").Select
ActiveChart.PlotArea.Select

ActiveChart.SetSourceData Source:=maplage

Application.EnableEvents = True
End Sub

Je n'arrive pas a définir la propriété "Set"
de "maplage" afin de l'intégrer

dans ma procédure. Quelqu'un aurait-il une solution?

Merci

Nito





.




.