VBA pour changer de feuille en un clic

J'ai un soucis ; il me faut des flèches en haut de chaque feuille, une flèche pour aller à la feuille suivante et l'autre pour aller à la feuille précédente. Comment fait-on pour créer ces flèches et ensuite les avoir sur toutes les feuilles car j'ai 320 feuilles.

Merci d'avance.

Bonjour

pour la navigation "Suivant":

ActiveSheet.Next.Select

pour la navigation "Précédente":

ActiveSheet.Previous.Select

tu affectes ces macros à tes flèches

si tu veux reproduire ces flèches affectées des macro tu boucles sur tes 320 feuilles

cordialement

320 onglets !!!!!!!!! non tu déconnes là

voici un premier exemple

255sommaire.xlsm (27.30 Ko)

autre exemple (pas de moi mais j'ai trouvé cela sympa !)

Bonjour,

voici une possibilité

Sub Ajout_SpinButton_sur_Feuille()
    Dim Obj As OLEObject
    Dim laMacro As String
    Dim i As Integer, x As Integer

     For i = 1 To Worksheets.Count
        Worksheets(i).Activate
        'Ajout CommandButton dans la feuille
        Set Obj = ActiveSheet.OLEObjects.Add("Forms.ScrollBar.1")
        With Obj
           .Left = 10 'position horizontale
           .Top = 2 'position verticale
           .Width = 30 'largeur
           .Height = 12 'hauteur
           .Object.BackColor = RGB(255, 100, 100) 'Couleur de fond
           .Object.Min = 1
           .Object.Max = Worksheets.Count
           .Object.Value = ActiveSheet.Index
        End With

        'Paramètres pour la création de la macro:
        laMacro = "Sub ScrollBar1_Change()" & vbCrLf
        laMacro = laMacro & "Sheets(ScrollBar1.value).Activate" & vbCrLf
        laMacro = laMacro & "End Sub"

        With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
           x = .CountOfLines + 1
           .insertlines x, laMacro
        End With
    Next i
End Sub

J'ai déjà fait les flèches et les macros fonctionnent. Il me faut à présent une solution pour les mettre sur tous les onglets.

Merci.

re,

à tester,

Rechercher des sujets similaires à "vba changer feuille clic"