Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Angle de graphique

Angle de graphique

4 réponses
Avatar
Didier
Bonsoir
J'ai un graphique, et je souhaite par bouton macro faire varier l'angle de
20 par 20
avec l'enregistreur de macro j'obtiens ceci, mais il ne bouge qu'une fois.
Comment faire afin de le faire varier par pas ?
Merci beaucoup
Didier

Sub deplacement()
ActiveSheet.ChartObjects("Graphique 12").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
.FirstSliceAngle = 20
End With
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Jero
Salut,

Sub deplacement()

ActiveSheet.ChartObjects("Graphique 12").Activate

ActiveChart.SeriesCollection(1).Select

With ActiveChart.ChartGroups(1)

.VaryByCategories = True

For I = 1 to 18

.FirstSliceAngle = I*20

'Sans doute ajouter une tempo du genre :

For J=1 to 100000:next J

Next I

End With

End Sub

A tester...

Jero

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

Bonsoir
J'ai un graphique, et je souhaite par bouton macro faire varier l'angle de
20 par 20
avec l'enregistreur de macro j'obtiens ceci, mais il ne bouge qu'une fois.
Comment faire afin de le faire varier par pas ?
Merci beaucoup
Didier

Sub deplacement()
ActiveSheet.ChartObjects("Graphique 12").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
.FirstSliceAngle = 20
End With
End Sub






Avatar
Didier
Bonjour Jero
merci pour ton aide
la procédure , hélas ne fonctionne pas
Didier

"Jero" <~ a écrit dans le message de news:
%235%
Salut,

Sub deplacement()

ActiveSheet.ChartObjects("Graphique 12").Activate

ActiveChart.SeriesCollection(1).Select

With ActiveChart.ChartGroups(1)

.VaryByCategories = True

For I = 1 to 18

.FirstSliceAngle = I*20

'Sans doute ajouter une tempo du genre :

For J=1 to 100000:next J

Next I

End With

End Sub

A tester...

Jero

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

Bonsoir
J'ai un graphique, et je souhaite par bouton macro faire varier l'angle
de 20 par 20
avec l'enregistreur de macro j'obtiens ceci, mais il ne bouge qu'une
fois.
Comment faire afin de le faire varier par pas ?
Merci beaucoup
Didier

Sub deplacement()
ActiveSheet.ChartObjects("Graphique 12").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
.FirstSliceAngle = 20
End With
End Sub










Avatar
Jero
Bonjour,
Essaie ceci : ça marche...
Sub TourneManège()
ActiveSheet.ChartObjects("Graphique 12").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
For I = 1 To 18
.FirstSliceAngle = I * 20
For J = 1 To 10000000: Next J
DoEvents
Next I
End With
End Sub
Jero
"Didier" a écrit dans le message de news:
%
Bonjour Jero
merci pour ton aide
la procédure , hélas ne fonctionne pas
Didier

"Jero" <~ a écrit dans le message de
news: %235%
Salut,

Sub deplacement()

ActiveSheet.ChartObjects("Graphique 12").Activate

ActiveChart.SeriesCollection(1).Select

With ActiveChart.ChartGroups(1)

.VaryByCategories = True

For I = 1 to 18

.FirstSliceAngle = I*20

'Sans doute ajouter une tempo du genre :

For J=1 to 100000:next J

Next I

End With

End Sub

A tester...

Jero

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

Bonsoir
J'ai un graphique, et je souhaite par bouton macro faire varier l'angle
de 20 par 20
avec l'enregistreur de macro j'obtiens ceci, mais il ne bouge qu'une
fois.
Comment faire afin de le faire varier par pas ?
Merci beaucoup
Didier

Sub deplacement()
ActiveSheet.ChartObjects("Graphique 12").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
.FirstSliceAngle = 20
End With
End Sub














Avatar
Didier
Salut Jero ni maux

c'est extra, cela fonctionne parfaitement.
Merci beaucoup
et bonne journée
Didier

"Jero" <~ a écrit dans le message de news:

Bonjour,
Essaie ceci : ça marche...
Sub TourneManège()
ActiveSheet.ChartObjects("Graphique 12").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
For I = 1 To 18
.FirstSliceAngle = I * 20
For J = 1 To 10000000: Next J
DoEvents
Next I
End With
End Sub
Jero
"Didier" a écrit dans le message de news:
%
Bonjour Jero
merci pour ton aide
la procédure , hélas ne fonctionne pas
Didier

"Jero" <~ a écrit dans le message de
news: %235%
Salut,

Sub deplacement()

ActiveSheet.ChartObjects("Graphique 12").Activate

ActiveChart.SeriesCollection(1).Select

With ActiveChart.ChartGroups(1)

.VaryByCategories = True

For I = 1 to 18

.FirstSliceAngle = I*20

'Sans doute ajouter une tempo du genre :

For J=1 to 100000:next J

Next I

End With

End Sub

A tester...

Jero

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

Bonsoir
J'ai un graphique, et je souhaite par bouton macro faire varier l'angle
de 20 par 20
avec l'enregistreur de macro j'obtiens ceci, mais il ne bouge qu'une
fois.
Comment faire afin de le faire varier par pas ?
Merci beaucoup
Didier

Sub deplacement()
ActiveSheet.ChartObjects("Graphique 12").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
.FirstSliceAngle = 20
End With
End Sub