scoboy
Messages postés56Date d'inscriptionmardi 28 mars 2006StatutMembreDernière intervention17 janvier 2008
-
12 avril 2006 à 11:12
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
12 avril 2006 à 12:03
Salut à tous,
J'voulais savoir si il était possible de rendre, par exemple, de text1.text "" à text10.text "" de manière à ce que les text1, text2, text3, ..... et text10 obtiennent la valeur "" mais tous cela en quelques lignes (1 à 3 lignes) car j'ai bien plus de 10 textes en fait.
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200825 12 avril 2006 à 11:25
Salut,
Un p'tit truc comme çà devrait fonctionner, mais en plus de 3 lignes
Dim ctrl As Control
Dim k As Long
Dim sName As String
For k = 1 To 10
sName = "Text" & k
For Each ctrl In Me.Controls
If ctrl.Name = sName Then
ctrl.Text = ""
End If
Next ctrl
Next k
Il était possible de jouer avec "If TypeOf ctrl Is TextBox", mais çà aurait posé problème si tu avais d'autres Textboxes sur ton formulaire qui ne devaient pas être vidés.
cs_jperre
Messages postés268Date d'inscriptionlundi 9 janvier 2006StatutMembreDernière intervention19 janvier 20172 12 avril 2006 à 11:26
Pourquoi n'avez vous pas créé un groupe de contrôles TextBox? Si vous l'aviez fait,ensuite il était très simple de faire une boucle sur les indexs du type :
Dim n as Integer
For n=0 To 9 'Mise à chaîne vide des 10 TextBox
MaTextBox(n).text=""
Next n
....
scoboy
Messages postés56Date d'inscriptionmardi 28 mars 2006StatutMembreDernière intervention17 janvier 2008 12 avril 2006 à 11:40
Dans mon cas le code de Manu est mieux (même si il il tient en 11 lignes, c'est parfait), en sachant que le code de jpierre marche aussi mais mais trop dangereux pour moi pour la suite.