Trie et déplacement automatique des formes(shapes)// intervertir

Bonjour !

Le titre du sujet est un peu confus mais l'idée en elle même est assez simple!

J'ai réalisés non sans peine mais avec succès mes premières lignes de code pour la première partie de ce problème :

Modifier la couleur du rectangle selon la valeur de l'avis correspondant. (si + => vert, - => rouge....) et lancement de la macro dés modification de la cellule.

Je bloque cependant sur la deuxième partie.

Il faut déplacer(intervertir) la position des rectangles horizontales selon leur valeur (vert (positif) en haut, neutre au milieu et négatif en bas).

Je suis preneur de toute piste, méthode, explication ou aide quelle quelle soit, merci !

10repasbyz3.xlsm (26.27 Ko)

Bonjour,

En matière de Shapes ... tu as toutes les possibilités avec les propriétés Left et Top ...

Bien sûr, tu peux également ajuster la hauteur et la largeur avec Height et Width

A titre d'illustration :

Sub TestPositions()
 MsgBox ActiveSheet.Shapes("Rectangle env").Top
 MsgBox ActiveSheet.Shapes("Rectangle env").Left

 MsgBox ActiveSheet.Shapes("Rectangle env").Height
 MsgBox ActiveSheet.Shapes("Rectangle env").Width
End Sub

En espèrant que cela t'aide

Rechercher des sujets similaires à "trie deplacement automatique formes shapes intervertir"