Feuille suivante ou precedente avec SpinButton

[Mimi]

Bonjour,
Comment faire avec un SpinButton pour passer à la feuille suivante ou précédente.
D'avance je vous remercie
Michel

 

[Paf]

Re : Feuille suivante ou precedente avec SpinButton

bonjour,

une solution
dans le code de chaque feuille :

Private Sub Worksheet_Activate()
    SpinButton1.Value = ActiveSheet.Index
End Sub

Private Sub SpinButton1_Change()

If SpinButton1.Value > 0 And SpinButton1.Value <= Worksheets.Count Then
    Worksheets(SpinButton1.Value).Activate
Else
    MsgBox "N° de feuille hors limites  :" & SpinButton1.Value
End If

End Sub

chaque feuille doit avoir un spinbutton ( de type contrôle et pas formulaire) nommé SpinButton1


A +

 

[Mimi]

Re : Feuille suivante ou precedente avec SpinButton

Bonsoir Paf,
Merci beaucoup pour ton aide sa marche super.
Une autre petite question : j'ai 13 feuilles, existe t'il un code pour arrêter à la 12 ème et ne pas aller à la 13ème
Encore merci
Michel

 

[Paf]

Re : Feuille suivante ou precedente avec SpinButton

Re,

Dans chaque feuille on attribue la valeur de l'indice de la feuille au Spinbutton.
A chaque action sur le spinbutton on augmente , ou on diminue, cet indice en vérifiant qu'on ne dépasse pas les limites des indices de feuille. Puis on active la feuille portant ce nouvel indice.

dans le code suivant

If SpinButton1.Value > 0 And SpinButton1.Value <= Worksheets.Count Then

les limites imposées au SpinButton1 sont 1 (>0) et Nombre de feuille ( <= Worksheets.Count)

Pour se limiter à l'avant dernière feuille modifier la limite supérieure : < Worksheets.Count

Bonne suite

 

[Mimi]

Re : Feuille suivante ou precedente avec SpinButton

Bonjour Paf,
Un grand merci pour ton aide
@ plus
Michel