× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Roue de la Fortune Excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
thekick
  Posté le 20/02/2016 @ 11:00 
Aller en bas de la page 
Nouvelle astucienne

bonjour,

je cherche de l'aide sur Excel. je souhaiterais faire la roue de la fortune sur Excel mais je ne sais pas comment faire, que ce soit l'assignation de la forme à la macro et la programmation. quelqu'un saurait m'aider ? s'il vous plait. Merci

Publicité
pcastuces
 Posté le 21/02/2016 à 10:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Equipe PC Astuces
Bonjour,

Le sujet a été déplacé par la modération dans le forum Bureautique qui semble plus adéquat.

Vous pouvez continuer la discussion à la suite de ce message.

A bientôt.
ferrand
 Posté le 21/02/2016 à 11:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Définis d'abord un modèle et indiques les règles de fonctionnement. On verra la suite à partir de là.

Cordialement.

thekick
 Posté le 21/02/2016 à 18:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

Voici ci dessous le modèle de ma roue.

Concernant les règles de fonctionnement, je souhaite faire un clic sur la roue ou une combinaison de touches (Cntrl + lettre). La roue devra tourner dans le sens des aiguilles d'une montre et la flèche indiquera le nombre de points gagnés et de façon aléatoire.

ferrand
 Posté le 21/02/2016 à 19:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

11 secteurs ! Peux-tu indiquer la taille de chacun en degrés.

thekick
 Posté le 21/02/2016 à 20:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

la taille de chaque part du camembert est de 2.

ferrand
 Posté le 21/02/2016 à 22:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

2 quoi ?

Sur un cercle, les dimensions se mesurent en degrés (ou grades, ou radians, mais on choisira degré !) et le total fait 360.

thekick
 Posté le 22/02/2016 à 10:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

j'ai modifié ma roue, chaque part mesure 36°

gilbert_rgi
 Posté le 22/02/2016 à 18:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

vite fait pour une idée

http://www.cjoint.com/c/FBwtYHZxPiC



Modifié par gilbert_rgi le 22/02/2016 20:50
Publicité
thekick
 Posté le 23/02/2016 à 17:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

gilbert_rgl pouvez vous m'expliquer étape par étape comment vous avez procédé ? S'il vous plaît merci

gilbert_rgi
 Posté le 23/02/2016 à 20:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

oui

j'ai commencé par faire un graphique comme modèle comme celui qui a été proposé

puis j'ai créé des vecteurs avec des formes libres que j'ai colorés

j'ai sélectionné toutes ces formes et cliqué sur groupé

j'ai renommé ce groupe "roue"

j'ai mis aussi sur la feuille une textbox et un commandbutton

ensuite j'ai supprimé le graph me servant de modèle

le cercle n’étant pas super bien je l'ai encerclé avec une éclipse

Voilà pour la partie graphique

le commandbutton lance la macro "tournroue"

ensuite j'ai fait la macro afin que le groupe tourne 10 fois par périodes de 36°

et que par une fonction de sortie aléatoire allant de 1 à 10 multiplié par 5 , celle ci inscrivant cette valeur dans la textbox à chaque arrêt de la roue

Voilà pour la programmation

il est possible de compliquer un peu plus par exemple pour ne pas avoir deux sorties identiques l'une après l'autre

thekick
 Posté le 24/02/2016 à 19:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

Merci. une question comment fait on pour que la roue tourne plusieurs fois au lieu d'une fois ? et pour que ce soit aléatoire, faut il modifier la programmation de la roue ?

gilbert_rgi
 Posté le 25/02/2016 à 10:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

elle ne tourne pas une fois mais 10 fois avec un démarrage aléatoire

valeur = Int((360 * Rnd) + 1) ' ici valeur prend une valeur aléatoire de 1 à 360

For i = 1 To 100 ' boucle s’effectuant 100 fois
With ActiveSheet.Shapes("roue")
.Rotation = valeur
DoEvents
End With
valeur = valeur + 36 ' incrémentation de valeur de 36 à chaque boucle (soit 3600 / 360 = 10 tours)
Next ' fin de la boucle



Modifié par gilbert_rgi le 25/02/2016 10:05
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
12,99 €Lot de 50 masques chirurgicaux à 12,99 € avec le code 7UDI5PSG
Valable jusqu'au 24 Septembre

Amazon propose le lot de 50 masques chirurgicaux à 12,99 € avec le code promo 7UDI5PSG. La livraison est gratuite pour les membres Prime et gratuite à partir de 25 € pour les autres (si vous prenez 2 lots donc). Pour les moins pressés, vous pouvez les faire venir directement de Chine à 3,17 € le lot de 50 masques. Dans ce cas cela peut prendre plusieurs semaines à arriver.

Pour profiter de l'offre, passez la souris sur le bandeau Message promotionnel et cliquez sur Appliquer à côté des 50 % de remise. Vous pouvez aussi utiliser le code 7UDI5PSG sur la page de paiement. Le prix passera à 12,99 € sur la page de confirmation de commande.


> Voir l'offre
39,99 €Playmobil DeLorean Retour vers le futur 70317 à 39,99 €
Valable jusqu'au 02 Octobre

Amazon fait une promotion sur le Playmobil Delorean Retour vers le futur 70317 qui passe à 39,99 € livré gratuitement au lieu de 51,99 €. Ce PlaySet collector comporte les personnages célèbres Marty McFly et Doc Brown de la trilogie de films cule des années 80 « Retour vers le futur ». La légendaire DeLorean DMC-12 est naturellement équipée de réservoirs de plutonium, d’un convecteur temporel et d’un affichage de la remontée dans le temps sur le tableau de bord. Pour passer en mode avion, les quatre roues peuvent être rentrées à 90 degrés.


> Voir l'offre
54,99 €Microsoft Flight Simulator à 54,99 €
Valable jusqu'au 30 Septembre

Amazon fait une promotion sur le tout nouveau Microsoft Flight Simulator sur PC qui passe à 54,99 € livré gratuitement au lieu de 69,99 €. La boite contient les 10 DVD du jeu.


> Voir l'offre

Sujets relatifs
Changement de format Classeur OpenDocument (.ods) et le format Excel
Excel 2010 extraire des données
Excel : titres colonnes sur toutes les pages
Signification d'une plage en VBA Excel
[VBA Excel et Zoom]
Dates dans Excel
figer les volets dans excel 13
Soucis excel
trier un tableau Excel !
Excel-Report automatique d'une valeur entre 2 pages
Plus de sujets relatifs à Roue de la Fortune Excel
 > Tous les forums > Forum Bureautique