Déplacer une forme sur la Feuil1
Re X Cellus,
Merci beaucoup ha quel plaisir ça fonctionne plus de bug, ouf.
J'ai remplacer "étourdi" par "Merci X Cellus"
Tu peux aussi utiliser un de tes messages chrono avec le logo d'un étourdi. Si MsgBox te plaît moins.
Réponse : j'ai penser aussi ou j'ai un petit bargraff trouver sur le site coder par l'ami Sébastien que je salut au passage
serai bien tentant.
Je ne suis pas sur d'y arriver, je vais voir demain.
J'ai voulu faire en sorte que le carré bleu du joystick change de couleur quand je clic dessus pour le changement de vitesse.
Rapide=Fond Vert
Lent= Fond Rouge
et ça ne fonctionne pas, tu peux me corriger svp.
Sinon un bargraff simple sans userform c'est possible ???
Merci a toi pour ton aide, bonne soirée, déjà.
Cdlt Ray
Sub Vitesse()
Range("B4") = Not Range("B4")
With Sheets(Sh)
If Range("B4") = -1 Then
Sheets(Sh).Shapes("#Vitesse").Interior.ColorIndex = 4
Else
If Range("B4") = 0 Then
Sheets(Sh).Shapes("#Vitesse").Interior.Color.Index = 3
End If
End If
End With
Rep = IIf([B4] = 0, "Lent", "Rapide")
Sheets(Sh).Shapes("#Vitesse").TextFrame.Characters.Text = Rep
End SubSuite,
Sympa ton message d'alerte.
Inscris cette ligne de code ci-dessous en fin de la macro Vitesse.
Sheets(Sh). Shapes("#Vitesse"). Fill.ForeColor.RGB=RGB(([B4] + 1) * 255, - [B4] * 200, 0)A +
Bonjour a tous, Forum bonjour,
Salut X Cellus,
Merci pour le code, c'est ça fonctionne bien.
Alors bargraff ou message autre que Msgbox ?
Si on peut faire un petit bargraff simple Mais sans UserForm ?
Auquel cas.
Démarre par un appel Macro
Délai 5 à 10 Secondes j'adapterais
Avec affichage en % du temps restant
A la fin de la tempo, on sort pour reprendre la main sur je joystick
Voila mon idée, sinon tant pis
Merci a toi et bon W-end, ici a Rouen, journée pas terrible annoncer.
Cdlt Ray
Bonjour Eliot raymond,
Je peux te proposer un modèle de Bargraff que j'ai réalisé pour un programme.
J'ai gardé le cadre et modifié l'intérieur avec un trio de couleur plus un décompte de 100 à 0.
A toi de voir...pour remplacer le MsgBox. Un clic sur le bouton lance la macro.
A suivre...
Re X Cellus,
Merci pour ta réponse, ça fonctionne.
Alors le bargraff, super, bien l'idée me plait bien. mais serait t'il possible de changer de panneau
par celui du panneau routier tricolore.
1 Une erreur est survenue on déclenche la macro
2 Sur une échelle 100%
3 Donc en insérant 3 formes rondes dans le panneau rouge orange et vert
4 En gros pendant les premiers 40% on allume le feu rouge
5 Ensuite le feu orange pendant 40%
6 Ensuite le feu vert pendant 20% puis on sort de la macro.
C'est une idée comme ça, on conserve le principe de défilement et comme tu a déjà le trio couleur.
Je peux re travailler le panneau si besoin, photo juste pour exemple.
J'aurai svp 2 questions pour infos pour moi et un test.
Mais rien ne presse, plaisir de réalisation avec toi.
Bonne après midi, merci.
Cdlt Ray
A nouveau,
Le feu tricolore est pratique, vu qu'il est très connu de chacun. Par contre mon modèle de Bargraff étant horizontal et défilant.
Il sera moins adaptable à cette forme qui nécessite plus un modèle carré, voire triangulaire et non défilant car sinon on verra moins bien un des feux allumés. Ou alors il faudra agrandir beaucoup trop la forme sur la feuille. Donc moins joli à visualiser.
Sans doute mettre le décompte sous le feu. Avec un fond ou une couleur de police comme la couleur du feu allumé. Pour appuyer le rendu.
Je tenterais un premier essai ce soir.
À suivre...
Bonsoir X Cellus,
Merci pour ta réponse,
Je comprends bien le soucis et le logo que j'ai poster est juste pour l'idée, je peux chercher un logo plus petit.
Vu le nombre que j'ai vu sur le net, il faudrait faire en sorte de pouvoir changer
rapidement de logo, jusqu'à trouver le bon.
Je retourne voir ce que je peux faire.
Bonne soirée a toi et merci.
Cdlt Ray
Bonjour Eliot raymond,
En retour une version 2 du fichier exemple. Ces feux tricolores peuvent être réduit en sélectionnant tout le groupe (Feux) et en utilisant la souris. Pour l'adapter à un format souhaité.
J'ai aussi récupéré un format de feux pouvant soit être vertical ou horizontal. Je vais essayer de l'intégrer dans le 1ier modèle.
Bons tests, bonne continuation.
Bonsoir X Cellus,
Merci beaucoup, ça me plait bien aussi, mais les deux façons de faire sont originals,
J'ai transférer le code dans mon programme fait quelques modifications pour le feu et ça fonctionnne
Si une erreur oublier de sélectionner le MSGBOX est remplacer par le feu.
J'ai fait un petit bilan des soucis rien de bien méchant, j'ai pas pu modifier moi même car ton code pour
moi est un peu compliqué.
Donc j'ai tout noter dans le fichier, si tu a besoin d'infos.
Je te remercie pour l'aide que tu m'apportes en plus j'apprends encore, ça c'est cool pour moi.
Je te souhaite la bonne soirée
PS je t'envoi mon fichier, t'inquiètes, j'ai une copie.
Cdlt Ray
A nouveau,
Ravi que cela plaît bien.
Je télécharge ton dernier fichier et le regarderais beaucoup mieux, sans doute demain.
Bonne soirée aussi.
Ok Xcellus
ca marche on fait comme ça pas de soucis
Merci a toi, a demain donc.
Cdlt Ray
Bonsoir Eliot raymond,
En retour ton fichier commenté en police de couleur rouge. Sous tes interrogations.
Bonne lecture et bons tests.
Bonjour X Cellus,
Merci pour le retour du fichier,
Pour les délimitations de l'écran, Face a l'écran:
Je n'ai pas tout réussi a tester pour que la forme reste a l'endroit voulu par les divers tests.
<<<< A gauche la forme s'arrète bien au bord de l'écran, donc ça c'est Ok
>>>> A droite la forme ne s'arrète pas au bord de l'écran droit
^^^^ La forme s'arrète bien en haut de l'écran, donc ça c'est bon
vvvv La forme ne s'arrète pas en bas de l'écran
J'ai bien suivi le conseil pour la ligne ci-dessous.
Mettre avant le DoEvents sur macros Droite et Bas. If Range("C" & Lig) > 1000 (ou distance à tester) then Range("C" & Lig) = 0.01Après ce réglage, ça devrai être bon pour moi.
Bonne journée a toi et bien des mercis.
Cdlt Ray
Bonjour Eliot Raymond,
Là valeur 1000 était un à titre d'exemple.
Note que tu peux utiliser la hauteur et la largeur de la fenêtre. Elles sont exactement égales à Windows.height et Windows.width car ainsi tu délimites ton cadre de déplacement.
Il faut tenir compte de la hauteur et largeur de la forme.
Tu peux aussi faire stopper la forme au niveau maximum.
A suivre.
Re X Cellus,
Merci pour la réponse,
Là valeur 1000 était un à titre d'exemple.
R) Ok j'avais bien compris, pas de soucis.
Note que tu peux utiliser la hauteur et la largeur de la fenêtre. Elles sont exactement égales à Windows.height et Windows.width car ainsi tu délimites ton cadre de déplacement.
R) Pas tout compris,
Il faut tenir compte de la hauteur et largeur de la forme.
R) Ok bien compris
Tu peux aussi faire stopper la forme au niveau maximum.
R) Ok c'est exactement ce que je veux faire
Par contre, je ne vois pas trop pour le code et surtout ou placer les tests
si j'ai a peu près compris.
Bonne journée a toi,
Cdlt Ray
A nouveau,
Je vais faire le test pour Windows et te le posterais soit le fichier, soit le code.
Afin que tu puisses mieux te rendre compte de la manip.
Dans la matinée.
A nouveau,
Je te reposte le fichier avec une partie du code. Celle de la macro Droite est réalisée.
Essaye de faire pour la macro Bas. Renomme ce fichier ou l'ancien fichier (voire écrase le).
Voir notes sous le Joystick car j'ai rajouté un mini-menu (2 choix possibles).
Bons tests, bonne continuation.
Re X Cellus
Merci je fais ça après déjeuner et je te redis
Merci dur dur, je sais bien,
Bon app a plus tard
Cdlt Ray
Re X Cellus,
voila j'ai modifier non sans mal
Par contre, je n'ai pas trouvé utile le mini menu, je fais peut être une erreur, je verrai bien a l'usage.
Je re test tout ça, je te redis si c'est bon.
A plus tard et merci
Cdlt Ray
A nouveau,
J'ai mis un mini-menu car sait-on jamais, si tu fais l'étourdi...
Et au lieu d'inscrire boucle tu tapes boicle ou si pour stop tu notes syop.
Tu risques de courir loin dans ta classeur pour repêcher la forme.
Enfin, c'est toi qui verras à l'usage.