Feuille suivante

Bonjour,

J'aimerais créer une macro me permettant d'aller d'une feuille à l'autre avec un bouton "Feuille suivante" ou "Feuille précédente".

Merci pour votre aide.

Bonjour

voilà 2 macros qu'il faut que tu lances par un ajout de 2 boutons sur la barre de lancement rapide par exemple

Sub Feuille_Suivante()

ActiveSheet.Next.Select 'Feuille suivante

End Sub

Sub Feuille_Precedente()

ActiveSheet.Previous.Select ' Feuille précédante

End Sub

Bonjour,

Tu peux faire quelque chose comme ceci :

Tu sélectionnes toutes les feuilles de ton classeur (tu cliques sur le premier onglet, enfonce la touche Maj, et va cliquer sur le dernier onglet).

Tu t'es assuré au préalable que 2 cellules adjacentes sur la ligne 1 (qui pourront être toujours affichées à l'écran) ne sont pas utilisées, ce sur toutes les feuilles. Par exemple C1 et D1.

En C1 tu tapes : Alt+0197

En D1 tu tapes : Alt+0198

Tu sélectionnes les 2 cellules, tu centres le texte, tu choisis la police WingDings3, tu augmentes la taille à 16 (ou plus si tu souhaites) [tu peux peaufiner encore la mise en forme comme tu le souhaites]

Une fois fini, tu cliques sur un onglet pour désélectionner l'ensemble. Les cellules C1 et D1 seront ainsi identiques sur chaque feuille.

Dans le module ThisWorkbook, tu places alors le code suivant :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count = 1 And Target.Row = 1 Then
        On Error Resume Next
        Select Case Target.Column
            Case 3
                Sh.Previous.Activate
                If Err.Number <> 0 Then Worksheets(Worksheets.Count).Activate
                Range("A1").Select
            Case 4
                Sh.Next.Activate
                If Err.Number <> 0 Then Worksheets(1).Activate
                Range("A1").Select
        End Select
    End If
End Sub

Ainsi, lorsque tu cliqueras sur C1, tu basculeras sur la feuille précédente, et lorsque tu cliqueras sur D1, tu basculeras sur la feuille suivante.

Avec ce code, si tu cliques sur C1 sur la première feuille, tu bascules sur la dernière, et si tu cliques sur D1 sur la dernière feuille, tu bascules sur la première. Si tu ne le souhaites pas, tu supprimes simplement les deux lignes commençant par If Err.Number...

Cordialement.

Bonjour le forum,

Juste pour la blague : Mferrand je vois du Select dans ton code !!!

Voilà j'ai immortalisé le moment !

Bonne journée a tous

Yes !

Mais là, si tu veux actionner immédiatement une feuille, tu ne le pourrais pas si le curseur est resté sur C1 ou D1 selon le cas. Il faut donc désélectionner systématiquement ces deux cellules en sélectionnant une cellules proches qui assurera qu'elles soient présentes à l'écran pour s'éviter des mouvements supplémentaires.

Le but étant de naviguer dans le classeur, ce que permettent Select et Activate, ce ne sont pas dans ce cas des actions parasites inutiles, mais les seules à accomplir.

Cordialement.

SUPER