pb sélection multiple avex indexage

[estelle]

Bonsoir,

Je veux indexer la selection en rouge

Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Page_Garde"). _
Range("A100:A30100,C10😀30100") ,PlotBy:=xlColumns
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Courbes à deux axes"
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).XValues = _
"='Page_garde'!R30101C1:R60100C1"
................................;

Je voudrais pouvoir modifier cette sélection avec des variables dans ce genre :

Range("A" & debut: "A"Fin: "C" & Debut: "D" & Fin"),

Mais cela ne fonctionne pas !!!
Quelle est la bonne syntaxe ?
Merci d’avance

 

[jmps]

Re : pb sélection multiple avex indexage

Bonjour estelle,

Je ne sais pas où tu définis tes variables Debut et Fin mais admettons qu'elles contiennent 100 et 30100.
La syntaxe serait alors :

Range("A" & Debut & ":A" & Fin & ",C" & Debut & ":D" & Fin), etc...

J'espère que je me suis pas mélangé les pinceaux dans les " et les & 🙂

 

[estelle]

Re : pb sélection multiple avex indexage

Merci cela fonctionne
Mais comment peux t on écrire la suite avec les memes variables

Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Page_Garde"). _
Range("A100:A30100,C1030100") ,PlotBy:=xlColumns
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Courbes à deux axes"
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).XValues = _
"='Page_garde'!R30101C1:R60100C1"................................;
Merci d'avance

 

[jmps]

Re : pb sélection multiple avex indexage

Bonsoir,

Sensiblement de la même façon.

ActiveChart.SeriesCollection(1).XValues = _
CHR(34) & "='Page_garde'!R" & Debut & "C1:R" & Fin & "C1" & CHR(34)

Les CHR(34) sont là pour ajouter des guillemets avant et après.

Petit bémol : Tes variables Debut et Fin n'ont plus les mêmes valeurs (30101 et 60100). A toi de gérer ça.

 

[estelle]

Re : pb sélection multiple avex indexage

Merci pour ton aide