CommandBar sous VBA

RG33 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je commence le VBA et je suis face à un problème.

Dans mon fichier Excel 2003, une macro crée des onglets et les rempli et je voudrais que sur chaque onglet figure un bouton sur lequel affecter une macro.

Mon code est le suivant mais ne fonctionne pas, quelqu'un pourrait-il me le décoder

Sub Bouton()
'
' Bouton Macro
' Création du bouton
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=5.25, Top:=46.5, Width:=48.75, Height:= _
39).Select
Selection.Locked = False
Selection.Name = "Retour"
Selection.Caption = "Retour"
End Sub

Private Sub Retour_Click()
ActiveSheets.Visible = False
Sheets("Requêtes").Select
End Sub

Merci d'avance

1 réponse

lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
bonjour,
remplacer la ligne
    'ActiveSheets.Visible = False

par
    Me.Visible = xlSheetHidden

A+
0