Gestion d'évènement pour un Userform dynamique [Résolu]

Signaler
Messages postés
50
Date d'inscription
vendredi 7 juillet 2006
Statut
Membre
Dernière intervention
2 septembre 2009
-
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
-
Bonjour à tous,


Voilà mon probleme, j'ai un Userform que je construis dynamiquement
suivant le nombre d'items utilisé dans un onglet Excel ( en fait, je
cré un formulaire dynamique ).

Dans ce formulaire, suivant certaines cases cochées, je
bloque l'acces à certains TextBox à l'ouverture du Userform (
Initialisation ).


Mon probleme est que si je décoche ces cases, rien ne se passe : NORMAL !!


Je sais qu'on peut gérer ça en statique : Private sub TextBox1_Change ()


Mais comment proceder quand les TextBox sont multiples et que je ne connais pas leur nombre ( création en dynamique ) ??


Merci a tous pour votre aide... et bon week-end si je n'ai pas de réponse avant...

1 réponse

Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Bonjour,

ben si ! maintenant tu connais leur nombre

Sub NbObjet()
Dim MyObject As Object, CompteurObjet As Single
CompteurObjet = 0
For Each MyObject In Userform1.Controls 'userform1.controls est une collection
    On Error Resume Next
    If LCase(Left(MyObject.Name, 7)) = "textbox" Then
        CompteurObjet = CompteurObjet + 1
    End If
Next
MsgBox CompteurObjet
End Sub

plus simple qu'un module de classe non ?

A+