bouton dans multipage

[gilbert_RGI]

Bonjour,

pouvez-vous m'aider
je voudrai mettre un code pour un bouton dans un multipage

voir le fichier test 😉

 

[MJ13]

Re : bouton dans multipage

Bonjour Gilbert


Je ne surais pas te répondre (cela dépasse mes compétences, j'ai bien essayé mais sans résultat 😉).

Mais ici

https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/

et le lien du post

https://www.excel-downloads.com/threads/ajout-de-code-pendant-lexecution.12269/


Notre ami MichelXLD a fourni un fichier intéressant (fais une recherche avec multipage). J'ai pas trop le temps de tout déchiffrer 🙂.

 

[gilbert_RGI]

Re : bouton dans multipage

Merci j'ai déjà consulté ce lien
il y a la solution pour un nouveau classeur avec un nouveau bouton mais pas pour un userform avec un multipage

merci quand même

si des fois un XLDsien avait une idée sur la question

 

[Guest]

Re : bouton dans multipage

Bonjour,

Dans un module général après avoir coché la référence à 'Microsoft visual basic For Application Extensitbility X.y'

[COLOR=BLUE]Sub[/COLOR] AjoutBouton()
    [COLOR=BLUE]Dim[/COLOR] Bouton [COLOR=BLUE]As[/COLOR] CommandButton
    [COLOR=BLUE]Dim[/COLOR] Code [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]String[/COLOR]
    [COLOR=BLUE]Dim[/COLOR] VBC [COLOR=BLUE]As[/COLOR] VBComponent
    [COLOR=BLUE]Set[/COLOR] VBC = ActiveWorkbook.VBProject.VBComponents([i]"UserForm1"[/i])
    [COLOR=BLUE]With[/COLOR] VBC
        [COLOR=BLUE]Set[/COLOR] Bouton = .Designer.Controls([i]"MultiPage1"[/i]).Pages([i]"Page1"[/i]).Controls.Add([i]"Forms.commandbutton.1"[/i])
        Bouton.Left = 15
        Bouton.Top = 80
        Bouton.Height = 20
        Bouton.Width = 80
        Bouton.Caption = [i]"Mon bouton"[/i]
        Code = [i]"[COLOR=BLUE]Sub[/COLOR] "[/i] & Bouton.Name & [i]"_Click()"[/i] & vbCrLf
        Code = Code & [i]"Msgbox "[/i][i]"Bonjour le forum "[/i][i]""[/i] & vbCrLf
        Code = Code & [i]"[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]"[/i]
        [COLOR=GREEN]'**************[/COLOR]
        [COLOR=GREEN]'quel code faut-il employer ici[/COLOR]
        [COLOR=GREEN]'**************[/COLOR]
        .CodeModule.InsertLines .CodeModule.CountOfLines + 1, Code
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]

Mais je ne sais pas ce que tu veux faire mais bonjour la galère si tu ne maîtrise pas.

A+

 

[MJ13]

Re : bouton dans multipage

Re, Bonjour Ges

Je comprend pourquoi j'ai pas réussi 😱. Cela à l'air complexe 🙂.

Sinon, je ne vois pas trop l'intérêt. Il faut bien à un moment donner le code de déclenchement du bouton 😕!

Sinon peut-être une recherche sur le forum ou sur G....e avec userform dynamique.

 

[Guest]

Re : bouton dans multipage

Bonjour Michel,

Non moi non plus je ne vois pas trop l'interêt. C'est une méthode utilisée lorsqu'on veut créer un userform à la volée avec plein de boutons dedans ou des choix d'options, ou une fenêtre de messages avec des boutons particuliers gérés par module de classe et détruire le userform à la fin.

A+

 

[gilbert_RGI]

Re : bouton dans multipage

Bonjour Hasco


je regarde ce que je peux faire avec ce code

sinon bonjour la galère me dis-tu "c'est en forgeant que l'on devient forgeron" non et des galères ça fait un bout de temps que je galère sur des codes et formules.

heureusement ce forum est super

merci je dis si ça fonctionne

 

[Guest]

Re : bouton dans multipage

Re Gilbert, Michel,

Une méthode plus simple, dans le module du userFom:

Dim WithEvents Bouton As MSForms.CommandButton
 
Private Sub Bouton_Click()
 MsgBox "Bonjour le monde"
End Sub

Private Sub UserForm_Initialize()
    Dim Code As String
    Set Bouton = UserForm1.MultiPage1.Page1.Controls.Add("Forms.commandbutton.1")
    Bouton.Left = 15
    Bouton.Top = 80
    Bouton.Height = 20
    Bouton.Width = 80
    Bouton.Caption = "Mon bouton"
End Sub

@Gilbert si tu nous disais à quoi tu veux en venir, nous pourrions peut-être mieux t'aider.

A+

 

[gilbert_RGI]

Re : bouton dans multipage

Voilà

dans un userform classique je veux mettre un multipage
(jusque là ça va 😀)

ensuite avec un bouton mis dans ce multipage je veux créer une page supplémentaire dans le multipage et deux boutons
le premier me permettant de revenir en arrière si c'est mon choix où d'imprimer cette page avec un second bouton.

ceci uniquement pour me perfectionner dans le multipage. 🙄

voilou

 

[gilbert_RGI]

Re : bouton dans multipage

Ok chouette le second code fonctionne.

j'y étais presque il me manquait la déclaration
Dim WithEvents Bouton As MSForms.CommandButton

Merci Hasco 😉

 

[MJ13]

Re : bouton dans multipage

Re

Gilbert, cela m'intéresse ton code 😱.

Merci ausi à Ges 🙂.

 

[gilbert_RGI]

Re : bouton dans multipage

@Hasco

le premier fichier ne me donne pas le fonctionnement de la macro au click sur le bouton.

la référence est bien cochée ???

ci joint le fichier dis moi ce que j'ai omis .... Merci

 

[Guest]

Re : bouton dans multipage

Gilbert,

Je n'ai pas ouvert ton fichier.
Avec la dernière ligne (juste avant le End Sub) cela devrait fonctionner.

[COLOR=blue]Sub[/COLOR] AjoutBouton()
    [COLOR=blue]Dim[/COLOR] Bouton [COLOR=blue]As[/COLOR] CommandButton
    [COLOR=blue]Dim[/COLOR] Code [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR]
    [COLOR=blue]Dim[/COLOR] VBC [COLOR=blue]As[/COLOR] VBComponent
    [COLOR=blue]Set[/COLOR] VBC = ActiveWorkbook.VBProject.VBComponents([I]"UserForm1"[/I])
    [COLOR=blue]With[/COLOR] VBC
        [COLOR=blue]Set[/COLOR] Bouton = .Designer.Controls([I]"MultiPage1"[/I]).Pages([I]"Page1"[/I]).Controls.Add([I]"Forms.commandbutton.1"[/I])
        Bouton.Left = 15
        Bouton.Top = 80
        Bouton.Height = 20
        Bouton.Width = 80
        Bouton.Caption = [I]"Mon bouton"[/I]
        Code = [I]"[COLOR=blue]Sub[/COLOR] "[/I] & Bouton.Name & [I]"_Click()"[/I] & vbCrLf
        Code = Code & [I]"Msgbox "[/I][I]"Bonjour le forum "[/I][I]""[/I] & vbCrLf
        Code = Code & [I]"[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]"[/I]
        [COLOR=green]'**************[/COLOR]
        [COLOR=green]'quel code faut-il employer ici[/COLOR]
        [COLOR=green]'**************[/COLOR]
        .CodeModule.InsertLines .CodeModule.CountOfLines + 1, Code
    [COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
   [COLOR=red]VBA.UserForms.Add([I]"UserForm1"[/I]).Show[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

Cela permet de compiler le userform avec son nouveau bouton. Mais ce genre de procédure ne peut pas être faite à l'éxécution, seulement à la conception.

Pour ton projet, avec cette méthode, il faudrait que tu écrives toutes les actions et le déroulement de tes évènements de la sorte. Ce qui serait trop fastidieux.

Crée tes pages, tes boutons et code comme tu le fais ordinairement et joue sur la propriété 'visible' des contrôles.

Un userform est compilé avant d' être chargé et exécuté. Si tu tentes de rajouter un évènement à l'éxécution, cela ne peut fonctionner car il n'a pas été préalablement compilé. Il est inconnu de vba.

A+

 

[gilbert_RGI]

Re : bouton dans multipage

Merci HASCO

en effet de cette façon ça fonctionne aussi.

maintenant que je connais le principe je vais essayer d'approfondir

😱