EXCEL 2007: Deplacer un objet en fonction de la valeur d'une cel Fermé

Question

Bonjour à tous, 

J'ai parcouru le forum à la recherche d'une solution à mon problème, et je n'ai rien trouvé. 

Alors le voici: 
J'ai un tableau Excel dans lequel une cellule (A1) calcule un pourcentage. 
Sur la même feuille, j'ai une image placée le long d'un trait en diagonal. Je souhaiterais que cette image se déplace le long de ce trait (qui sera une échelle de 1 à 100) en fonction de la valeur de la cellule A1 
Savez-vous si c'est possible ? 
Et si oui, comment ? 

Par avance merci de votre aide.


Configuration: Windows 7 / Chrome 23.0.1271.97

Bruce Willix · Answer

Vous préférez pas faire un graphe horizontal qui se mette à jour tout seul plutôt que passer par un dessin ou il faudra régler la position du curseur via du code ?

sidjila · Answer

Merci pour votre réponse.
Disons que c'est un outils de communication.
J'ai essayé de simplifier au maximum le problème, car en fait, ce ne sera pas un trait, mais une montagne que graviront 2 "images" (des alpinistes). Chaque image se déplacera de son côté de versant, pour se rejoindre tout en haut lorsque la valeur de leur cellule respective aura atteint 100%.

Voilà la problématique complète.

Si ce n'est pas possible, je me rabatterai peut-être vers une autre solution, mais je ne sais pas encore laquelle.

Merci

My_B · Answer

Bonjour, 
dommage que personne n'ai trouvé de réponse à ce sujet, j'ai le même problème..

Moi j'aimerais automatiser la position d'un curseur sur une étiquette énergétique (semblable à celles des DPE, ou des indications environnementales de l'électroménager par exemple)

Je ranime donc cette conversation, au cas où...!

Merci

choupichon · Answer

Je crois que ceci pourrait aider

https://www.generation-nt.com/reponses/vba-comment-positionner-bouton-entraide-396668.html

En gros, on utilise la fonction qui se lance à chaque changement de cellule.


Au cas où le lien disparaisse je simplifies le code :

'--------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Button.Top = Target.Top
Button.Left = Target.Offset(, 1).Left


End Sub
'-------------------------------

A vérifier si c'est OK.

My_B · Answer

j'ai créé un fichier test pour qu'on comprenne mieux ma démarche, et que je comprenne mieux vos explications...

	https://www.cjoint.com/c/DHfl2gN8sQj

L'image que je souhaite déplacer s'appelle "AutoShape 10" que je souhaite déplacer en fonction de la valeur en A2, et "AutoShape 11" que je souhaite déplacer en fonction de F2

Merci