XL 2019 UserForm SpinButton

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Pieerre69

XLDnaute Junior
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.

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Textbox userform
Réponses
10
Affichages
608
Réponses
17
Affichages
2 K
Retour