Discussion :

[choupette_64]

Bonjour à tous,

Afin de favoriser la réutilisation d'une macro, je voudrais pouvoir faire en sorte que dans l'userform de la macro, les CommandButton n'ont pas besoin d'être ajouté "à la main" sur le UserForm mais qu'ils soient ajoutés et positionnés dans la macro.

Voici un extrait de mon code UserForm (exemple pour l'ajout d'un seul bouton):

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
17
18
19
20
21
22
23
Private Sub UserForm_Initialize() 
 
    Dim ActWB As Workbook 
    Dim I As Integer 
    Dim Bouton1 As Control 
 
    With UserForm1 
        .StartUpPosition = 2 
        .Height = 100 
        .Width = 150 
    End With 
 
    Set Bouton1 = UserForm1.Controls.Add("Forms.CommandButton.1") 
    With Bouton1 
        .Name = "BoutonOK" 
        .Caption = "OK" 
        .Left = 25 
        .Top = 50 
        .Width = 50 
        .Height = 18 
    End With 
 
End Sub

Par ailleurs j'ai une combo qui permet de choisir un onglet d'une 2eme feuille, et donc lorsque l'on clique sur le bouton OK, il faudrait que cela valide l'onglet choisi...seulement lorsque je mettai le bouton "à la main" sur l'UserForm tout marchait comme il faut, et la en l'ajoutant dans le code de la macro comme ci-dessus, le click sur le bouton OK n'a plus aucun effet

Ou est-ce que je dois mettre le code suivant pour qu'il soit pris en compte ??

Code :

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

1
2
3
4
5
6
Private Sub BoutonOK_Click() 
    Dim onglet As String 
    onglet = combo.text 
    ActiveWorkbook.Sheets(onglet).Activate 
    Unload Me 
End Sub

Merci pour vos réponses !

[Mikaz]

Bonjour,

Je pense que tu dois ajouter le code au clique sur UserForm1, vue que ton bouton est ajouter sur celle-ci.

[choupette_64]

Mais si plusieurs boutons sont sur l'UserForm, je ne peux pas le faire sinon il va y avoir la même action quel que soit le bouton va être cliqué ...

[Mikaz]

Ok je voi pas bien ton problème je t'avou ... j'essai de comprendre l'interêt réel ... tu veux que tous tes boutons se génère en automatique ? et qu'il ai chacun une action bien définie ... ?

[Krovax]

Bonjour,
premièrement sache que ce que tu cherches a faire n'est pas évident et je te conseil si tu ne maitrise pas le VBA d'essayer d'envisager d'autre solution (exemple des boutons invisible qui devienne visble a mon avis cela devrais te suffire mais je peux me tromper).

Si tu n'as pas d'autre alternative, il va te falloir écrire le code de tes macro pas macro (je te laisse retrouver le tutoriel la dessus dans la rubrique tutoriels excel)

Edit : a la relecture je suis aussi sceptique que mikaz si tu n'a qu'un seul bouton dès l'ouverture du userform pourquoi chercher a le créer de manière dynamique et pas de le faire a la main une fois pour toute sans te prendre la tête

[choupette_64]

En fait mon objectif est de pouvoir facilement reutiliser la macro (installation sur plusieurs pc par des personnes différentes etc ...) , c'est à dire qu'un simple copier coller dans le module et dans l'userform suffira à la faire marcher ... donc pour cela je veux supprimer la mise en place des boutons sur l'userform "à la main" (donc eviter l'ajout manuel avec la boîte à outils).
L'affichage des boutons marche bien, j'ai réussie à le faire en le codant, ce qui me pose problème c'est définir l'action lorsque je vais cliquer sur "OK" ou "Annuler" par exemple

[Mikaz]

Si j'ai bien compris chacun de tes boutons a un nom définie, mais a en caption : "OK", si chacun de tes boutons a un nom différent (définie a l'ajout) il te suffit de définir une action par nom de bouton ?

[Krovax]

Tu sais que tu peux importer et exporter des module?
ou utiliser des macro complémentaire (je n'ai jamais essayé vraiment)
A mon avis cela serait bien plus simple que ce que tu cherche a faire (surtout la première méthode, clique droit sur le module ou le userfom tu choisie exporter un fichier, il ne te restera plus qu'a faire dans le nouveau dossier clique droit importer)

[choupette_64]

Voilà chacun a un nom différent, et selon le bouton sur lequel on clique, une action différente sera réalisée.
Dans mon premier post tout en haut, je montrais ce que j'avais fais pr le bouton OK. Donc je l'ai créé dans le Userform_Initialize et ensuite j'ai fait une autre Private Sub pour définir l'action lorsque l'on clique sur ce bouton :

Code :

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

1
2
3
4
5
6
Private Sub BoutonOK_Click() 
    Dim onglet As String 
    onglet = combo.text 
    ActiveWorkbook.Sheets(onglet).Activate 
    Unload Me 
End Sub

Mais ca ne marche pas ... Au lancement de la macro lorsque l'UserForm s'affiche, le bouton y est, mais rien ne se passe en cliquant dessus.

Je ne sais pas si c'est une erreur dans la façon de l'écrire ou autre chose peut être

[Mikaz]

Il te suffit d'ajouter ta "Private Sub" (comme tu dis si bien ) dans don UserForm ...

Enfin vue que tous fait partie d'une UserForm, tu devrai ecouter Krovax !

[choupette_64]

Krovax, oui j'ai essayer d'exporter et importer ma macro dans un autre classeur, et ca fonctionne!
Je pensais que ca allait uniquement importer le "code", et non, l'emplacement des boutons est conservé , c'est exactement ce que je voulais !

Merci à vous deux !

[Krovax]

Comme quoi parfois vaux mieux essayer que penser (mais bon en faisant ca je perds perd beaucoup de temps la dessus )
Pense a cliquer sur en bas de la discutions