Bonsoir,
ci joint votre fichier avec le PacMan jaune qui devient vert s'il entre en contact avec un fantôme. Cette couleur est issue d'un RGB !
Mais comment ai-je fait ? En me posant les bonnes questions
En fait j'ai "dessiné" un PacMan avec des formes "Shapes" que j'ai groupé, car je connais le code VBA pour en choisir la couleur avec le RGB :
ActiveSheet.Shapes("PacMan").Fill.ForeColor.RGB = RGB(255, 0, 0)
Regardez également la simplicité du code en appelant directement le nom du shape sans passer par Range ni Array !
Encore plus simple est d'attribuer le shape à une variable avec SET et à ce moment là c'est encore plus court :
Dim PacMan as Object
Set PacMan = ActiveSheet.Shapes("PacMan")
PacMan.Fill.ForeColor.RGB = RGB(255, 0, 0)
Votre fichier avec ce nouveau PacMan :
Pour la rotation horizontal il y a beaucoup de code à changer...
@ bientôt
LouReeD