Bouton avec code

Bonjour à tous,

J'ai un bouton dans un onglet d'excel qui m'ouvre un onglet existant et me crée un bouton dessus.
Je voudrais savoir comment faire pour ajouter du code sur ce deuxième bouton qui me permettra d'ouvrir un autre onglet existant.
J'ai donc ce code qui après click sur le premier bouton, fait une recherche et, si elle est fructueuse, m'ouvre un onglet existant et crée un bouton dessus.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Chercher_Click() On Error Resume Next   Sheets(Range("B19").Value).Visible = 1 If Err <> 0 Then MsgBox "Pas d'invité avec ce nom dans la liste. Faites une autre recherche. Attention à l'orthographe et aux accents.", , "Message Erreur" End If Sheets(Range("B19").Value).Activate ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ , DisplayAsIcon:=False, Left:=183.75, Top:=119.25, Width:=169.5, _ Height:=79.5).Select ActiveSheet.Shapes("CommandButton1").Select   End Sub

---

Je voudrais donc ajouter du code sur ce bouton, style :
Sheets("Modification").Activate

mais je ne sais pas comment l'appliquer à ce bouton.

Je demande donc votre aide. Merci.

Je ne comprend pas pourquoi la propriété OnAction ne marche pas sur un bouton OleObject (Barre d'outils Controles), mais ça marche avec un bouton de la barre d'outil Formulaire (ou l'inverse)

Je crois que les parametres de Add sont (Top, Left, Width, Heigh). A vérifier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Sub test()   Dim monbouton As Object     Set monbouton = ActiveSheet.Buttons.Add(300.75, 23.25, 72, 72) With monbouton .Caption = "Test" .Name = "MonBouton" .OnAction = "test2" End With End Sub   Public Sub test2() MsgBox "ok" End Sub

---