[VBA Excel] - Vider toutes les TextBox d'un UserForm

- Vider toutes les TextBox d'un UserForm [VBA Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 17-06-2004 à 10:35:26    

'jour all
 
Voila je cherche à réinitialiser la value de toutes les TextBox présentes sur un multipage, lui meme positionné sur un UserForm...mais voilà, je ne suis pas dev et je galère un p'tit poil :/
 
J'ai bien pensé à créer Une NewCollection, laquelle regroupe toutes les textbox, mais je coince sur la syntaxe.

Code :
  1. Sub ViderForm()
  2. Dim Boites As newCollection
  3. Dim Boite As TextBox
  4. For each .... ?????
  5. End Sub


 
Si je pouvais avoir un coup de main ;)
 
Merci d'avance

Reply

Marsh Posté le 17-06-2004 à 10:35:26   

Reply

Marsh Posté le 17-06-2004 à 10:57:26    

Code :
  1. Dim objControl As Control
  2.     For Each objControl In UserForm1.Controls
  3.         If TypeOf objControl Is msforms.TextBox Then
  4.             objControl.Text = ""
  5.         End If
  6.     Next


En fait, la collection des controles existe dans UserForm. Reste à filtrer pour le controle recherché.


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Marsh Posté le 17-06-2004 à 11:01:46    

JihemAir a écrit :

Code :
  1. Dim objControl As Control
  2.     For Each objControl In UserForm1.Controls
  3.         If TypeOf objControl Is msforms.TextBox Then
  4.             objControl.Text = ""
  5.         End If
  6.     Next


En fait, la collection des controles existe dans UserForm. Reste à filtrer pour le controle recherché.


 
Super ! merci
mais j'avais trouvé sans la collection, en testant le nom de mes Controls, tous mes TextBox commencant par TB => If Left(objControl,2) = "TB" Then...
 
Ca fait un peu bricolage :/
Vais donc remplacer par ton code !
Encore merci  :jap:

Reply

Sujets relatifs:

Leave a Replay

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