[resolu]reset pour les textbox

reset pour les textbox [resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 18-10-2005 à 15:50:21    

slt tt le monde  
j'ai une vingtaine de textboxs dans une page (de multipage) et je voudrai savoir si ca existe une commande qui fait un "reset" pour tous ces textboxs. :heink:  
 
NB: j'ai utilisé cette methode : textbox.visible= " " mais ca prend bcp de temps :pt1cable:  
 si vs avez une réponse n'hésitez pas svp
@++

Message cité 1 fois
Message édité par tunisiano8 le 21-10-2005 à 09:43:55
Reply

Marsh Posté le 18-10-2005 à 15:50:21   

Reply

Marsh Posté le 18-10-2005 à 15:54:38    

tunisiano8 a écrit :

slt tt le monde  
j'ai une vingtaine de textboxs dans une page (de multipage) et je voudrai savoir si ca existe une commande qui fait un "reset" pour tous ces textboxs. :heink:  
 
NB: j'ai utilisé cette methode : textbox.visible= " " mais ca prend bcp de temps :pt1cable:  
 si vs avez une réponse n'hésitez pas svp
@++


 
je voulais dire textbox.value= " " et non textbox.visible

Reply

Marsh Posté le 18-10-2005 à 19:33:31    

Si tu as une vingtaine de TextBox, et que par chance elles s'appellent toujours TextBox1, TextBox2 etc...ou tb1,tb2...
Tu peux faire ça
For i = 1 to 20
userform1.Controls("TextBox" & i) = ""
Next i

Reply

Marsh Posté le 19-10-2005 à 08:53:27    

malheureusement ce n'est pas le cas

Reply

Marsh Posté le 19-10-2005 à 19:20:07    

Bon, c'est pas grave
Tentes ça
 
For Each ctrl In Controls
If TypeOf ctrl Is MSForms.textbox Then
ctrl.Value = ""
End If
Next

Reply

Marsh Posté le 20-10-2005 à 09:41:52    

merci e2prom,
mais cette commande efface  les valeurs des textboxs même dans les autres pages.

Reply

Marsh Posté le 20-10-2005 à 16:59:51    

salut tunisiano,
 
ton idée de bouton réinitialisé m'a inspiré ;) du coup j'ai vu qu'en fait tu peux mettre avant le controls l'endroit précis où tu cherches à modifier la valeur.

Code :
  1. Dim ctrl As Control
  2. For Each ctrl In Userform01.MultiPage2.Pages(2).Controls
  3.      If TypeOf ctrl Is MSForms.TextBox Then
  4.      ctrl.Value = ""
  5.      End If
  6. Next


 
bon courage


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 20-10-2005 à 18:59:01    

Tout à fait.
On peut aussi écrire .....MultiPage2("page2" ).Controls

Reply

Marsh Posté le 20-10-2005 à 19:16:46    

au fait merci e2prom  
même si tu as pas répondu à un de mes post l'astuce que tu as donné ici m'a bien servi ;)


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed