Selections choisies

Le 02/07/2013 à 13:52

Bonjour...

Du moins à l'aide...Si vous pouvez bien sûr...

Voici un programme qui marche:

sub test ()

ActiveChart.ChartArea.Select

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(1).Values = "='OngletA'!$CW$6:$CW$18006"

ActiveChart.SeriesCollection(2).Values = "='OngletB'!$CW$6:$CW$18006"

ActiveChart.SeriesCollection(3).Values = "='OngletA'!$R$6:$R$18006"

ActiveChart.SeriesCollection(4).Values = "='OngletB'!$R$6:$R$18006"

End Sub

Je souhaiterais remplacer $CW$ par la colonne de mon choix.... et idem pour $R$

Alors j'ai concocté ce programme, du moins à partir de sur celui fourni par lean:

Sub Bouton2_QuandClic()

Dim OngletA, OngletB, colonne, colonnes As String

OngletA = InputBox("1er Onglet?")

OngletB = InputBox("2ème Onglet?")

ColonneA = InputBox("1ère colonne?")

ColonneB = InputBox("2ème colonne?")

ActiveChart.ChartArea.Select

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(1).Values = "='OngletA'!$ColonneA$6:$ColonneA$18006"

ActiveChart.SeriesCollection(2).Values = "='OngletB'!$ColonneA$6:$ColonneA$18006"

ActiveChart.SeriesCollection(3).Values = "='OngletA'!$ColonneB$6:$ColonneB$18006"

ActiveChart.SeriesCollection(4).Values = "='OngletB'!$ColonneB$6:$ColonneB$18006"

End Sub

Mais ça ne marche pas ...

Quelqu'un aurait-il une idée svp?

d'avance merci

Le 02/07/2013 à 14:10

bonjour,

le principe est bon, juste une syntaxe à respecter !

Sub Bouton2_QuandClic()
Dim OngletA, OngletB, colonne, colonnes As String

OngletA = InputBox("1er Onglet?")
OngletB = InputBox("2ème Onglet?")
ColonneA = InputBox("1ère colonne?")
ColonneB = InputBox("2ème colonne?")

ActiveChart.ChartArea.Select
ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(1).Values = "='" & OngletA & "'!$" & ColonneA & "$6:$" & ColonneA & "$18006"
ActiveChart.SeriesCollection(2).Values = "='" & OngletB & "'!$" & ColonneA & "$6:$" & ColonneA & "$18006"
ActiveChart.SeriesCollection(3).Values = "='" & OngletA & "'!$" & ColonneB & "$6:$" & ColonneB & "$18006"
ActiveChart.SeriesCollection(4).Values = "='" & OngletB & "'!$" & ColonneB & "$6:$" & ColonneB & "$18006"

End Sub
Le 02/07/2013 à 14:14

Merci...

si le princiepe est ok.... c'est déjà ça...

Le 02/07/2013 à 16:14

rebonjour,

j'avais oublié de faire les corrections pour tes variables ongletA et ongletB. j'ai modifié le code cfr (ci-dessus).

Le 03/07/2013 à 16:41

Rectification...

en appliquant le programme ci-dessous, ça ne marche pas!!

Sub Bouton2_QuandClic()

Dim OngletA, OngletB, colonneA, colonneB As String

OngletA = InputBox("1er Onglet?")

OngletB = InputBox("2ème Onglet?")

colonneA = InputBox("1ère colonne?")

colonneB = InputBox("2ème colonne?")

ActiveChart.ChartArea.Select

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(1).Values = "='OngletA'!$" & colonneA & "$6:$" & colonneA & "$18006"

ActiveChart.SeriesCollection(2).Values = "='OngletB'!$" & colonneA & "$6:$" & colonneA & "$18006"

ActiveChart.SeriesCollection(3).Values = "='OngletA'!$" & colonneB & "$6:$" & colonneB & "$18006"

ActiveChart.SeriesCollection(4).Values = "='OngletB'!$" & colonneB & "$6:$" & colonneB & "$18006"

End Sub

il répond bien au question mais malheureusement il ne sélectionne pas les données dans les onglets demandés...

Avez-vous une idée de l'erreur svp?

Le 04/08/2013 à 00:42

Bonsoir,

j'ai été en vacances et n'ai pas pu réagir à tes questions.

comme signalé dans une réponse précédente, je me suis rendu compte de l'erreur et j'ai corrigé le code dans ma réponse initiale. je vois que tu as testé avec la version erronnée.

Peut-être t'en es-tu rendu compte entretemps ?

as-tu encore besoin d'aide sur ce coup-là ?

Rechercher des sujets similaires à "selections choisies"