Discussion :

[tiyolx]

Bonjour à tous,

Je vous sollicite aujourd'hui pour savoir si il est possible depuis du code d'inséré un contrôle dans un USERFORM.

Si oui, pouvez-vous me donner un exemple avec quelque mise en forme (couleur, type de police, etc...)

Merci de votre aide

[Pierre Fauconnier]

Bonjour.

Oui, c'est possible.

Code :

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

1
2
3
4
5
6
7
8
9
Sub AjoutControle()
  Dim Controle As Control
 
  Set Controle = UserForm1.Controls.Add("Forms.TextBox.1", "tb_Nom", True)
  With Controle
    .Top = 10
    .Left = 25
  End With
End Sub

Par exemple, à l'initialisation du userform

Code :

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

1
2
3
Private Sub UserForm_Initialize()
  AjoutControle
End Sub

L'aide en ligne sur la méthode Add te donnera plus de détails.

[tiyolx]

Merci de votre réponse.

Pouvez-vous m'expliquer à quoi correspond le chiffre 1 dans "Forms.TextBox.1".

J'ai une idée mais je suis pas certain.

Alors voila mon idée :

dans un USERFORM on dit qu'il y a 5 textbox
donc si je veux ajouter 3 autres en programmation il faut que j'utilise :
Forms.TextBox.6, Forms.TextBox.7 et Forms.TextBox.8
ou
Forms.TextBox.5, Forms.TextBox.6 et Forms.TextBox.7

Merci