Macro pour répéter une action

Bonjour,

Sur mon projet j'ai besoin de rajouter un bouton sur plusieurs feuilles (une centaine) qui ramenerait à la première feuille du classeur.

Vu qu'il y en a beaucoup j'aimerai une macro qui me facilite la tâche, pour éviter de perdre du temps bêtement.

Pourrais-je avoir un exemple simple de code permettant de faire ceci ?

Vu que je débute dans les macros, je réclame de l'aide pour arriver à ce que je veux.

Cordialement.

Bonsoir,

Pas besoin de macro pour çà, tu clique sur la flèche tout à gauche de la barre onglets.

Ou tu clique droit sur la même flèche pour avoir une liste des onglets.

Claude.

Salut le forum

Claude, ta solution est bonne mais pas avec le mode plein écran.

Un bout de code pour t'amuser, ajout d'un Command Button sur la feuille active

Sub AjoutCommandButton_Feuille()
    Dim Ws As Worksheet
    Dim Obj As OLEObject
    Dim laMacro As String
    Dim x As Integer

    Set Ws = ActiveSheet

    'Ajout CommandButton dans la feuille
    Set Obj = Ws.OLEObjects.Add("Forms.CommandButton.1")
    With Obj
        .Left = 50 'position horizontale
        .Top = 50 'position verticale
        .Width = 140 'largeur
        .Height = 30 'hauteur
        .Object.BackColor = RGB(235, 235, 200) 'Couleur de fond
        .Object.Caption = "Supprimer données feuille"
    End With

    'Paramètres pour la création de la macro:
    laMacro = "Sub CommandButton1_Click()" & vbCrLf
    laMacro = laMacro & "Sheets(""Feuil1"").Select" & vbCrLf
    laMacro = laMacro & "End Sub"

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

Mytå