Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel [HS] Un cheval au galop

[HS] Un cheval au galop

22 réponses
Avatar
garnote
Bonjour,

À partir de ce cheval japonais :
http://flashfabrica.com/f_mov_obj/slitAnime/horse.html

j'ai concocté ceci :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijpDhquHO.xls

Amusant, non ?

Serge :-)
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 3
Avatar
Philippe.R
Bonjour Serge,
Fort belle décomposition !
Impressionnant !
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"garnote" a écrit dans le message de
news:%
Bonjour,

À partir de ce cheval japonais :
http://flashfabrica.com/f_mov_obj/slitAnime/horse.html

j'ai concocté ceci :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijpDhquHO.xls

Amusant, non ?

Serge :-)



Avatar
Péhemme
Serge, tu es un fou !
;-))
Michel

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonjour Serge,
Fort belle décomposition !
Impressionnant !
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"garnote" a écrit dans le message de
news:%
Bonjour,

À partir de ce cheval japonais :
http://flashfabrica.com/f_mov_obj/slitAnime/horse.html

j'ai concocté ceci :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijpDhquHO.xls

Amusant, non ?

Serge :-)






Avatar
Modeste
Bonsour® garnote avec ferveur ;o))) vous nous disiez :


Amusant, non ?



;o)))

For i = 1 To 400
ActiveSheet.Shapes("groupe").Left = 505 + (i Mod 8)
DoEvents
Next
Avatar
garnote
> For i = 1 To 400
ActiveSheet.Shapes("groupe").Left = 505 + (i Mod 8)
DoEvents
Next



Super !
Au début mon idée était de le faire galoper avec une boucle et un DoEvents
tant que l'utilisateur ne taperait pas sur une certaine touche.
Mais comme avec ta macro, je recevais un message d'interruption au
début de l'animation. Il semble que mon ordi n'aime pas les
"événements doux" :-)

Serge
Avatar
garnote
Ave Modeste,

Comme ceci et en modifiant un tantinet la macro de
telle sorte que le cheval arrête de galoper quand
l'utilisateur tape sur A, ce serait parfait et les
Japonais en prendraient pour leur rhume :-)))

Sub Modeste()
For i = 1 To 400
ActiveSheet.Shapes("groupe").Left = 440 + (i Mod 8)
DoEvents
Next
End Sub

A+
Serge
" J'irai comme un cheval fou ".
Avatar
LSteph
Bonsoir Serge,

Il me plait ton cheval..

à+

--
lSteph

garnote a écrit :
Bonjour,

À partir de ce cheval japonais :
http://flashfabrica.com/f_mov_obj/slitAnime/horse.html

j'ai concocté ceci :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijpDhquHO.xls

Amusant, non ?

Serge :-)




Avatar
Jacquouille
J'ai voulu miser dessus, car son galop me plaisait.
Mais, y en a qu'un......donc pas de course. -)
Bravo à tous

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"LSteph" a écrit dans le message de news:
OU$DqI$
Bonsoir Serge,

Il me plait ton cheval..

à+

--
lSteph

garnote a écrit :
Bonjour,

À partir de ce cheval japonais :
http://flashfabrica.com/f_mov_obj/slitAnime/horse.html

j'ai concocté ceci :
http://www.cijoint.fr/cjlink.php?file=cj200905/cijpDhquHO.xls

Amusant, non ?

Serge :-)




Avatar
LSteph
trois amis au bistrot évoquent les tromperies de leurs épouses

-le premier
ma femme sûr c'est un boulanger, j'ai trouvé de la farine sous le lit

-2nd
..ah ah, moi c'est un mécanicien, il a laissé une clé de 13 sur la commode

-alors moi je vous bats tous,
>ah bon!
c'est un Cheval!!!

dans le placard j'ai trouvé un jockey!

Jacquouille a écrit :
J'ai voulu miser dessus, car son galop me plaisait.
Mais, y en a qu'un......donc pas de course. -)
Bravo à tous



Avatar
Philippe.R
;o)))

"LSteph" a écrit dans le message de
news:
trois amis au bistrot évoquent les tromperies de leurs épouses

-le premier
ma femme sûr c'est un boulanger, j'ai trouvé de la farine sous le lit

-2nd
..ah ah, moi c'est un mécanicien, il a laissé une clé de 13 sur la commode

-alors moi je vous bats tous,
>ah bon!
c'est un Cheval!!!

dans le placard j'ai trouvé un jockey!

Jacquouille a écrit :
J'ai voulu miser dessus, car son galop me plaisait.
Mais, y en a qu'un......donc pas de course. -)
Bravo à tous





Avatar
Modeste
Bonsour® garnote avec ferveur ;o))) vous nous disiez :

Amusant, non ?



;o)))
http://www.cijoint.fr/cjlink.php?file=cj200905/cij0mxcOQP.xls
1 2 3