Discussion :

[BEBER1212]

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 :

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

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.

[meud007]

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 :

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
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