Discussion :

[maxval18]

Bonjour,

J'ai une quarantaine de feuille, je voudrais me rendre d'une feuille a une autre via un bouton Suivant / Précédent.

j'ai fait comme code ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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

Cordialement

max

[fring]

Bonjour,

Je ne comprend pas la question, le code est valable pour toutes les feuilles vu qu'il fait référence à la feuille active. Tu les places où tes deux boutons ?

Par contre, pour éviter un plantage s'il n'y a plus de feuille précédente ou suivante, fais comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Feuille_Suivante()
If ActiveSheet.Index < Sheets.Count Then ActiveSheet.Next.Select 'Feuille suivante
End Sub
 
Sub Feuille_Precedente()
If ActiveSheet.Index > 1 Then ActiveSheet.Previous.Select ' Feuille précédente
End Sub

[maxval18]

Bonjour fring,

Je te remercie et te souhaite une bonne journée

@+

Max