Rotation de formes groupées

Le but ultime étant de faire pivoter le cube
autour d'un axe perpendiculaire aux en-têtes
de colonnes et passant par le centre du cube.
Ne me semble pas évident ;-)

A+
Serge


"Garnote" <garnote3ENLEVER@videotron.ca> a écrit dans le message de news:
%23tMkhSRdKHA.2188@TK2MSFTNGP04.phx.gbl...

Bonsoir,

Voici un classeur conçu sous XL 2007 et enregistré
en format compatible 97-2003 :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijkamANaj.xls

Dans ce document, il y a une question au sujet de rotations
et retournements de formes groupées.
Les détails sont sur la seule feuille du classeur.

Bonne fin de semaine,
Serge

Bonsoir Garnote,

Apporte les petites modifications sur les zones de texte et teste si cela te
va :

Sub Tourne()

Dim I As Integer
Dim H As Single
Dim G As Single

'inversion des chiffres (1<->3, 4<->6 et 7<->9)
'les zones de textes doivent être nommées
'avec le préfixe "Txt" suivi du chiffre
'quelles contiennent (Txt1, Txt2, etc...)
For I = 1 To 7 Step 3
H = ActiveSheet.Shapes("Txt" & I + 2).Top
G = ActiveSheet.Shapes("Txt" & I + 2).Left
ActiveSheet.Shapes("Txt" & I + 2).Top = _
ActiveSheet.Shapes("Txt" & I).Top
ActiveSheet.Shapes("Txt" & I + 2).Left = _
ActiveSheet.Shapes("Txt" & I).Left
ActiveSheet.Shapes("Txt" & I).Top = H
ActiveSheet.Shapes("Txt" & I).Left = G
Next I

With ActiveSheet.Shapes("mcube")
'retournement du shape
.Flip 0
'pivotement
For I = 1 To 36
.IncrementRotation 10
DoEvents
Next I
End With

End Sub


Hervé.


"Garnote" <garnote3ENLEVER@videotron.ca> a écrit dans le message de
news:%23tMkhSRdKHA.2188@TK2MSFTNGP04.phx.gbl...

Bonsoir,

Voici un classeur conçu sous XL 2007 et enregistré
en format compatible 97-2003 :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijkamANaj.xls

Dans ce document, il y a une question au sujet de rotations
et retournements de formes groupées.
Les détails sont sur la seule feuille du classeur.

Bonne fin de semaine,
Serge