j'aimerais savoir s'il est possible de programmer en VBA=20
une trajectoire parabolique (par exemple ascendante puis=20
descendante) pour un objet de type "shapes".
Je suis ennuy=E9 par le fait que sur une feuille excel le=20
point d'abscisse 0 et d'ordonn=E9e 0 est celui le plus en=20
haut =E0 gauche de la feuille. Donc j'ai du mal =E0 r=E9aliser=20
ma courbe ascendante puis descendante...
Merci =E0 tous pour vos id=E9es et bravo pour EXCELlentes=20
(elle est pas nouvelle, mais elle me pla=EEt bien !!)
r=E9ponses sur ce forum :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
Nicolas B.
Salut,
Avec l'objet appelé myShape :
Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Ballade() For i = 1 To 400 ActiveSheet.Shapes("myShape").Left = i ActiveSheet.Shapes("myShape").Top = i ^ 2 / 200 - 2 * i + 200 Temps = GetTickCount + 10 While GetTickCount < Temps Wend Application.Calculate Next End Sub
Testé sous une résolution de 1024 x 768, mais je pense qu'en 800 x 600, ça passe aussi.
A+ -- Nicolas B.
Bonjour à tous,
j'aimerais savoir s'il est possible de programmer en VBA une trajectoire parabolique (par exemple ascendante puis descendante) pour un objet de type "shapes".
Je suis ennuyé par le fait que sur une feuille excel le point d'abscisse 0 et d'ordonnée 0 est celui le plus en haut à gauche de la feuille. Donc j'ai du mal à réaliser ma courbe ascendante puis descendante...
Merci à tous pour vos idées et bravo pour EXCELlentes (elle est pas nouvelle, mais elle me plaît bien !!) réponses sur ce forum :o))
Fred
Salut,
Avec l'objet appelé myShape :
Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Ballade()
For i = 1 To 400
ActiveSheet.Shapes("myShape").Left = i
ActiveSheet.Shapes("myShape").Top = i ^ 2 / 200 - 2 * i + 200
Temps = GetTickCount + 10
While GetTickCount < Temps
Wend
Application.Calculate
Next
End Sub
Testé sous une résolution de 1024 x 768, mais je pense qu'en 800 x 600, ça
passe aussi.
A+
--
Nicolas B.
Bonjour à tous,
j'aimerais savoir s'il est possible de programmer en VBA
une trajectoire parabolique (par exemple ascendante puis
descendante) pour un objet de type "shapes".
Je suis ennuyé par le fait que sur une feuille excel le
point d'abscisse 0 et d'ordonnée 0 est celui le plus en
haut à gauche de la feuille. Donc j'ai du mal à réaliser
ma courbe ascendante puis descendante...
Merci à tous pour vos idées et bravo pour EXCELlentes
(elle est pas nouvelle, mais elle me plaît bien !!)
réponses sur ce forum :o))
Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Ballade() For i = 1 To 400 ActiveSheet.Shapes("myShape").Left = i ActiveSheet.Shapes("myShape").Top = i ^ 2 / 200 - 2 * i + 200 Temps = GetTickCount + 10 While GetTickCount < Temps Wend Application.Calculate Next End Sub
Testé sous une résolution de 1024 x 768, mais je pense qu'en 800 x 600, ça passe aussi.
A+ -- Nicolas B.
Bonjour à tous,
j'aimerais savoir s'il est possible de programmer en VBA une trajectoire parabolique (par exemple ascendante puis descendante) pour un objet de type "shapes".
Je suis ennuyé par le fait que sur une feuille excel le point d'abscisse 0 et d'ordonnée 0 est celui le plus en haut à gauche de la feuille. Donc j'ai du mal à réaliser ma courbe ascendante puis descendante...
Merci à tous pour vos idées et bravo pour EXCELlentes (elle est pas nouvelle, mais elle me plaît bien !!) réponses sur ce forum :o))
Fred
Fred
Merci pour ta réponse Nicolas,
mais il y a un pb de compilation. Il me dit que les instructions "Declare" ne sont pas autorisées comme membre Public de modules d'objets...
Où faut-il que je place cette instruction ??
Merci d'avance...
Fred
Merci pour ta réponse Nicolas,
mais il y a un pb de compilation. Il me dit que les
instructions "Declare" ne sont pas autorisées comme membre
Public de modules d'objets...
