Affecter une macro à un bouton

Bonjour à tous,

Le sujet est mal nommé, affecter une macro à un bouton, rien de plus facile, mais je ne sais pas comment formuler le sujet ...

J'explique :

Quand j'ouvre une feuille à l'aide d'un formulaire, je veux que dans cette nouvelle feuille il y ait un bouton en haut à gauche marqué "Fermeture" pour revenir à la page "Menu".

Je sais faire tout ça sauf que quand j'affecte la macro de fermeture au bouton, celle-ci ne reste pas enregistrée

Je vous donne un exemple de mon fichier, une page avec les menus. Quand je clique sur le bouton "Résultats", j'ouvre un nouvel onglet avec mes données recherchées. Je voudrais que le bouton en haut à gauche ferme la feuille et revienne au Menu.

Ça doit-être tout bête, mais je n'y arrive pas.

Un coup de main serait le bien-venu.

Très bonne fin de journée à tous, Bernard.

Bonjour toutes et tous

et en ajoutant ceci:

Application.ScreenUpdating = false
Sheets("Feuil1").Activate
Sheets("Feuil1").Range("A1").select
Application.ScreenUpdating = True

crdlt,

André

Bonsoir André,

En l'ajoutant où ???

Merci à toi.

Re,

@tester, dans ta macro de ton bouton ouverture avant le end sub

Sub Ouverture()
'
' Ouverture Macro
'

'
On Error GoTo plouf
    Sheets.Add After:=Sheets(Sheets.Count)
    Rows("1:1").Select
    Selection.RowHeight = 75
    Range("A1").Select
    ActiveSheet.Pictures.Insert( _
        "C:\Users\BD\Desktop\Dossier Département\Blasons\Button.jpg").Select
  '  Range("A1").Select
Application.ScreenUpdating = false
Sheets("Feuil1").Activate
Sheets("Feuil1").Range("A1").select
Application.ScreenUpdating = True

plouf:    Exit Sub
End Sub

bien ça m'ouvre en arrière plan une nouvelle feuille avec le bouton dessus mais je veux que ça ouvre la nouvelle feuille (avec le bouton) et qu'une fois les informations lues, on clique sur le bouton qui ferme la feuille et revient sur la feuille une ...

Je ne sais pas si je m'exprime bien ? pardon ...

re,

un début si j'ai un peu compris (tu s bien expliqué mais mon cerveau commence à foirer à cette heure-ci lol)

call fait appel à une autre macro (Menu) qui créera le bouton, reste plus qu'à régler le tout

merci au codeur Pierrejean pour le code d'ajout bouton

Sub Ouverture()
'
' Ouverture Macro
'

'
On Error GoTo plouf
    Sheets.Add After:=Sheets(Sheets.Count)
    Rows("1:1").Select
    Selection.RowHeight = 75
    Range("A1").Select
    ActiveSheet.Pictures.Insert( _
        "C:\Users\BD\Desktop\Dossier Département\Blasons\Button.jpg").Select
    Range("A1").Select

    Call Menu
      '  Range("A1").Select

plouf:    Exit Sub
End Sub

Sub Menu()
On Error GoTo plouf
ActiveSheet.Buttons.Add(279, 60.75, 160.5, 62.25).Select
    Selection.OnAction = "Ouverture"  ' à voir pour cette selection
    Selection.Characters.Text = "Btn MENU"
    With Selection.Characters(Start:=1, Length:=13).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With

       With Sheets("Feuil1")
Application.ScreenUpdating = False
Sheets("Feuil1").Activate
Sheets("Feuil1").Range("A1").Select
Application.ScreenUpdating = True
End With
plouf:    Exit Sub
End Sub

Merci André, je suis comme toi, je fatigue vite (l'âge sans doute ...)

Je reprendrai tout ça au calme demain matin et je te donne le résultat .

Très bonne soirée à tous, les yeux fatiguent ...

Bernard.

Bonjour André, et à tous.

Ce n'est pas exactement ce que je désire faire. Mon code de départ me va bien, c'est juste l'affectation d'une fonction fermer et retour à la page d'accueil (Menu) au bouton que j'ai créé en haut de la nouvelle feuille...

Sub Ouverture()

' Ouverture Macro

Sheets.Add After:=Sheets(Sheets.Count)

Rows("1:1").Select

Selection.RowHeight = 75

Range("A1").Select

ActiveSheet.Pictures.Insert( _

"C:\Users\BD\Desktop\Dossier Département\Blasons\Button.jpg").Select

Range("A1").Select

End Sub

Il me faut juste trouver le moyen de refermer cette nouvelle feuille à l'aide du bouton créé pour le retour au Menu.

Je suis compliqué, mais je butte sur cette fonction.

Bonne journée à tous. Bernard.