Bonsoir
j'ai cette super proc qui fait tourner à la demande un graphique (camembert)
sur 360° mais cela saute à l'image.
Est-il possible d'avoir un déplacement qui ne fasse pas sauter l'écran en
même temps ?
Merci
Hervé
Sub deplacement1()
'Application.ScreenUpdating = False
Sheets("Stats").Unprotect Password:="toto"
ActiveSheet.ChartObjects("Graphique 28").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
For I = 1 To 18
.FirstSliceAngle = I * 20
For J = 1 To 30000000: Next J
DoEvents
Next I
End With
Range("N15").Select
Sheets("Stats").Protect Password:="toto"
' Application.ScreenUpdating = True
End Sub
--
Pour passer un examen, c'est comme pour nettoyer un vêtement :
On mouille, on sèche et on repasse ;o))
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
Patrick BASTARD
Bonjour, *Hervé* J'ai lu ton post elyWgRm% avec le plus grand intéret : Retire les apostrophes devant 'Application.ScreenUpdating.. Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les désactive.
Bien cordialement,
Patrick.
Bonsoir j'ai cette super proc qui fait tourner à la demande un graphique (camembert) sur 360° mais cela saute à l'image. Est-il possible d'avoir un déplacement qui ne fasse pas sauter l'écran en même temps ? Merci Hervé
Sub deplacement1() 'Application.ScreenUpdating = False Sheets("Stats").Unprotect Password:="toto" ActiveSheet.ChartObjects("Graphique 28").Activate ActiveChart.SeriesCollection(1).Select With ActiveChart.ChartGroups(1) .VaryByCategories = True For I = 1 To 18 .FirstSliceAngle = I * 20 For J = 1 To 30000000: Next J DoEvents Next I End With Range("N15").Select Sheets("Stats").Protect Password:="toto" ' Application.ScreenUpdating = True End Sub
Bonjour, *Hervé*
J'ai lu ton post elyWgRm%23EHA.1084@tk2msftngp13.phx.gbl
avec le plus grand intéret :
Retire les apostrophes devant 'Application.ScreenUpdating..
Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les
désactive.
Bien cordialement,
Patrick.
Bonsoir
j'ai cette super proc qui fait tourner à la demande un graphique
(camembert) sur 360° mais cela saute à l'image.
Est-il possible d'avoir un déplacement qui ne fasse pas sauter
l'écran en même temps ?
Merci
Hervé
Sub deplacement1()
'Application.ScreenUpdating = False
Sheets("Stats").Unprotect Password:="toto"
ActiveSheet.ChartObjects("Graphique 28").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
For I = 1 To 18
.FirstSliceAngle = I * 20
For J = 1 To 30000000: Next J
DoEvents
Next I
End With
Range("N15").Select
Sheets("Stats").Protect Password:="toto"
' Application.ScreenUpdating = True
End Sub
Bonjour, *Hervé* J'ai lu ton post elyWgRm% avec le plus grand intéret : Retire les apostrophes devant 'Application.ScreenUpdating.. Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les désactive.
Bien cordialement,
Patrick.
Bonsoir j'ai cette super proc qui fait tourner à la demande un graphique (camembert) sur 360° mais cela saute à l'image. Est-il possible d'avoir un déplacement qui ne fasse pas sauter l'écran en même temps ? Merci Hervé
Sub deplacement1() 'Application.ScreenUpdating = False Sheets("Stats").Unprotect Password:="toto" ActiveSheet.ChartObjects("Graphique 28").Activate ActiveChart.SeriesCollection(1).Select With ActiveChart.ChartGroups(1) .VaryByCategories = True For I = 1 To 18 .FirstSliceAngle = I * 20 For J = 1 To 30000000: Next J DoEvents Next I End With Range("N15").Select Sheets("Stats").Protect Password:="toto" ' Application.ScreenUpdating = True End Sub
Hervé
Bonsoir Patrick Avec les application.screenupdating = false et true le camembert ne tourne plus du tout on ne le voit plus tourner. Hervé
"Patrick BASTARD" a écrit dans le message de news: eVYe7fm%
Bonjour, *Hervé* J'ai lu ton post elyWgRm% avec le plus grand intéret : Retire les apostrophes devant 'Application.ScreenUpdating.. Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les désactive.
Bien cordialement,
Patrick.
Bonsoir j'ai cette super proc qui fait tourner à la demande un graphique (camembert) sur 360° mais cela saute à l'image. Est-il possible d'avoir un déplacement qui ne fasse pas sauter l'écran en même temps ? Merci Hervé
Sub deplacement1() 'Application.ScreenUpdating = False Sheets("Stats").Unprotect Password:="toto" ActiveSheet.ChartObjects("Graphique 28").Activate ActiveChart.SeriesCollection(1).Select With ActiveChart.ChartGroups(1) .VaryByCategories = True For I = 1 To 18 .FirstSliceAngle = I * 20 For J = 1 To 30000000: Next J DoEvents Next I End With Range("N15").Select Sheets("Stats").Protect Password:="toto" ' Application.ScreenUpdating = True End Sub
Bonsoir Patrick
Avec les application.screenupdating = false et true
le camembert ne tourne plus du tout
on ne le voit plus tourner.
Hervé
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: eVYe7fm%23EHA.4072@TK2MSFTNGP10.phx.gbl...
Bonjour, *Hervé*
J'ai lu ton post elyWgRm%23EHA.1084@tk2msftngp13.phx.gbl
avec le plus grand intéret :
Retire les apostrophes devant 'Application.ScreenUpdating..
Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les
désactive.
Bien cordialement,
Patrick.
Bonsoir
j'ai cette super proc qui fait tourner à la demande un graphique
(camembert) sur 360° mais cela saute à l'image.
Est-il possible d'avoir un déplacement qui ne fasse pas sauter
l'écran en même temps ?
Merci
Hervé
Sub deplacement1()
'Application.ScreenUpdating = False
Sheets("Stats").Unprotect Password:="toto"
ActiveSheet.ChartObjects("Graphique 28").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
For I = 1 To 18
.FirstSliceAngle = I * 20
For J = 1 To 30000000: Next J
DoEvents
Next I
End With
Range("N15").Select
Sheets("Stats").Protect Password:="toto"
' Application.ScreenUpdating = True
End Sub
Bonsoir Patrick Avec les application.screenupdating = false et true le camembert ne tourne plus du tout on ne le voit plus tourner. Hervé
"Patrick BASTARD" a écrit dans le message de news: eVYe7fm%
Bonjour, *Hervé* J'ai lu ton post elyWgRm% avec le plus grand intéret : Retire les apostrophes devant 'Application.ScreenUpdating.. Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les désactive.
Bien cordialement,
Patrick.
Bonsoir j'ai cette super proc qui fait tourner à la demande un graphique (camembert) sur 360° mais cela saute à l'image. Est-il possible d'avoir un déplacement qui ne fasse pas sauter l'écran en même temps ? Merci Hervé
Sub deplacement1() 'Application.ScreenUpdating = False Sheets("Stats").Unprotect Password:="toto" ActiveSheet.ChartObjects("Graphique 28").Activate ActiveChart.SeriesCollection(1).Select With ActiveChart.ChartGroups(1) .VaryByCategories = True For I = 1 To 18 .FirstSliceAngle = I * 20 For J = 1 To 30000000: Next J DoEvents Next I End With Range("N15").Select Sheets("Stats").Protect Password:="toto" ' Application.ScreenUpdating = True End Sub
Patrick BASTARD
Re, Hervé.
Et à tout hasard, en déplaçant ta ligne Application.ScreenUpdating = True après Next I ?
Sinon, je passe la main à plus calé que moi (et ça n'en manque pas sur ce forum, j'en témoigne.)
Bien cordialement,
Patrick.
Bonsoir Patrick Avec les application.screenupdating = false et true le camembert ne tourne plus du tout on ne le voit plus tourner. Hervé
"Patrick BASTARD" a écrit dans le message de news: eVYe7fm%
Bonjour, *Hervé* J'ai lu ton post elyWgRm% avec le plus grand intéret : Retire les apostrophes devant 'Application.ScreenUpdating.. Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les désactive.
Bien cordialement,
Patrick.
Bonsoir j'ai cette super proc qui fait tourner à la demande un graphique (camembert) sur 360° mais cela saute à l'image. Est-il possible d'avoir un déplacement qui ne fasse pas sauter l'écran en même temps ? Merci Hervé
Sub deplacement1() 'Application.ScreenUpdating = False Sheets("Stats").Unprotect Password:="toto" ActiveSheet.ChartObjects("Graphique 28").Activate ActiveChart.SeriesCollection(1).Select With ActiveChart.ChartGroups(1) .VaryByCategories = True For I = 1 To 18 .FirstSliceAngle = I * 20 For J = 1 To 30000000: Next J DoEvents Next I End With Range("N15").Select Sheets("Stats").Protect Password:="toto" ' Application.ScreenUpdating = True End Sub
Re, Hervé.
Et à tout hasard, en déplaçant ta ligne Application.ScreenUpdating = True
après Next I ?
Sinon, je passe la main à plus calé que moi (et ça n'en manque pas sur ce
forum, j'en témoigne.)
Bien cordialement,
Patrick.
Bonsoir Patrick
Avec les application.screenupdating = false et true
le camembert ne tourne plus du tout
on ne le voit plus tourner.
Hervé
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: eVYe7fm%23EHA.4072@TK2MSFTNGP10.phx.gbl...
Bonjour, *Hervé*
J'ai lu ton post elyWgRm%23EHA.1084@tk2msftngp13.phx.gbl
avec le plus grand intéret :
Retire les apostrophes devant 'Application.ScreenUpdating..
Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les
désactive.
Bien cordialement,
Patrick.
Bonsoir
j'ai cette super proc qui fait tourner à la demande un graphique
(camembert) sur 360° mais cela saute à l'image.
Est-il possible d'avoir un déplacement qui ne fasse pas sauter
l'écran en même temps ?
Merci
Hervé
Sub deplacement1()
'Application.ScreenUpdating = False
Sheets("Stats").Unprotect Password:="toto"
ActiveSheet.ChartObjects("Graphique 28").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
For I = 1 To 18
.FirstSliceAngle = I * 20
For J = 1 To 30000000: Next J
DoEvents
Next I
End With
Range("N15").Select
Sheets("Stats").Protect Password:="toto"
' Application.ScreenUpdating = True
End Sub
Et à tout hasard, en déplaçant ta ligne Application.ScreenUpdating = True après Next I ?
Sinon, je passe la main à plus calé que moi (et ça n'en manque pas sur ce forum, j'en témoigne.)
Bien cordialement,
Patrick.
Bonsoir Patrick Avec les application.screenupdating = false et true le camembert ne tourne plus du tout on ne le voit plus tourner. Hervé
"Patrick BASTARD" a écrit dans le message de news: eVYe7fm%
Bonjour, *Hervé* J'ai lu ton post elyWgRm% avec le plus grand intéret : Retire les apostrophes devant 'Application.ScreenUpdating.. Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les désactive.
Bien cordialement,
Patrick.
Bonsoir j'ai cette super proc qui fait tourner à la demande un graphique (camembert) sur 360° mais cela saute à l'image. Est-il possible d'avoir un déplacement qui ne fasse pas sauter l'écran en même temps ? Merci Hervé
Sub deplacement1() 'Application.ScreenUpdating = False Sheets("Stats").Unprotect Password:="toto" ActiveSheet.ChartObjects("Graphique 28").Activate ActiveChart.SeriesCollection(1).Select With ActiveChart.ChartGroups(1) .VaryByCategories = True For I = 1 To 18 .FirstSliceAngle = I * 20 For J = 1 To 30000000: Next J DoEvents Next I End With Range("N15").Select Sheets("Stats").Protect Password:="toto" ' Application.ScreenUpdating = True End Sub
Hervé
Bonsoir Patrick cela ne fonctionne pas, j'ai tout testé. je laisse comme cela Merci Hervé
"Patrick BASTARD" a écrit dans le message de news: %231SEszm%
Re, Hervé.
Et à tout hasard, en déplaçant ta ligne Application.ScreenUpdating = True après Next I ?
Sinon, je passe la main à plus calé que moi (et ça n'en manque pas sur ce forum, j'en témoigne.)
Bien cordialement,
Patrick.
Bonsoir Patrick Avec les application.screenupdating = false et true le camembert ne tourne plus du tout on ne le voit plus tourner. Hervé
"Patrick BASTARD" a écrit dans le message de news: eVYe7fm%
Bonjour, *Hervé* J'ai lu ton post elyWgRm% avec le plus grand intéret : Retire les apostrophes devant 'Application.ScreenUpdating.. Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les désactive.
Bien cordialement,
Patrick.
Bonsoir j'ai cette super proc qui fait tourner à la demande un graphique (camembert) sur 360° mais cela saute à l'image. Est-il possible d'avoir un déplacement qui ne fasse pas sauter l'écran en même temps ? Merci Hervé
Sub deplacement1() 'Application.ScreenUpdating = False Sheets("Stats").Unprotect Password:="toto" ActiveSheet.ChartObjects("Graphique 28").Activate ActiveChart.SeriesCollection(1).Select With ActiveChart.ChartGroups(1) .VaryByCategories = True For I = 1 To 18 .FirstSliceAngle = I * 20 For J = 1 To 30000000: Next J DoEvents Next I End With Range("N15").Select Sheets("Stats").Protect Password:="toto" ' Application.ScreenUpdating = True End Sub
Bonsoir Patrick
cela ne fonctionne pas, j'ai tout testé.
je laisse comme cela
Merci
Hervé
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: %231SEszm%23EHA.1544@TK2MSFTNGP11.phx.gbl...
Re, Hervé.
Et à tout hasard, en déplaçant ta ligne Application.ScreenUpdating = True
après Next I ?
Sinon, je passe la main à plus calé que moi (et ça n'en manque pas sur ce
forum, j'en témoigne.)
Bien cordialement,
Patrick.
Bonsoir Patrick
Avec les application.screenupdating = false et true
le camembert ne tourne plus du tout
on ne le voit plus tourner.
Hervé
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: eVYe7fm%23EHA.4072@TK2MSFTNGP10.phx.gbl...
Bonjour, *Hervé*
J'ai lu ton post elyWgRm%23EHA.1084@tk2msftngp13.phx.gbl
avec le plus grand intéret :
Retire les apostrophes devant 'Application.ScreenUpdating..
Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les
désactive.
Bien cordialement,
Patrick.
Bonsoir
j'ai cette super proc qui fait tourner à la demande un graphique
(camembert) sur 360° mais cela saute à l'image.
Est-il possible d'avoir un déplacement qui ne fasse pas sauter
l'écran en même temps ?
Merci
Hervé
Sub deplacement1()
'Application.ScreenUpdating = False
Sheets("Stats").Unprotect Password:="toto"
ActiveSheet.ChartObjects("Graphique 28").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
For I = 1 To 18
.FirstSliceAngle = I * 20
For J = 1 To 30000000: Next J
DoEvents
Next I
End With
Range("N15").Select
Sheets("Stats").Protect Password:="toto"
' Application.ScreenUpdating = True
End Sub
Bonsoir Patrick cela ne fonctionne pas, j'ai tout testé. je laisse comme cela Merci Hervé
"Patrick BASTARD" a écrit dans le message de news: %231SEszm%
Re, Hervé.
Et à tout hasard, en déplaçant ta ligne Application.ScreenUpdating = True après Next I ?
Sinon, je passe la main à plus calé que moi (et ça n'en manque pas sur ce forum, j'en témoigne.)
Bien cordialement,
Patrick.
Bonsoir Patrick Avec les application.screenupdating = false et true le camembert ne tourne plus du tout on ne le voit plus tourner. Hervé
"Patrick BASTARD" a écrit dans le message de news: eVYe7fm%
Bonjour, *Hervé* J'ai lu ton post elyWgRm% avec le plus grand intéret : Retire les apostrophes devant 'Application.ScreenUpdating.. Et dis-nous.
Ces lignes sont là pour éviter que l'écran ne saute, mais les ' les désactive.
Bien cordialement,
Patrick.
Bonsoir j'ai cette super proc qui fait tourner à la demande un graphique (camembert) sur 360° mais cela saute à l'image. Est-il possible d'avoir un déplacement qui ne fasse pas sauter l'écran en même temps ? Merci Hervé
Sub deplacement1() 'Application.ScreenUpdating = False Sheets("Stats").Unprotect Password:="toto" ActiveSheet.ChartObjects("Graphique 28").Activate ActiveChart.SeriesCollection(1).Select With ActiveChart.ChartGroups(1) .VaryByCategories = True For I = 1 To 18 .FirstSliceAngle = I * 20 For J = 1 To 30000000: Next J DoEvents Next I End With Range("N15").Select Sheets("Stats").Protect Password:="toto" ' Application.ScreenUpdating = True End Sub
