Se déplacer dans un multipage avec un SpinButton

Bonsoir

Je recherche le code pour me déplacer dans les onglets de mon multipage a l'aide d'un SpinButton

j'ai fait ceci apparemment sa coince?

Private Sub SpinButton1_Change()
Select Case MultiPage1.Value
    Case 0: MultiPage1.Value = 1
    Case 1: MultiPage1.Value = 0
    Case 2: MultiPage1.Value = 3
    Case 3: MultiPage1.Value = 4
    Case 4: MultiPage1.Value = 5
End Select

End Sub

Je vous remercie d'avance

Cordialement

Max

Bonjour,

ton code ne me semble pas trop logique .. tu teste la valeur de :

Select Case MultiPage1.Value

pour modifier cette même valeur :

    Case 0: MultiPage1.Value = 1
    Case 1: MultiPage1.Value = 0
    Case 2: MultiPage1.Value = 3
    Case 3: MultiPage1.Value = 4
    Case 4: MultiPage1.Value = 5

ne pense tu pas que tu devrais plutôt tester la "valeur" de ton spinbutton ?

Bonjour,

Private Sub SpinButton1_Change()
    Dim p%
    p = SpinButton1.Value
    If p = -1 Then p = 4
    If p = 5 Then p = 0
    MultiPage1.Value = p
    SpinButton1.Value = p
End Sub

Mettre le Min à -1 et le Max à 5.

Cordialement.

Bonjour MFerrand

Je te remercie beaucoup Nickel

Bonne journée

Max

De rien !

J'espère que tu apprécies le bouclage pour tourner sans fin indifféremment dans les deux sens.

Bon dimanche.