Sheet Suivant Precedent

[apdf]

Bonjour

J'ai une Soixantaine de feuilles, je voudrais me rendre d'une feuille a une autre via un bouton Suivant / Précédent j'ai fait comme code ceci:

Public s As Worksheet 'déclare la variable s
Sub Feuille_Suivante()
ActiveSheet.Next.Select 'Feuille suivante
End Sub
Sub Feuille_Precedente()
ActiveSheet.Previous.Select ' Feuille précédente
End Sub

Que je doit mettre a chaque feuille

Je recherche code que je puisse me servir pour toute les feuilles

Merci d'avance

 

[apdf]

Re : Sheet Suivant Precedent

Re,

Pour ce a qui sa peut intéresser j'ai mis ce code:

Sub  GoForth() 'Vers l'avant
    MoveSheet (1)
End Sub
 
Sub  GoBack() 'Vers l'arrierre
    MoveSheet (-1)
End Sub
 
Sub MoveSheet(iMove As Integer)
    Dim iSheetNum As Integer
     
    iSheetNum = ActiveSheet.Index
    On Error Resume Next
    Do
        Err.Clear
        iSheetNum = iSheetNum + iMove
        If iMove > 0 Then
            If iSheetNum > Sheets.Count Then iSheetNum = 1
        Else
            If iSheetNum < 1 Then iSheetNum = Sheets.Count
        End If
        Sheets(iSheetNum).Select
    Loop Until Err.Number = 0
     
End Sub

 

[phlaurent55]

Re : Sheet Suivant Precedent

Bonjour Max,

avec ceci: (à mettre dans ThisWorkBook )

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Name = "Feuil1" Then Exit Sub
ActiveSheet.Previous.Select
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveSheet.Name = "Feuil3" Then Exit Sub
ActiveSheet.Next.Select
End Sub

un double-clic pour la feuille précédente
un clic-droit pour la feuille suivante

ou alors avec ceci pour pouvoir se passer des noms de la première et dernière feuille

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Index = 1 Then Exit Sub
ActiveSheet.Previous.Select
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveSheet.Index = Sheets.Count Then Exit Sub
ActiveSheet.Next.Select
End Sub

à+
Philippe

 

[apdf]

Re : Sheet Suivant Precedent

Bonjour Philippe

Je te remercie beaucoup et te souhaite une bonne journée