Pourquoi ce code me laisse toujours la même valeur à TypeGraph?
for x = 0 to 5
Select Case X
Case X = 0, 1, 2, 3
TypeGraph = xlBarStacked
Case X = 4
TypeGraph = xl3DPie
Case X = 5
TypeGraph = xlColumnStacked
End Select
Charts.Add
ActiveChart.SetSourceData Source:=Sheets(NomTCD).Range("A4")
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.PlotArea.Select
ActiveChart.ChartType = TypeGraph
next
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
Daniel
Bonjour. Utilise cette syntaxe :
Select Case X Case 0, 1, 2, 3 TypeGraph = xlBarStacked Case 4 TypeGraph = xl3DPie Case 5 TypeGraph = xlColumnStacked End Select
Cordialement. Daniel "René Delcourt" a écrit dans le message de news:
Bonjour à tous,
Pourquoi ce code me laisse toujours la même valeur à TypeGraph? for x = 0 to 5 Select Case X Case X = 0, 1, 2, 3 TypeGraph = xlBarStacked Case X = 4 TypeGraph = xl3DPie Case X = 5 TypeGraph = xlColumnStacked End Select Charts.Add ActiveChart.SetSourceData Source:=Sheets(NomTCD).Range("A4") ActiveChart.Location Where:=xlLocationAsNewSheet ActiveChart.PlotArea.Select ActiveChart.ChartType = TypeGraph next
Merci de vos réponses. -- René Delcourt
Bonjour.
Utilise cette syntaxe :
Select Case X
Case 0, 1, 2, 3
TypeGraph = xlBarStacked
Case 4
TypeGraph = xl3DPie
Case 5
TypeGraph = xlColumnStacked
End Select
Cordialement.
Daniel
"René Delcourt" <rde@intras.ch> a écrit dans le message de news:
3720A767-AC1A-4E49-8506-416AC90D513C@microsoft.com...
Bonjour à tous,
Pourquoi ce code me laisse toujours la même valeur à TypeGraph?
for x = 0 to 5
Select Case X
Case X = 0, 1, 2, 3
TypeGraph = xlBarStacked
Case X = 4
TypeGraph = xl3DPie
Case X = 5
TypeGraph = xlColumnStacked
End Select
Charts.Add
ActiveChart.SetSourceData Source:=Sheets(NomTCD).Range("A4")
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.PlotArea.Select
ActiveChart.ChartType = TypeGraph
next
Select Case X Case 0, 1, 2, 3 TypeGraph = xlBarStacked Case 4 TypeGraph = xl3DPie Case 5 TypeGraph = xlColumnStacked End Select
Cordialement. Daniel "René Delcourt" a écrit dans le message de news:
Bonjour à tous,
Pourquoi ce code me laisse toujours la même valeur à TypeGraph? for x = 0 to 5 Select Case X Case X = 0, 1, 2, 3 TypeGraph = xlBarStacked Case X = 4 TypeGraph = xl3DPie Case X = 5 TypeGraph = xlColumnStacked End Select Charts.Add ActiveChart.SetSourceData Source:=Sheets(NomTCD).Range("A4") ActiveChart.Location Where:=xlLocationAsNewSheet ActiveChart.PlotArea.Select ActiveChart.ChartType = TypeGraph next
