VBA: Objet SpinButton et valeurs extremes

[NewNewbie]

Bonjour à tout le forum,

J'ai un Userform qui contient un objet de type SpinButton, nommé SpinButton1.

La propriété value de ce SpinButton évolue entre les bornes Min et Max définies dynamiquement dans le code.

Ce que je désire effectuer, c'est reboucler la valeur de SpinButton 1 sur les bornes Min ou Max quand on arrive aux limites.
Je m'explique:
Lorsque SpinButton1.value a la valeur Min et que je clique sur la flèche du bas de ce contrôle, alors SpinButton1.value prend automatiquement la valeur Max.
Lorsque SpinButton1.value a la valeur Max et que je clique sur la flèche du haut de ce contrôle, alors SpinButton1.value prend automatiquement la valeur Min.

Le seul moyen que j'ai trouvé pour obtenir ce résultat passe par le code suivant:

'Reboucler de Max vers Min
Private Sub SpinButton1_SpinUp()
With Me.SpinButton1
If .Value = .Max Then
.Value = .Min
End If
End With
End Sub

'Reboucler de Min vers Max
Private Sub SpinButton1_SpinDown()
With Me.SpinButton1
If .Value = .Min Then
.Value = .Max
End If
End With
End Sub


Cela fonctionne mais je me demande si il n'existe pas un paramétrage du contrôle qui permettrait d'éviter ces quelques lignes de codes.

Dans l'attente de vous lire.

NewNewbie

 

[2passage]

Bonjour,

Non pas de moyen à ma connaissance, mais à mon avis, tu te compliques la vis en faisant 2 sub différentes. C'est plutot à gérer dans ta procédure 'spin_change' dans les if..


A+

 

[NewNewbie]

Merci 2passage pour ta réponse,

J'essaierai dans la direction que tu proposes. Mais jai peur que ce soit sans effet car une fois la limite max atteinte, je pense que spin_change est inactif. A vérifier....

A+
NewNewbie.