Associer un code VBA à un bouton créé dynamiquement

Version imprimable

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:

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

Re : Associer un code VBA à un bouton créé dynamiquement

Bonjour Floppy,

Il y a plusieurs erreurs flagrantes dans ton code, tu dois sûrement débuter en VBA.
Voici les corrections que je te propose sur ton code :

Code:

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
46
47
Sub CB_valider_liste_doc_Click() 'Valider
 
Dim BoutonSortie As OLEObject
 
'Création de la feuille Requete
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Requete"
 
 
'Diverses actions
'......
 
 
'Masquer le Userform
UF_Liste_complete.Hide
 
 
'Création 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

Bonjour,

Une piste en utilisant une feuille modèle cachée.

1) Créez une feuille et nommez la "___modele"
2) Créez, à la main, un CommanButton1
3) Dans la fenêtre de code de la feuille, copiez le code suivant
Code:

1 2 3 4 5 6 7 Private Sub CommandButton1() Sheets("User guide").Select Application.DisplayAlerts = False Sheets("Requete").Delete Application.DisplayAlerts = True UF_Menu_principal.Show End Sub
4) Masquez la feuille

5) Changez le code de votre procédure CB_valider_liste_doc_Click par le code suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub CB_valider_liste_doc_Click() 'valider '### Constante à adapter ### Const MON_MODELE As String = "___modele" '########################### 'Creation de la feuille Requete Dim S As Worksheet '--- Set S = Sheets(MON_MODELE) S.Visible = xlSheetVisible S.Copy After:=Sheets(Sheets.Count) S.Visible = xlSheetVeryHidden '--- Sheets(Sheets.Count).Name = "Requete" 'Diverses actions '... End Sub

07/02/2014, 15h38
Floppy69

Merci, je regarde ça et je vous tiens informé.

Bonjour,

Avec un bouton "Shape" moins lourd à gérer pour ce que tu veux faire :

Code:

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
 
Sub CB_valider_liste_doc_Click() 'valider
 
    Dim Fe As Worksheet
    Dim BoutonSortie As Shape
 
    'Creation de la feuille Requete
    Set Fe = Worksheets.Add(, Sheets(Sheets.Count))
    Fe.Name = "Requete"
 
 
    'Diverses actions
    '...
 
 
    'Masquer le Userform
    UF_Liste_complete.Hide
 
 
    'Creation du bouton Sortie
    Set BoutonSortie = Fe.Shapes.AddFormControl(xlButtonControl, 10, 10, 100, 20)
 
    With BoutonSortie
 
        .OnAction = "BoutonSortie" 'appel de la macro...
        .TextFrame.Characters.Text = "Supprimer la feuille"
 
    End With
 
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

Hervé.

10/02/2014, 10h12
Floppy69

Bonjour Hervé,
ça marche impec', merci beaucoup.

Désolé PMO2017, je n'ai pas eu le temps d'essayer ce weekend.