Bonjour à tous et à toutes,
Je cherche à modifier la position d'une forme (ici un trait rouge) sur une feuille à l'aide d'un SpinButton sur un UserForm.
J'ai défini le min (0) et max (30) du SpinButton, ainsi que sa valeur de base (5) avec un pas de 1. Je n'arrive pas à lier la position d'une forme avec l'incrément ou le décrément du SpinButton.
Il doit donc enlever 1 si je clique sur la flèche gauche du SpinButton ou rajouter 1 si on clique sur la flèche droite.
Je pensais déplacer la forme en faisant [valeur de l'incrément/décrément]*[valeur unitaire du déplacement (par exemple 0.83 pixels ou cm)].
Dites moi si j'ai bon, et comment je peux faire pour faire mon SpinButton correctement.
Merci d'avance !
Bonne fin de journée
Ci-dessous le code que j'ai fait.
Je cherche à modifier la position d'une forme (ici un trait rouge) sur une feuille à l'aide d'un SpinButton sur un UserForm.
J'ai défini le min (0) et max (30) du SpinButton, ainsi que sa valeur de base (5) avec un pas de 1. Je n'arrive pas à lier la position d'une forme avec l'incrément ou le décrément du SpinButton.
Il doit donc enlever 1 si je clique sur la flèche gauche du SpinButton ou rajouter 1 si on clique sur la flèche droite.
Je pensais déplacer la forme en faisant [valeur de l'incrément/décrément]*[valeur unitaire du déplacement (par exemple 0.83 pixels ou cm)].
Dites moi si j'ai bon, et comment je peux faire pour faire mon SpinButton correctement.
Merci d'avance !
Bonne fin de journée
Ci-dessous le code que j'ai fait.
VB:
Private Sub UserForm_Initialize()
With SpinButton1
.Min = 0 'Valeur mini
.Max = 30 'Valeur maxi
.Value = 5
.SmallChange = 1
End With
End Sub
Private Sub SpinButton1_Change()
TextBox1 = SpinButton1.Value
ActiveSheet.Shapes.Range(Array("obj")).Select
Selection.ShapeRange.IncrementTop 0.8823622047 * SpinButton1.Value
End Sub