Macro pour changer d'onglet

Bonjour,

j'ai un classeur avec 31 onglets nommé de 1 à 31, je voudrai insérer 2 macros affecter à des boutons:

la 1ere permettant de passer à l'onglet suivant (ex: si on est sur l'onglet 1 en cliquant sur le bouton on passe au2, si l'on est au 2 on passe au 3...)

et la 2eme a l'inverse passer a l'onglet précedent(ex: si on est sur l'onglet 3 on passe sur le 2...)

Merci pour vos réponse.

tu peux affecter ce code à tes boutons

Private Sub btnSuivant_Click()
    Sheets(ActiveSheet.Index + 1).Activate
End Sub

Private Sub btnPrecedent_Click()
    Sheets(ActiveSheet.Index - 1).Activate
End Sub

Bonjour

Bonjour Math

On recycle

Bonjour à tous,

Je dépoussière un vieux post ...

En recherchant le même type de code, à savoir, passer d'un onglet à un autre, j'ai beau en essayer plusieurs trouvés dans ce site ou sur la toile, il m'affiche toujours une erreur.

le code entré :

Sub PageSuivante()
Debug.Print ActiveSheet.Index
  If ActiveSheet.Index < Sheets.Count Then
    Sheets(ActiveSheet.Index + 1).Select
  End If
End Sub

Sub PagePrecedente()
  If ActiveSheet.Index > 1 Then
    Sheets(ActiveSheet.Index - 1).Select
  End If
End Sub

Message d'erreur : "la méthode select de la classe worksheet a échouée"

Sub PageSuivante()
Debug.Print ActiveSheet.Index
  If ActiveSheet.Index < Sheets.Count Then
    [color=#FFFF00]Sheets(ActiveSheet.Index + 1).Select[/color]
  End If
End Sub

Quelle est la source de cette erreur ?

Merci !

Bon eh bien plus de problème

Apparemment, le changement de macro attribué au bouton n'avait pas été pris en compte.

Après redémarrage du fichier, niquel ...