CommandBar sous VBA
RG33
Messages postés
3
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
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
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
Configuration: Windows XP Internet Explorer 6.0
