Bonjour à tous,

J'ai tenté de suivre des exemple de plusieurs forums et aussi de la réponse à la FAQ mais sans succès: http://excel.developpez.com/faq/?pag...tCommandButton

Context : Dans mon code, lorsque je clic sur le bouton "valider" de mon userform, je créé une feuille que je renomme "Requete", je fais différentes actions dessus en fonction des infos saisies dans le userform, je fais disparaitre le userform, et j'insère un bouton "Sortie" qui permettra de supprimer la feuille requête et de faire réapparaître un userform.
Et ma dernière étape ne fonctionne pas, mon bouton apparait, mais impossible d'y associer un code lors du clic.

Si vous avez des pistes ou des idées, n'hésitez pas.
Merci par avance pour votre aide.

Voilà ce que j'ai jusqu'à maintenant:

Code vba : 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub CB_valider_liste_doc_Click() 'valider

Dim BoutonSortie As OLEObject

'Creation de la feuille Requete
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Requete"


'Diverses actions
'...


'Masquer le Userform
UF_Liste_complete.Hide


'Creation du bouton Sortie
Set BoutonSortie = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Commandbutton.1")
With BoutonSortie
    .Left = 1
    .Top = 1
    .Width = 72
    .Height = 24
    .Name = "BoutonSortie"
    .Object.Caption = "Sortie"
End With


'Affectation de la macro au bouton
'Partie manquante à compléter

End Sub

'Macro à associer

Sub BoutonSortie()

    Sheets("User guide").Select
    Application.DisplayAlerts = False
    Sheets("Requete").Delete
    Application.DisplayAlerts = True
    UF_Menu_principal.Show

End Sub