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 IncrementRotation

IncrementRotation

14 réponses
Avatar
Michel NOLF
Bonjour
J'ai vu qu'on pouvait appliquer à un objet Shape la methode increment
rotation.
voila ce que je fais
dim c1 as shape
set ci=worksheets(1).shapes(1)
for i=1 to 12
c1.incrementrotation 30
(delai)
next i
rien ne se passe. Pourquoi?
merci d'avance
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Philippe.R
Bonsoir Michel,
Et comme ceci ?

Sub rot()
Dim c1 As Shape
Set ci = Worksheets(1).Shapes(1)
For i = 1 To 12
ci.IncrementRotation (30)
Application.Wait (12345)
Next i
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Michel NOLF" a écrit dans le message de news:ch5695$2jb$
Bonjour
J'ai vu qu'on pouvait appliquer à un objet Shape la methode increment
rotation.
voila ce que je fais
dim c1 as shape
set ci=worksheets(1).shapes(1)
for i=1 to 12
c1.incrementrotation 30
(delai)
next i
rien ne se passe. Pourquoi?
merci d'avance




Avatar
Michel NOLF
Merci de m'avoir repondu si vite
Cela ne fait pas une rotation complete(12*3060) mais une seile de 30°
donc a quoi sert la boucle?

"Philippe.R" a écrit dans le message de
news:
Bonsoir Michel,
Et comme ceci ?

Sub rot()
Dim c1 As Shape
Set ci = Worksheets(1).Shapes(1)
For i = 1 To 12
ci.IncrementRotation (30)
Application.Wait (12345)
Next i
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Michel NOLF" a écrit dans le message de
news:ch5695$2jb$

Bonjour
J'ai vu qu'on pouvait appliquer à un objet Shape la methode increment
rotation.
voila ce que je fais
dim c1 as shape
set ci=worksheets(1).shapes(1)
for i=1 to 12
c1.incrementrotation 30
(delai)
next i
rien ne se passe. Pourquoi?
merci d'avance








Avatar
Philippe.R
Ou bien :

Sub rota()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
MsgBox "et de 30 !", , "MPFE"
Next i
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Philippe.R" a écrit dans le message de
news:
Bonsoir Michel,
Et comme ceci ?

Sub rot()
Dim c1 As Shape
Set ci = Worksheets(1).Shapes(1)
For i = 1 To 12
ci.IncrementRotation (30)
Application.Wait (12345)
Next i
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Michel NOLF" a écrit dans le message de news:ch5695$2jb$
Bonjour
J'ai vu qu'on pouvait appliquer à un objet Shape la methode increment
rotation.
voila ce que je fais
dim c1 as shape
set ci=worksheets(1).shapes(1)
for i=1 to 12
c1.incrementrotation 30
(delai)
next i
rien ne se passe. Pourquoi?
merci d'avance








Avatar
Michel NOLF
Merci encore
Apres l'affichage fe 12 msgbox, une(1) rotation de 30° se produit. Dans
l'aide il est bien indique que l'angle est en degre.
Donc le delai n'est pas mis en cause. Mais que fait donc la boucle b..el?

"Philippe.R" a écrit dans le message de
news:%
Ou bien :

Sub rota()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
MsgBox "et de 30 !", , "MPFE"
Next i
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Philippe.R" a écrit dans le message de
news:
Bonsoir Michel,
Et comme ceci ?

Sub rot()
Dim c1 As Shape
Set ci = Worksheets(1).Shapes(1)
For i = 1 To 12
ci.IncrementRotation (30)
Application.Wait (12345)
Next i
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Michel NOLF" a écrit dans le message de
news:ch5695$2jb$


Bonjour
J'ai vu qu'on pouvait appliquer à un objet Shape la methode increment
rotation.
voila ce que je fais
dim c1 as shape
set ci=worksheets(1).shapes(1)
for i=1 to 12
c1.incrementrotation 30
(delai)
next i
rien ne se passe. Pourquoi?
merci d'avance












Avatar
Philippe.R
Fais le test avec la seconde proposition, pour voir.

Sub rotat()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
MsgBox "et de 30° !", , "MPFE"
Next i
End Sub
--
Amicales Salutations

"Michel NOLF" a écrit dans le message de news:ch57i8$5hu$

Merci de m'avoir repondu si vite
Cela ne fait pas une rotation complete(12*3060) mais une seile de 30°
donc a quoi sert la boucle?

"Philippe.R" a écrit dans le message de
news:
Bonsoir Michel,
Et comme ceci ?

Sub rot()
Dim c1 As Shape
Set ci = Worksheets(1).Shapes(1)
For i = 1 To 12
ci.IncrementRotation (30)
Application.Wait (12345)
Next i
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Michel NOLF" a écrit dans le message de
news:ch5695$2jb$

Bonjour
J'ai vu qu'on pouvait appliquer à un objet Shape la methode increment
rotation.
voila ce que je fais
dim c1 as shape
set ci=worksheets(1).shapes(1)
for i=1 to 12
c1.incrementrotation 30
(delai)
next i
rien ne se passe. Pourquoi?
merci d'avance












Avatar
Philippe.R
Re,
Pour moi, il y a bien une rotation de 30° avec chaque msgbox, donc 12 fois 30

Sub rotati()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
MsgBox "Et " & i & " de 30° !", , "MPFE"
Next i
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Michel NOLF" a écrit dans le message de news:ch58ik$7io$
Merci encore
Apres l'affichage fe 12 msgbox, une(1) rotation de 30° se produit. Dans
l'aide il est bien indique que l'angle est en degre.
Donc le delai n'est pas mis en cause. Mais que fait donc la boucle b..el?

"Philippe.R" a écrit dans le message de
news:%
Ou bien :

Sub rota()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
MsgBox "et de 30 !", , "MPFE"
Next i
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Philippe.R" a écrit dans le message de
news:
Bonsoir Michel,
Et comme ceci ?

Sub rot()
Dim c1 As Shape
Set ci = Worksheets(1).Shapes(1)
For i = 1 To 12
ci.IncrementRotation (30)
Application.Wait (12345)
Next i
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Michel NOLF" a écrit dans le message de
news:ch5695$2jb$


Bonjour
J'ai vu qu'on pouvait appliquer à un objet Shape la methode increment
rotation.
voila ce que je fais
dim c1 as shape
set ci=worksheets(1).shapes(1)
for i=1 to 12
c1.incrementrotation 30
(delai)
next i
rien ne se passe. Pourquoi?
merci d'avance
















Avatar
GD
Bonsour®
;-)))
il faut inclure un doevents dans la boucle !!!!!!!

Sub rotat()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
DoEvents
MsgBox "et de 30° !", , "MPFE"
Next i
End Sub

de rien c'était avec Philippe !
;o)))
@+

dans news:,
Philippe.R typed:
Fais le test avec la seconde proposition, pour voir.

Sub rotat()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
MsgBox "et de 30° !", , "MPFE"
Next i
End Sub

"Michel NOLF" a écrit dans le message de
news:ch57i8$5hu$

Merci de m'avoir repondu si vite
Cela ne fait pas une rotation complete(12*3060) mais une seile de
30° donc a quoi sert la boucle?

"Philippe.R" a écrit dans le message de
news:
Bonsoir Michel,
Et comme ceci ?

Sub rot()
Dim c1 As Shape
Set ci = Worksheets(1).Shapes(1)
For i = 1 To 12
ci.IncrementRotation (30)
Application.Wait (12345)
Next i
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Michel NOLF" a écrit dans le message de
news:ch5695$2jb$

Bonjour
J'ai vu qu'on pouvait appliquer à un objet Shape la methode
increment rotation.
voila ce que je fais
dim c1 as shape
set ci=worksheets(1).shapes(1)
for i=1 to 12
c1.incrementrotation 30
(delai)
next i
rien ne se passe. Pourquoi?
merci d'avance








Avatar
Michel NOLF
Merci
J'ai fait le test comme indiqué. Pas de changement d'orentation de la shape
(confirmé par un debug.print c1.left,c1.top etc apres le msgbox. Par contre
apres la boucle dernier debug.print (position inchangee) mais visuellement
la shape a tourne de 30.

"Philippe.R" a écrit dans le message de
news:
Fais le test avec la seconde proposition, pour voir.

Sub rotat()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
MsgBox "et de 30° !", , "MPFE"
Next i
End Sub
--
Amicales Salutations

"Michel NOLF" a écrit dans le message de
news:ch57i8$5hu$


Merci de m'avoir repondu si vite
Cela ne fait pas une rotation complete(12*3060) mais une seile de 30°
donc a quoi sert la boucle?

"Philippe.R" a écrit dans le message de
news:
Bonsoir Michel,
Et comme ceci ?

Sub rot()
Dim c1 As Shape
Set ci = Worksheets(1).Shapes(1)
For i = 1 To 12
ci.IncrementRotation (30)
Application.Wait (12345)
Next i
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Michel NOLF" a écrit dans le message de
news:ch5695$2jb$

Bonjour
J'ai vu qu'on pouvait appliquer à un objet Shape la methode
increment




rotation.
voila ce que je fais
dim c1 as shape
set ci=worksheets(1).shapes(1)
for i=1 to 12
c1.incrementrotation 30
(delai)
next i
rien ne se passe. Pourquoi?
merci d'avance
















Avatar
GD
re-bonsour®
même que je préfère comme ceci

Sub rotat()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 360 'Step 2
c1.Rotation = i
DoEvents
Next i
End Sub

la rotation ne se fait plus en increment par rapport à une position initiale
mais en position absolue.

Nb: le Doevents est fait pour attendre le rafraichissement de l'écran,
c'est un processus Windows donc extérieur à EXCEL

;O)))
@+

dans news:,
GD typed:
Bonsour®
;-)))
il faut inclure un doevents dans la boucle !!!!!!!

Sub rotat()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
DoEvents
MsgBox "et de 30° !", , "MPFE"
Next i
End Sub

de rien c'était avec Philippe !
;o)))
@+

dans news:,
Philippe.R typed:
Fais le test avec la seconde proposition, pour voir.

Sub rotat()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
MsgBox "et de 30° !", , "MPFE"
Next i
End Sub

"Michel NOLF" a écrit dans le message de
news:ch57i8$5hu$

Merci de m'avoir repondu si vite
Cela ne fait pas une rotation complete(12*3060) mais une seile de
30° donc a quoi sert la boucle?

"Philippe.R" a écrit dans le message de
news:
Bonsoir Michel,
Et comme ceci ?

Sub rot()
Dim c1 As Shape
Set ci = Worksheets(1).Shapes(1)
For i = 1 To 12
ci.IncrementRotation (30)
Application.Wait (12345)
Next i
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Michel NOLF" a écrit dans le message de
news:ch5695$2jb$

Bonjour
J'ai vu qu'on pouvait appliquer à un objet Shape la methode
increment rotation.
voila ce que je fais
dim c1 as shape
set ci=worksheets(1).shapes(1)
for i=1 to 12
c1.incrementrotation 30
(delai)
next i
rien ne se passe. Pourquoi?
merci d'avance










Avatar
Philippe.R
Merci GD !
;o)))
--
Amicales Salutations

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

Bonsour®
;-)))
il faut inclure un doevents dans la boucle !!!!!!!

Sub rotat()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
DoEvents
MsgBox "et de 30° !", , "MPFE"
Next i
End Sub

de rien c'était avec Philippe !
;o)))
@+

dans news:,
Philippe.R typed:
Fais le test avec la seconde proposition, pour voir.

Sub rotat()
Dim c1 As Shape
Set c1 = Worksheets(1).Shapes(1)
For i = 1 To 12
c1.IncrementRotation 30
MsgBox "et de 30° !", , "MPFE"
Next i
End Sub

"Michel NOLF" a écrit dans le message de
news:ch57i8$5hu$

Merci de m'avoir repondu si vite
Cela ne fait pas une rotation complete(12*3060) mais une seile de
30° donc a quoi sert la boucle?

"Philippe.R" a écrit dans le message de
news:
Bonsoir Michel,
Et comme ceci ?

Sub rot()
Dim c1 As Shape
Set ci = Worksheets(1).Shapes(1)
For i = 1 To 12
ci.IncrementRotation (30)
Application.Wait (12345)
Next i
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Michel NOLF" a écrit dans le message de
news:ch5695$2jb$

Bonjour
J'ai vu qu'on pouvait appliquer à un objet Shape la methode
increment rotation.
voila ce que je fais
dim c1 as shape
set ci=worksheets(1).shapes(1)
for i=1 to 12
c1.incrementrotation 30
(delai)
next i
rien ne se passe. Pourquoi?
merci d'avance












1 2