Discussion :

[ouskel'n'or]

Hello,

Dans un form, j'ai créé un certain nombre de champs (textbox) en dynamique, pour la plupart renseignés automatiquement.
Parmi ceux-ci, j'ai des champs que l'utilisateur doit remplir...
J'ai donc tenté de les créer avec with WithEvents mais j'obtiens le message :

L'objet n'est pas source d'événement automation

Pour le moment, j'ai placé manuellement les textbox récalcitrants dans le form mais je souhaiterais savoir s'il n'existe pas une autre solution.

Question subsidiaire : Où peut-on trouver la liste des objets "source d'événement automation"

Par avance, merci.

[bidou]

en passant par

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim WithEvents Toto As MSForms.TextBox
 
Private Sub Toto_Change()
    MsgBox "coucou"
End Sub
 
Private Sub UserForm_Initialize()
 
Set Toto = Me.Controls.Add("Forms.TextBox.1", "MonText", True)
 
End Sub

[ouskel'n'or]

Merci, Bidou, (je n'y croyais pas...)
Je déclarais mes boutons ainsi

Public WithEvents BoutonWithEvents As CommandButton

et comme ça marchait pour les boutons, je faisais pareil pour les textbox

Eh ben non ! Il faut MSForms. avant...

Encore merci

A+