Discussion :

[jean30]

Bonjour,
J'ai une feuille qui est automatiquement supprimée à la fermeture du classeur, ceci est normal.
Mon problème c'est que cette feuille, lorsqu'elle est recrée, je perd la macro et le bouton qui lui est associé.
Comment remettre automatiquement le bouton pour lancer la macro avec sa touche de raccourci ayant pour nom : formulMat lors de l'affichage de la feuille.
En vous remerciant.

[Menhir]

J'ai une feuille qui est automatiquement supprimée à la fermeture du classeur, ceci est normal.

J'espère que ce fichier est à ton usage exclusif et qu'il n'y a pas de saisie dans la feuille en question.
Sinon, cette façon de procéder est une mauvaise idée.

Mon problème c'est que cette feuille, lorsquelle est ré-affichée, je perd la macro et le bouton qui lui est associé.

Comment est-elle "réaffichée" ? Si c'est par macro, peux-tu montrer le code correspondant ?
Pour ce qui est de la macro "du bouton", tu peux l'enregistrer dans un module plutôt que dans la Worksheet.

Comment remettre automatiquement le bouton pour lancer la macro avec sa touche de raccourci ayant pour nom : formulMat lors de l'affichage de la feuille.

Créer un bouton, c'est une Shape donc Shapes.AddShape(msoShapeRectangle).
https://docs.microsoft.com/fr-fr/off...hapes.addshape

Pour lui lier une macro, utilise la propriété OnAction de cette nouvelle Shape.
https://docs.microsoft.com/fr-fr/off...shape.onaction

[Theze]

Bonjour,

Comment peut elle être ré-affichée si elle est supprimer à la fermeture ?

Si la feuille est créée à l'ouverture, tu peux créer un bouton qui appelle une procédure stockée dans un module standard avec OnAction !
Un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub Test()
 
    Dim Btn As Shape
 
    'supprime au cas où il existe déjà...
    On Error Resume Next
    ActiveSheet.Shapes("MonBouton").Delete
    On Error GoTo 0
 
    'puis le re crée
    Set Btn = ActiveSheet.Shapes.AddFormControl(xlButtonControl, 100, 100, 200, 30)
 
    'paramétrages !
    With Btn
 
        .Name = "MonBouton"
        .TextFrame.Characters.Text = "Titre de mon joli bouton"
        .OnAction = "MaMacro"
 
    End With
 
End Sub
 
Sub MaMacro()
 
    MsgBox "Bonjour, vous avez cliqué sur votre joli bouton !"
 
End Sub

[jean30]

Bonjour Menhir, Theze,
Mes remerciements pour le code gracieusement donné.