Bouton feuille suivant et bug

[bomagicmusic]

Bonjour,

J'ai crée des boutons dans la barre d'outil qui permettent d'aller d'une feuille à l'autre (voir le code ci-dessous). Quelqu'un connaitrait il le code a ajouter pour qu'à la premiere et la derniere feuille, ça ne bug pas?

Merci

Sub FeuilleSuivante()
If ActiveSheet.Index > 1 Then
Sheets(ActiveSheet.Index + 1).Activate
End If
End Sub

Sub FeuillePrecedente()
If ActiveSheet.Index < Worksheets.Count Then
Sheets(ActiveSheet.Index - 1).Activate
End If
End Sub

 

[pierrejean]

Re : Bouton feuille suivant et bug

bonjour bomagicmusic

a 1ere vue il y a inversion des conditions

Sub FeuilleSuivante()
If ActiveSheet.Index < Worksheets.Count  Then
Sheets(ActiveSheet.Index + 1).Activate
End If
End Sub

Sub FeuillePrecedente()
If ActiveSheet.Index >1 Then
Sheets(ActiveSheet.Index - 1).Activate
End If
End Sub

 

[bomagicmusic]

Re : Bouton feuille suivant et bug

Merci Pierre-Jean de ta perspicacité, ça marche

 

[ROGER2327]

Re : Bouton feuille suivant et bug

Bonjour à tous

On a aussi :

Sub FeuilleSuivante()
[COLOR="SeaGreen"]' Passe à la feuille suivante et boucle en fin de cycle.[/COLOR]
    Sheets(ActiveSheet.Index + 1 + Worksheets.Count * (ActiveSheet.Index = Worksheets.Count)).Activate
End Sub

Sub FeuillePrecedente()
[COLOR="SeaGreen"]' Passe à la feuille précédente et boucle en fin de cycle.[/COLOR]
    Sheets(ActiveSheet.Index - 1 - Worksheets.Count * (ActiveSheet.Index = 1)).Activate
End Sub

qui bouclent en fin de cycle.​

Bonne journée !
ROGER2327

 

[bomagicmusic]

Re : Bouton feuille suivant et bug

Merci, je vais essayer ça aussi