Boutons et codes, ennuis

flamel

XLDnaute Nouveau
Bonjour.

Je crée dans UserForm automatiquement une série de boutons.
Je voudrais à leur création y introduire un code. Je n'y arrive pas.
Comment faire.
Y a-t-il un chemin spécial que je ne trouve pas ?
D'autre part, ces boutons créés automatiquement ne peuvent pas être ouverts. Ils se sélectionnent pourtant bien par un clic.
Merci à qui pourrait me dépanner.

flamel
 
D

David

Guest
Si tu as deja ecris le code pour creer les boutons (si ce n'est pas le cas ecris le, je mettrais un exemple) copie ce code a la suite. Dans un premier temps il s'agit de creer une variable code.
Chaque ligne correspond a une ligne du code que tu veux placer derriere le bouton.

Code:
code = 'Sub CommandButton1_Click()' & vbCrLf
code = code & 'Call recompter' & vbCrLf
code = code & 'UserForm2.TextBox1.Text = ActiveSheet.Name' & vbCrLf
..........
code = code & 'End Sub'

Ensuite coller cette variable dans la feuille de code correspondant au bonton, dans la userform.

Code:
With ThisWorkbook.VBProject.VBComponents(4).Codemodule
       nextline = .CountOfLines + 1
      .InsertLines nextline, code
 End With

C un exemple, il va falloir que tu changes Codemodule pour y mettre la feuille correspandant a la UserForm.
Bon courage
 

Discussions similaires

Réponses
18
Affichages
860

Membres actuellement en ligne

Statistiques des forums

Discussions
312 922
Messages
2 093 644
Membres
105 774
dernier inscrit
Tibenjah