canichon
Messages postés50Date d'inscriptionvendredi 7 juillet 2006StatutMembreDernière intervention 2 septembre 2009
-
14 déc. 2007 à 16:34
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 2013
-
14 déc. 2007 à 18:43
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...
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 14 déc. 2007 à 18:43
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