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
|
Public BtnRetour As Object
Sub EffacerBoutons()
Set BtnRetour = Sheets(1).Buttons
MsgBox "Bonjour"
'BtnRetour.Delete
End Sub
Sub Test()
MsgBox "Ceci est un Test"
End Sub
Sub CreerBoutons()
Set BtnRetour = Feuil1.Buttons.Add(Feuil1.Cells(2, 2).Left, Feuil1.Cells(2, 2).Top, 288.75, 131.25)
BtnRetour.OnAction = "EffacerBoutons"
BtnRetour.Font.ColorIndex = 3
BtnRetour.Height = 15
BtnRetour.Width = 60
BtnRetour.Caption = "Valider"
Set BtnRetour = Feuil1.Buttons.Add(Feuil1.Cells(2, 6).Left, Feuil1.Cells(2, 6).Top, 288.75, 131.25)
BtnRetour.OnAction = "Test"
BtnRetour.Font.ColorIndex = 3
BtnRetour.Height = 15
BtnRetour.Width = 60
BtnRetour.Caption = "Cliquez-moi"
End Sub |
Partager