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 [HS] Un p'tit jeu pour l'apéro :-)

[HS] Un p'tit jeu pour l'apéro :-)

31 réponses
Avatar
garnote
Bonchoir mes vous toutes et tous,

Oune tite pause, peut-être ?
http://www.cijoint.fr/cjlink.php?file=cj200908/cijCvk9X4j.xls

À pluche,
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 4
Avatar
isabelle
il faut oublier les "x =" c'était pour les test,
correction :
Select Case Val(Application.Version)
Case 8 To 10 : Set forme =
ActiveSheet.Shapes(Application.Caller).ParentGroup
Case 11: "" '?? désolé je n'ai pas cette version
Case 12: Set forme = ActiveSheet.Shapes(Application.Caller)
End Select

isabelle

isabelle a écrit :
bonjour Serge,

c'est un excellent travail, bravo.

juste une petite modification à la macro "Rotation90" pour quel
fonctionne pour xl2002

Sub Rotation90()
Dim forme As Object
Dim c As Range
Set forme = ActiveSheet.Shapes(Application.Caller).ParentGroup
'<-----------
Set c = forme.TopLeftCell
forme.IncrementRotation 90
If c = 1 Then c = -1 Else c = 1
End Sub

peut être qu'il faudrait y ajouter un test de version,

Select Case Val(Application.Version)
Case 8 To 10 : x = Set forme =
ActiveSheet.Shapes(Application.Caller).ParentGroup
Case 11: x = "" '?? désolé je n'ai pas cette version
Case 12: x = Set forme = ActiveSheet.Shapes(Application.Caller)
End Select

isabelle

garnote a écrit :
Bonsoir, Bonsoir,

Voici mon chantier-miroir et une solution :-)
Cette fois-ci, est-ce que ça passe ?

http://www.cijoint.fr/cjlink.php?file=cj200908/cijpbmRx16.xls

http://www.cijoint.fr/cjlink.php?file=cj200908/ciju8pDP4Z.xlsm

Bonne fin de soirée,
Serge


"laurent.daures" a écrit dans le message
de news: 4a7b3c30$0$12658$

Ca marche !!
J'en suis à mon 6e, et ça commence à tourner, surtout le plafond ;-)))
Amicalement
Siesting Hoax (vivement que ça marche, c'est intéressant ce truc)
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: ez%

Bonsoir,
Marche pas chez moé non plus !
Au début je me suis dit qu'y d'vait manquer un verre, mais même
après le 3ème, ça marche toujours pas !
J'ai beau cliquer en diable sur les maudits miroirs, ça veut pas
tourner, ni rien faire d'autre d'ailleurs...
;o))
--
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:

Bonchoir mes vous toutes et tous,

Oune tite pause, peut-être ?
http://www.cijoint.fr/cjlink.php?file=cj200908/cijCvk9X4j.xls

À pluche,
Serge
















Avatar
garnote
Bonsoir Isabelle,

Ma dernière version ne contient aucun groupe.
Seulement des segments de droite que je fais
pivoter de 90 degrés.
Et voir ma dernière réponse à Modeste.
Si tu me le permets, je pourrais t'envoyer ma
version définitive en mode 97-2003 et si le coeur
t'en dit, tu pourrais peut-être essayer de la rendre
universelle :-)
Si tu as mon adresse, fais-moi parvenir ta tienne :-)

Serge



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

il faut oublier les "x =" c'était pour les test,
correction :
Select Case Val(Application.Version)
Case 8 To 10 : Set forme =
ActiveSheet.Shapes(Application.Caller).ParentGroup
Case 11: "" '?? désolé je n'ai pas cette version
Case 12: Set forme = ActiveSheet.Shapes(Application.Caller)
End Select

isabelle

isabelle a écrit :
bonjour Serge,

c'est un excellent travail, bravo.

juste une petite modification à la macro "Rotation90" pour quel
fonctionne pour xl2002

Sub Rotation90()
Dim forme As Object
Dim c As Range
Set forme = ActiveSheet.Shapes(Application.Caller).ParentGroup
'<-----------
Set c = forme.TopLeftCell
forme.IncrementRotation 90
If c = 1 Then c = -1 Else c = 1
End Sub

peut être qu'il faudrait y ajouter un test de version,

Select Case Val(Application.Version)
Case 8 To 10 : x = Set forme =
ActiveSheet.Shapes(Application.Caller).ParentGroup
Case 11: x = "" '?? désolé je n'ai pas cette version
Case 12: x = Set forme = ActiveSheet.Shapes(Application.Caller)
End Select

isabelle

garnote a écrit :
Bonsoir, Bonsoir,

Voici mon chantier-miroir et une solution :-)
Cette fois-ci, est-ce que ça passe ?

http://www.cijoint.fr/cjlink.php?file=cj200908/cijpbmRx16.xls

http://www.cijoint.fr/cjlink.php?file=cj200908/ciju8pDP4Z.xlsm

Bonne fin de soirée,
Serge


"laurent.daures" a écrit dans le message de
news: 4a7b3c30$0$12658$

Ca marche !!
J'en suis à mon 6e, et ça commence à tourner, surtout le plafond ;-)))
Amicalement
Siesting Hoax (vivement que ça marche, c'est intéressant ce truc)
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: ez%

Bonsoir,
Marche pas chez moé non plus !
Au début je me suis dit qu'y d'vait manquer un verre, mais même après
le 3ème, ça marche toujours pas !
J'ai beau cliquer en diable sur les maudits miroirs, ça veut pas
tourner, ni rien faire d'autre d'ailleurs...
;o))
--
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:

Bonchoir mes vous toutes et tous,

Oune tite pause, peut-être ?
http://www.cijoint.fr/cjlink.php?file=cj200908/cijCvk9X4j.xls

À pluche,
Serge


















Avatar
Jacquouille
As-tu essayé de réouvrir ton fichier via CJoint?

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

Jacquouille.

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

Ave Modeste,

Mais qu'est-ce que ça veut bien dire ?
Chez moi tout fonctionne correctement.
Mais que peut-il se passer quand je l'envoie
sur Cijoint.fr pour qu'il devienne inutilisable
sauf pour moi ? BIZZ
J'ai réussi (à ma grande stupéfaction) à faire tracer
automatiquement le parcours du rayon lumineux à partir
d'une disposition quelconque des miroirs et d'une
position de départ située dans une cellule choisie
autour de la zone miroir.

A+
Serge

"Modeste" a écrit dans le message de news:
%
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
Voici mon chantier-miroir et une solution :-)
Cette fois-ci, est-ce que ça passe ?

http://www.cijoint.fr/cjlink.php?file=cj200908/cijpbmRx16.xls



:-(
ça ne marche pas mieux....

j'ai remplacé tout les miroirs par des rectangles épaisseur 5, inclinés à
45°
(msoShapeRectangle, x, y, 50#, 5#)

également modifié :
Sub Efface()
Dim F As Shape
For Each F In ActiveSheet.Shapes
If Left(F.Name, 8) = "Freeform" Then F.Delete
Next F
End Sub

ça marche mieux.... !!!!
http://www.cijoint.fr/cjlink.php?file=cj200908/cijjJrDSf3.xls





Avatar
garnote
Oui et aucun problème.
Voici la version définitive en mode de compatibilité (mon oeil !).
Sur Cjoint :
http://cjoint.com/?iin1IL3IIL
Sur Cijoint :
http://www.cijoint.fr/cjlink.php?file=cj200908/cij099B3mL.xls

J'ose au moins espérer que les détenteurs de 2007 pourront
s'amuser avec :-)
Je trouve ça tellement con tous ces pseudochangements de version
à tout bout de champ !

Bonne fin de semaine,
Serge


"Jacquouille" a écrit dans le message de
news: 4a7d3ac1$0$2856$
As-tu essayé de réouvrir ton fichier via CJoint?

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

Jacquouille.

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

Ave Modeste,

Mais qu'est-ce que ça veut bien dire ?
Chez moi tout fonctionne correctement.
Mais que peut-il se passer quand je l'envoie
sur Cijoint.fr pour qu'il devienne inutilisable
sauf pour moi ? BIZZ
J'ai réussi (à ma grande stupéfaction) à faire tracer
automatiquement le parcours du rayon lumineux à partir
d'une disposition quelconque des miroirs et d'une
position de départ située dans une cellule choisie
autour de la zone miroir.

A+
Serge

"Modeste" a écrit dans le message de news:
%
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
Voici mon chantier-miroir et une solution :-)
Cette fois-ci, est-ce que ça passe ?

http://www.cijoint.fr/cjlink.php?file=cj200908/cijpbmRx16.xls



:-(
ça ne marche pas mieux....

j'ai remplacé tout les miroirs par des rectangles épaisseur 5, inclinés à
45°
(msoShapeRectangle, x, y, 50#, 5#)

également modifié :
Sub Efface()
Dim F As Shape
For Each F In ActiveSheet.Shapes
If Left(F.Name, 8) = "Freeform" Then F.Delete
Next F
End Sub

ça marche mieux.... !!!!
http://www.cijoint.fr/cjlink.php?file=cj200908/cijjJrDSf3.xls









Avatar
isabelle
salut Serge

garnote a écrit :
Bonsoir Isabelle,

Ma dernière version ne contient aucun groupe.
Seulement des segments de droite que je fais
pivoter de 90 degrés.
Et voir ma dernière réponse à Modeste.
Si tu me le permets, je pourrais t'envoyer ma
version définitive en mode 97-2003 et si le coeur
t'en dit, tu pourrais peut-être essayer de la rendre
universelle :-)
Si tu as mon adresse, fais-moi parvenir ta tienne :-)



c'est fait,

je vient de m'apercevoir que la macro rotation fonctionne pour un
objet "segments de droite"
que je vient de créer mais cela ne fonctionne pas pour les objet déjà
existant sur la feuille.
il faudra les créer par macro...

isabelle
Avatar
garnote
Bonjour Isabelle,

Merci pour l'intérêt que tu portes à mes élucubrations :-)
Jette un oeil sur ma version finale 08/08/2009 08:21.
En attendant, je vais contacter MicroMachin pour leur
parler de leur pseudocompatibilité, stie !

Serge

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

salut Serge

garnote a écrit :
Bonsoir Isabelle,

Ma dernière version ne contient aucun groupe.
Seulement des segments de droite que je fais
pivoter de 90 degrés.
Et voir ma dernière réponse à Modeste.
Si tu me le permets, je pourrais t'envoyer ma
version définitive en mode 97-2003 et si le coeur
t'en dit, tu pourrais peut-être essayer de la rendre
universelle :-)
Si tu as mon adresse, fais-moi parvenir ta tienne :-)



c'est fait,

je vient de m'apercevoir que la macro rotation fonctionne pour un objet
"segments de droite"
que je vient de créer mais cela ne fonctionne pas pour les objet déjà
existant sur la feuille.
il faudra les créer par macro...

isabelle


Avatar
isabelle
salut Serge,

j'ai un message du postmaster qui me dit que ton adresse globetrotter
n'est plus valide :-(
voici la mienne, c'est une de videotron.ca --> GGTvincent

isabelle

garnote a écrit :
Bonjour Isabelle,

Merci pour l'intérêt que tu portes à mes élucubrations :-)
Jette un oeil sur ma version finale 08/08/2009 08:21.
En attendant, je vais contacter MicroMachin pour leur
parler de leur pseudocompatibilité, stie !

Serge

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


salut Serge

garnote a écrit :

Bonsoir Isabelle,

Ma dernière version ne contient aucun groupe.
Seulement des segments de droite que je fais
pivoter de 90 degrés.
Et voir ma dernière réponse à Modeste.
Si tu me le permets, je pourrais t'envoyer ma
version définitive en mode 97-2003 et si le coeur
t'en dit, tu pourrais peut-être essayer de la rendre
universelle :-)
Si tu as mon adresse, fais-moi parvenir ta tienne :-)




c'est fait,

je vient de m'apercevoir que la macro rotation fonctionne pour un objet
"segments de droite"
que je vient de créer mais cela ne fonctionne pas pour les objet déjà
existant sur la feuille.
il faudra les créer par macro...

isabelle








Avatar
Albert
Bonjour Garnotte
fonctionne bien sur 2007 pour moi
albert

"garnote" a écrit dans le message de
news:%
Oui et aucun problème.
Voici la version définitive en mode de compatibilité (mon oeil !).
Sur Cjoint :
http://cjoint.com/?iin1IL3IIL
Sur Cijoint :
http://www.cijoint.fr/cjlink.php?file=cj200908/cij099B3mL.xls

J'ose au moins espérer que les détenteurs de 2007 pourront
s'amuser avec :-)
Je trouve ça tellement con tous ces pseudochangements de version
à tout bout de champ !



Avatar
garnote
Viens de voir le 200 ;o))))))

En espérant que tu repasses.
C'est un peu moins fou qu'à l'époque du terrible JPS
mais il y a encore de bons moments :-)

Serge

"Claude TROUET" a écrit dans le message de news:

euh, je n'ai plus la version 200 ...................! ;o))))))

Sinon, comme on dit dans la région parisienne : 'respect"

Pounet95 ..... de passage hélas trop rare

"garnote" a écrit dans le message de
news:O8l9o%
Je me suis encore une fois compliqué la vie en utilisant rectangles
nommés au premier plan et segments nommés en arrière-plan.
J'aurais pu me contenter de copier un segment dans chaque
cellule noire et associer d'un coup cette macro à chacun
d'entre eux :

Sub Rotation90()
ActiveSheet.Shapes(Application.Caller).IncrementRotation 90
End Sub


Il faudrait cependant plus de précision dans nos clics :-)

Et ainsi conçu, passerait-il sous 200, 2002, 2003 et 2009 ?

Je préfère cependant l'esthétique des parallélogrammes 0.9 :-)

Serge


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

En effet, il n'y a pas de formes groupées dans mon classeur.
Sur la feuille "Jeu", les cellules à remplissage noir contiennent
au premier-plan un rectangle sans remplissage et en arrière-plan,
une forme automatique "Ligne". Ma macro est associée à chaque
rectangle et fait pivoter le segment jaune de 90 degrés.


"Modeste" a écrit dans le message de news:
%
Bonsour® garnote avec ferveur ;o))) vous nous disiez :

Mais pourquoi ça fonctionne pour moi quand je l'ouvre ?
Un dernier essai en version 2007 prenant en charge les macros :
http://www.cijoint.fr/cjlink.php?file=cj200908/cijCkQs5rI.xlsm



je n'ai que EXCEL 2002

mais il me semble que les cases noires et les traits jaunes ne soient
pas groupés
seule la case tourne... le trait reste en place

cela correspond au probleme evoqué précédement par Denis
Subject: Re:_Rotation_de_formes_groupées
Date: Tue, 4 Aug 2009 19:32:38 -0400

plutot que faire des formes groupées :
remplacer le trait (miroir) par
.AddShape(msoShapeParallelogram x y xx yy)
ShapeRange.Adjustments.Item(1) = 0.9













Avatar
Sam
Bonjour,
Je désire me mettre à VBA et j'essaye de déchiffrer les macros de ce
fichier.
- On voit apparaître les expressions Range("un"), Range("deux") etc
Où sont définis ces Range ?

- Dans la sub Orientation, on déclare c As Range
puis plus bas il y a
if c = 1 then c=-1

Nota sous Excel2003, quand je fais MsgBox Prompt:=Forme.TopLeftCell c'est
vide
mais quand j'écris MsgBox Prompt:=Forme.TopLeftCell.Address, j'obtiens bien
l'adresse d'une cellule.

Ai je encore besoin de beaucoup de cours de VBA ?
Cordialement
Michel dit "Sam"

"garnote" a écrit dans le message de news:
%
Oui et aucun problème.
Voici la version définitive en mode de compatibilité (mon oeil !).
Sur Cjoint :
http://cjoint.com/?iin1IL3IIL
Sur Cijoint :
http://www.cijoint.fr/cjlink.php?file=cj200908/cij099B3mL.xls

J'ose au moins espérer que les détenteurs de 2007 pourront
s'amuser avec :-)
Je trouve ça tellement con tous ces pseudochangements de version
à tout bout de champ !

Bonne fin de semaine,
Serge


"Jacquouille" a écrit dans le message de
news: 4a7d3ac1$0$2856$
As-tu essayé de réouvrir ton fichier via CJoint?

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

Jacquouille.

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

Ave Modeste,

Mais qu'est-ce que ça veut bien dire ?
Chez moi tout fonctionne correctement.
Mais que peut-il se passer quand je l'envoie
sur Cijoint.fr pour qu'il devienne inutilisable
sauf pour moi ? BIZZ
J'ai réussi (à ma grande stupéfaction) à faire tracer
automatiquement le parcours du rayon lumineux à partir
d'une disposition quelconque des miroirs et d'une
position de départ située dans une cellule choisie
autour de la zone miroir.

A+
Serge

"Modeste" a écrit dans le message de news:
%
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
Voici mon chantier-miroir et une solution :-)
Cette fois-ci, est-ce que ça passe ?

http://www.cijoint.fr/cjlink.php?file=cj200908/cijpbmRx16.xls



:-(
ça ne marche pas mieux....

j'ai remplacé tout les miroirs par des rectangles épaisseur 5, inclinés
à 45°
(msoShapeRectangle, x, y, 50#, 5#)

également modifié :
Sub Efface()
Dim F As Shape
For Each F In ActiveSheet.Shapes
If Left(F.Name, 8) = "Freeform" Then F.Delete
Next F
End Sub

ça marche mieux.... !!!!
http://www.cijoint.fr/cjlink.php?file=cj200908/cijjJrDSf3.xls













1 2 3 4