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

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 :

Sub ViderForm()
Dim Boites As newCollection
Dim Boite As TextBox
For each .... ?????
End Sub

Si je pouvais avoir un coup de main

Merci d'avance

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

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

Code :

Dim objControl As Control
For Each objControl In UserForm1.Controls
If TypeOf objControl Is msforms.TextBox Then
objControl.Text = ""
End If
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 ?

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

JihemAir a écrit :

Code :

Dim objControl As Control
For Each objControl In UserForm1.Controls
If TypeOf objControl Is msforms.TextBox Then
objControl.Text = ""
End If
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:

Sujets relatifs:

Leave a Replay

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

Name *

Email *

URL

Message *