Pour le test, ouvrir un nouveau UserForm.
Coller quelque contrôles, n'importe lesquels c'est juste pour visualiser.
Coller un SpinBouton comme sur le modèle.
Coller le code ci-dessous dans le module de l'UF.
Option Explicit
Dim LarUF As Single
Dim HautUF As Single
Dim LeftUF As Single
Dim TopUF As Single
Private Sub UserForm_Activate()
LarUF = Me.Width
HautUF = Me.Height
LeftUF = Me.Left
TopUF = Me.Top
End Sub
Private Sub SpinButton1_SpinDown()
Dim Taux As Single
Taux = (Me.Zoom / 100) * 0.9
Me.Move LeftUF / Taux, TopUF / Taux, LarUF * Taux, HautUF * Taux
Me.Zoom = Me.Zoom - 10
End Sub
Private Sub SpinButton1_SpinUp()
Dim Taux As Single
Taux = (Me.Zoom / 100) * 1.1
Me.Move LeftUF / Taux, TopUF / Taux, LarUF * Taux, HautUF * Taux
Me.Zoom = Me.Zoom + 10
End Sub
Augment/diminue le zoom de 10% à chaque clic.