OVH Cloud OVH Cloud

Selection Range

5 réponses
Avatar
R M
Bonjour,
J'essaye de selectionner des cellules en vue de faire un graphique...
Mais j'ai un petit problème que vous pourrez résoudre sans
difficultés...enfin j'espère! :)

J'ai deux Range:
R1 = "A1:A30"
R2 = "E1:F30"

ActiveChart.SetSourceData Source:=Sheets("Recup").Range("A1:A30,E1:F30"),
PlotBy:=xlColumns
Cette commande me selectionne bien les 30 lignes des colonnes A E et F

Mais comme je veux faire évoluer mon Range R2, j aimerais utiliser cela:
ActiveChart.SetSourceData Source:=Sheets("Recup").Range(R1, R2),
PlotBy:=xlColumns
Mais cela selectionne les 30 lignes de toutes les colonnes A à F...

Quelqu un saurait la commande à utiliser?
merci

5 réponses

Avatar
twinley
Bonjour,

Union(Range("A1:A30"), Range("E1:F30"))

--
à+twinley
"R M" a écrit dans le message de
news:
Bonjour,
J'essaye de selectionner des cellules en vue de faire un graphique...
Mais j'ai un petit problème que vous pourrez résoudre sans
difficultés...enfin j'espère! :)

J'ai deux Range:
R1 = "A1:A30"
R2 = "E1:F30"

ActiveChart.SetSourceData Source:=Sheets("Recup").Range("A1:A30,E1:F30"),
PlotBy:=xlColumns
Cette commande me selectionne bien les 30 lignes des colonnes A E et F

Mais comme je veux faire évoluer mon Range R2, j aimerais utiliser cela:
ActiveChart.SetSourceData Source:=Sheets("Recup").Range(R1, R2),
PlotBy:=xlColumns
Mais cela selectionne les 30 lignes de toutes les colonnes A à F...

Quelqu un saurait la commande à utiliser?
merci




Avatar
Denis
Bonjour,
ou bien
R3 = R1 & "," & R2
ActiveChart.SetSourceData Source:=Sheets("Recup").Range(R3)

Denis
-----Message d'origine-----
Bonjour,

Union(Range("A1:A30"), Range("E1:F30"))

--
à+twinley
"R M" a écrit dans le message de
news:
Bonjour,
J'essaye de selectionner des cellules en vue de faire
un graphique...


Mais j'ai un petit problème que vous pourrez résoudre
sans


difficultés...enfin j'espère! :)

J'ai deux Range:
R1 = "A1:A30"
R2 = "E1:F30"

ActiveChart.SetSourceData Source:=Sheets("Recup").Range
("A1:A30,E1:F30"),


PlotBy:=xlColumns
Cette commande me selectionne bien les 30 lignes des
colonnes A E et F



Mais comme je veux faire évoluer mon Range R2, j
aimerais utiliser cela:


ActiveChart.SetSourceData Source:=Sheets("Recup").Range
(R1, R2),


PlotBy:=xlColumns
Mais cela selectionne les 30 lignes de toutes les
colonnes A à F...



Quelqu un saurait la commande à utiliser?
merci





.




Avatar
R M
Merci de votre aide mais...

R3 = R1 & "," & R2 donne une incompatibilité de type ...
J ai essayé
Dim R3 as string
R3 = CStr(R1) & "," & CStr(R2) mais erreur


et

Set R3 = Union(Range("A1:A30"), R2) car R2 doit évoluer
ActiveChart.SetSourceData Source:=Sheets("Recup").Range(R3),
PlotBy:=xlColumns

donne "erreur définie par l'application ou par l'objet"

Une autre idée?



"Denis" a écrit dans le message de
news: 0b9f01c4ba8d$5fa4d6d0$
Bonjour,
ou bien
R3 = R1 & "," & R2
ActiveChart.SetSourceData Source:=Sheets("Recup").Range(R3)

Denis
-----Message d'origine-----
Bonjour,

Union(Range("A1:A30"), Range("E1:F30"))

--
à+twinley
"R M" a écrit dans le message de
news:
Bonjour,
J'essaye de selectionner des cellules en vue de faire
un graphique...


Mais j'ai un petit problème que vous pourrez résoudre
sans


difficultés...enfin j'espère! :)

J'ai deux Range:
R1 = "A1:A30"
R2 = "E1:F30"

ActiveChart.SetSourceData Source:=Sheets("Recup").Range
("A1:A30,E1:F30"),


PlotBy:=xlColumns
Cette commande me selectionne bien les 30 lignes des
colonnes A E et F



Mais comme je veux faire évoluer mon Range R2, j
aimerais utiliser cela:


ActiveChart.SetSourceData Source:=Sheets("Recup").Range
(R1, R2),


PlotBy:=xlColumns
Mais cela selectionne les 30 lignes de toutes les
colonnes A à F...



Quelqu un saurait la commande à utiliser?
merci





.




Avatar
Denis
Bonjour,
Soit R2 est un string, soit c'est un objet range et il ne
faut pas mélanger les deux.

Soit
R1 = "A1:A30"
R2 = "E1:F30"
R3 = R1 & "," & R2
ActiveChart.SetSourceData Source:=Sheets("Recup").Range(R3)

Soit
Set R1 = Sheets("Recup").Range("A1:A30")
Set R2 = Sheets("Recup").Range("E1:F30")
Set R3 = Union(R1, R2)
ActiveChart.SetSourceData Source:=R3

Denis
-----Message d'origine-----
Merci de votre aide mais...

R3 = R1 & "," & R2 donne une incompatibilité de type ...
J ai essayé
Dim R3 as string
R3 = CStr(R1) & "," & CStr(R2) mais erreur


et

Set R3 = Union(Range("A1:A30"), R2) car R2 doit évoluer
ActiveChart.SetSourceData Source:=Sheets("Recup").Range
(R3),

PlotBy:=xlColumns

donne "erreur définie par l'application ou par l'objet"

Une autre idée?



"Denis" a écrit
dans le message de

news: 0b9f01c4ba8d$5fa4d6d0$
Bonjour,
ou bien
R3 = R1 & "," & R2
ActiveChart.SetSourceData Source:=Sheets("Recup").Range
(R3)


Denis
-----Message d'origine-----
Bonjour,

Union(Range("A1:A30"), Range("E1:F30"))

--
à+twinley
"R M" a écrit dans le message de
news:
Bonjour,
J'essaye de selectionner des cellules en vue de faire
un graphique...


Mais j'ai un petit problème que vous pourrez résoudre
sans


difficultés...enfin j'espère! :)

J'ai deux Range:
R1 = "A1:A30"
R2 = "E1:F30"

ActiveChart.SetSourceData Source:=Sheets("Recup").Range
("A1:A30,E1:F30"),


PlotBy:=xlColumns
Cette commande me selectionne bien les 30 lignes des
colonnes A E et F



Mais comme je veux faire évoluer mon Range R2, j
aimerais utiliser cela:


ActiveChart.SetSourceData Source:=Sheets("Recup").Range
(R1, R2),


PlotBy:=xlColumns
Mais cela selectionne les 30 lignes de toutes les
colonnes A à F...



Quelqu un saurait la commande à utiliser?
merci





.




.





Avatar
R M
Merci
C plus clair pour le 2eme cas
merci



"Denis" a écrit dans le message de
news: 132b01c4ba92$4b60e790$
Bonjour,
Soit R2 est un string, soit c'est un objet range et il ne
faut pas mélanger les deux.

Soit
R1 = "A1:A30"
R2 = "E1:F30"
R3 = R1 & "," & R2
ActiveChart.SetSourceData Source:=Sheets("Recup").Range(R3)

Soit
Set R1 = Sheets("Recup").Range("A1:A30")
Set R2 = Sheets("Recup").Range("E1:F30")
Set R3 = Union(R1, R2)
ActiveChart.SetSourceData Source:=R3

Denis
-----Message d'origine-----
Merci de votre aide mais...

R3 = R1 & "," & R2 donne une incompatibilité de type ...
J ai essayé
Dim R3 as string
R3 = CStr(R1) & "," & CStr(R2) mais erreur


et

Set R3 = Union(Range("A1:A30"), R2) car R2 doit évoluer
ActiveChart.SetSourceData Source:=Sheets("Recup").Range
(R3),

PlotBy:=xlColumns

donne "erreur définie par l'application ou par l'objet"

Une autre idée?



"Denis" a écrit
dans le message de

news: 0b9f01c4ba8d$5fa4d6d0$
Bonjour,
ou bien
R3 = R1 & "," & R2
ActiveChart.SetSourceData Source:=Sheets("Recup").Range
(R3)


Denis
-----Message d'origine-----
Bonjour,

Union(Range("A1:A30"), Range("E1:F30"))

--
à+twinley
"R M" a écrit dans le message de
news:
Bonjour,
J'essaye de selectionner des cellules en vue de faire
un graphique...


Mais j'ai un petit problème que vous pourrez résoudre
sans


difficultés...enfin j'espère! :)

J'ai deux Range:
R1 = "A1:A30"
R2 = "E1:F30"

ActiveChart.SetSourceData Source:=Sheets("Recup").Range
("A1:A30,E1:F30"),


PlotBy:=xlColumns
Cette commande me selectionne bien les 30 lignes des
colonnes A E et F



Mais comme je veux faire évoluer mon Range R2, j
aimerais utiliser cela:


ActiveChart.SetSourceData Source:=Sheets("Recup").Range
(R1, R2),


PlotBy:=xlColumns
Mais cela selectionne les 30 lignes de toutes les
colonnes A à F...



Quelqu un saurait la commande à utiliser?
merci





.




.