Merci beaucoup Law et Hervé
Je prend celui-ci pour nombre de feuille variable
Private Sub SpinButton1_SpinDown()
If ActiveSheet.Index = 1 Then
Sheets(Sheets.Count).Activate
Label1 = ActiveSheet.Name
Else
ActiveSheet.Previous.Select
Label1 = ActiveSheet.Name
End If
End Sub
Private Sub SpinButton1_SpinUp()
If ActiveSheet.Index = Sheets.Count Then
Sheets(1).Activate
Label1 = ActiveSheet.Name
Else
ActiveSheet.Next.Select
Label1 = ActiveSheet.Name
End If
End Sub
A+
Temjeh
Temjeh