Boutons et codes, ennuis

flamel · 8 Novembre 2005

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

David · 8 Novembre 2005

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

Boutons et codes, ennuis

flamel

XLDnaute Nouveau

David

Guest

Discussions similaires